Commit 00338e58 authored by Stelian Ionescu's avatar Stelian Ionescu
Browse files

Fixes.

parent ff9ba177
......@@ -50,7 +50,7 @@
(in-package #:texinfo-docstrings)
(defun function-arglist (function)
#+sbcl (sb-introspect:function-arglist function)
#+sbcl (sb-introspect:function-lambda-list function)
#-sbcl (error "function-arglist unimplemented"))
;;;; various specials and parameters
......@@ -555,9 +555,7 @@ an item in an itemization."
;; end of itemization
(loop-finish))))
;; a single-line itemization isn't.
(if (> (count-if (lambda (line) (> (length line) 0)) result) 1)
(values lines-consumed `("@itemize" ,@(reverse result) "@end itemize"))
nil)))
(values lines-consumed `("@itemize" ,@(reverse result) "@end itemize"))))
;;; table sections
......
......@@ -59,8 +59,9 @@
(namestring
(make-pathname :directory
(pathname-directory
(asdf:system-definition-pathname
(asdf:find-system :texinfo-docstrings))))))
(truename
(asdf:system-definition-pathname
(asdf:find-system :texinfo-docstrings)))))))
(defparameter *gendocs-template-dir*
(or (getenv "GENDOCS_TEMPLATE_DIR") *sysdir*))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment