diff options
| author | Nikodemus Siivola <nikodemus@random-state.net> | 2005-04-10 16:51:48 +0000 |
|---|---|---|
| committer | Nikodemus Siivola <nikodemus@random-state.net> | 2005-04-10 16:51:48 +0000 |
| commit | 2a71a27c55ad98e36f2886017d45ca2ae986296d (patch) | |
| tree | cdff78176ff705ffc00e464884b2d08bcf6d26d9 | |
| parent | 1ebf7c82cd385fe067421c06e2b3970e27a6f4b3 (diff) | |
0.8.21.33: make doctrings.lisp understand embedded examples better
... sufficiently well to make less of a hogwash of the FINALIZE
documentation at any rate.
| -rw-r--r-- | doc/manual/docstrings.lisp | 11 | ||||
| -rw-r--r-- | src/code/final.lisp | 3 | ||||
| -rw-r--r-- | version.lisp-expr | 2 |
3 files changed, 9 insertions, 7 deletions
diff --git a/doc/manual/docstrings.lisp b/doc/manual/docstrings.lisp index 096575971..c9627069d 100644 --- a/doc/manual/docstrings.lisp +++ b/doc/manual/docstrings.lisp @@ -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) diff --git a/src/code/final.lisp b/src/code/final.lisp index 945cd5ec0..15a45a6b1 100644 --- a/src/code/final.lisp +++ b/src/code/final.lisp @@ -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) diff --git a/version.lisp-expr b/version.lisp-expr index 00a0ca5c5..cebed913b 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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" |