Changeset 14043


Ignore:
Timestamp:
08/03/12 06:07:58 (8 years ago)
Author:
ehuelsmann
Message:

When generating a symbol to use it as a value, do so.

(Geez, any idea how long it took me to find out my own changes

were *not* the cause of the error I was seeing????)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r14041 r14043  
    11651165  (let ((not-exist (gensym))
    11661166        (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))))
    11691169
    11701170(defun wrap-with-call-method-macro (gf args-var emf-form)
Note: See TracChangeset for help on using the changeset viewer.