Changeset 14043
- Timestamp:
- 08/03/12 06:07:58 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14041 r14043 1165 1165 (let ((not-exist (gensym)) 1166 1166 (value (gensym))) 1167 `(let ((,value (getf ,plist ,key ,not-exist)))1168 (if (eq ,not-exist ,value) ,init-form ,value))))1167 `(let ((,value (getf ,plist ,key ',not-exist))) 1168 (if (eq ',not-exist ,value) ,init-form ,value)))) 1169 1169 1170 1170 (defun wrap-with-call-method-macro (gf args-var emf-form)
Note: See TracChangeset
for help on using the changeset viewer.