From 2a71a27c55ad98e36f2886017d45ca2ae986296d Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 10 Apr 2005 16:51:48 +0000 Subject: [PATCH] 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. --- doc/manual/docstrings.lisp | 11 +++++++---- src/code/final.lisp | 3 +-- version.lisp-expr | 2 +- 3 files changed, 9 insertions(+), 7 deletions(-) diff --git a/doc/manual/docstrings.lisp b/doc/manual/docstrings.lisp index 0965759..c962706 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 945cd5e..15a45a6 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 00a0ca5..cebed91 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" -- 1.7.10.4