Changeset 11695
- Timestamp:
- 03/03/09 22:10:25 (14 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/adjoin.lisp
r11391 r11695 31 31 32 32 (defun adjoin (item list &key key (test #'eql testp) (test-not nil notp)) 33 "Add `item' to `list' unless it is already a member (as determined by 34 the test function `test'." 33 35 (when (and testp notp) 34 36 (error "test and test-not both supplied")) -
trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
r11479 r11695 1184 1184 (when (null env) 1185 1185 (setf lambda-expression (precompile-form lambda-expression nil))) 1186 `(%defun ',name ,lambda-expression)))))) 1186 `(progn 1187 (%defun ',name ,lambda-expression) 1188 ,@(when doc 1189 `((%set-documentation ',name 'function ,doc)))))))))
Note: See TracChangeset
for help on using the changeset viewer.