[armedbear-cvs] r11695 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Mar  3 22:10:25 2009
New Revision: 11695

Log:
Fix DESCRIBE output by registering documentation on functions.

Patch by: Russell McManus (russel_mcmanus at yahoo.com)
Tweaked by: me

Modified:
   trunk/abcl/src/org/armedbear/lisp/adjoin.lisp
   trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/adjoin.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/adjoin.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/adjoin.lisp	Tue Mar  3 22:10:25 2009
@@ -30,6 +30,8 @@
 ;;; exception statement from your version.
 
 (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"))
   (if (let ((key-val (sys::apply-key key item)))

Modified: trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	Tue Mar  3 22:10:25 2009
@@ -1183,4 +1183,7 @@
                (setf env nil))
              (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)))))))))