小编Don*_*ron的帖子

是否有Common Lisp函数或创建临时文件名或文件的典型方法？

在SBCL中,我可以得到一个函数的文档字符串,如下所示:

(documentation #'mapcar t)

但是,我不明白如何获取宏的文档字符串.例如,给定宏:

(defmacro with-lines-in-file ((line filename) &body body)
  "Runs body for each line in the file specified by filename."
  (let ((file (gensym)))
    `(with-open-file (,file ,filename)
      (do ((,line (read-line ,file nil) (read-line ,file nil)))
          ((null ,line) nil)
        ,@body))))

我无法检索文档字符串.我不了解CLHS.如下所示,CLHS非常适合获取函数的文档字符串.

documentation (x function) (doc-type (eql 't))

但是,从宏获取文档字符串的位似乎对我不起作用:

documentation (x symbol) (doc-type (eql 'compiler-macro))

在我的宏的上下文中,我将上面的CLHS位解释为:

(documentation 'with-lines-in-file 'compiler-macro)

但那个电话会回复NIL.

我正在尝试构建一个函数,为我计划在GitHub上共享的Common Lisp包创建README.md文件.这是一个例子:https://github.com/macnod/dc-utilities.我在这里写了一篇关于此的帖子:https://donnieknows.com/documenting-common-lisp-for-github/.