0.8.21.33: make doctrings.lisp understand embedded examples better
authorNikodemus Siivola <nikodemus@random-state.net>
Sun, 10 Apr 2005 16:51:48 +0000 (16:51 +0000)
committerNikodemus Siivola <nikodemus@random-state.net>
Sun, 10 Apr 2005 16:51:48 +0000 (16:51 +0000)
 ... sufficiently well to make less of a hogwash of the FINALIZE
     documentation at any rate.

doc/manual/docstrings.lisp
src/code/final.lisp
version.lisp-expr

index 0965759..c962706 100644 (file)
@@ -102,6 +102,9 @@ you deserve to lose.")
        (t
         (cons (car list) (flatten (cdr list))))))
 
+(defun whitespacep (char)
+  (find char #(#\tab #\space #\page)))
+
 (defun setf-name-p (name)
   (or (symbolp name)
       (and (listp name) (= 2 (length name)) (eq (car name) 'setf))))
@@ -437,13 +440,13 @@ variables if the symbol in question is contained in symbols
 ;;; lisp sections
 
 (defun lisp-section-p (line line-number lines)
-  "Returns T if the given LINE looks like start of lisp code -- ie. if
-it starts with whitespace followed by a paren, and the previous line
-is empty"
+  "Returns T if the given LINE looks like start of lisp code --
+ie. if it starts with whitespace followed by a paren or
+semicolon, and the previous line is empty"
   (let ((offset (indentation line)))
     (and offset
         (plusp offset)
-        (eql #\( (find-if-not (lambda (c) (eql #\Space c)) line))
+        (find (find-if-not #'whitespacep line) "(;")
         (empty-p (1- line-number) lines))))
 
 (defun collect-lisp-section (lines line-number)
index 945cd5e..15a45a6 100644 (file)
@@ -32,10 +32,9 @@ signalled in whichever thread the FUNCTION was called in.
 
 Examples:
 
-  ;;; good
+  ;;; good (assumes RELEASE-HANDLE is re-entrant)
   (let* ((handle (get-handle))
          (object (make-object handle)))
-   ;; assumes RELEASE-HANDLE is re-entrant
    (finalize object (lambda () (release-handle handle)))
    object)
 
index 00a0ca5..cebed91 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.21.32"
+"0.8.21.33"