Changeset 13980
- Timestamp:
- 06/19/12 15:01:37 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r13978 r13980 332 332 (push-on-end `(setf ,(cadr olist)) writers)) 333 333 (t 334 (push-on-end `(quote ,(car olist)) non-std-options) 335 (push-on-end `(quote ,(cadr olist)) non-std-options)))) 334 (push-on-end (cadr olist) (getf non-std-options (car olist)))))) 336 335 `(list 337 336 :name ',name … … 353 352 ,@(when documentation `(:documentation ',documentation)) 354 353 ,@other-options 355 ,@non-std-options)))) 354 ,@(mapcar #'(lambda (opt) (if (or (atom opt) (/= 1 (length opt))) 355 `',opt 356 `',(car opt))) 357 non-std-options))))) 356 358 357 359 (defun maybe-note-name-defined (name)
Note: See TracChangeset
for help on using the changeset viewer.