Changeset 11695 for trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

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

File:

• trunk/abcl/src/org/armedbear/lisp/precompiler.lisp (modified) (1 diff)

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)))))))))