Changeset 11695 for trunk/abcl/src/org/armedbear/lisp/adjoin.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/adjoin.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"))