Changeset 11695

Timestamp:

03/03/09 22:10:25 (14 years ago)

Author:

ehuelsmann

Message:

Fix DESCRIBE output by registering documentation on functions.

Patch by: Russell McManus? (russel_mcmanus@…)
Tweaked by: me

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• adjoin.lisp (modified) (1 diff)
• precompiler.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/adjoin.lisp

@@ -31 +31 @@
 
 (defun adjoin (item list &key key (test #'eql testp) (test-not nil notp))
+  "Add `item' to `list' unless it is already a member (as determined by
+the test function `test'."
   (when (and testp notp)
     (error "test and test-not both supplied"))

trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

@@ -1184 +1184 @@
              (when (null env)
                (setf lambda-expression (precompile-form lambda-expression nil)))
-             `(%defun ',name ,lambda-expression))))))
+             `(progn
+                (%defun ',name ,lambda-expression)
+                ,@(when doc
+                    `((%set-documentation ',name 'function ,doc)))))))))