Changeset 14043

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:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -1165 +1165 @@
   (let ((not-exist (gensym))
         (value (gensym)))
-    `(let ((,value (getf ,plist ,key ,not-exist)))
-       (if (eq ,not-exist ,value) ,init-form ,value))))
+    `(let ((,value (getf ,plist ,key ',not-exist)))
+       (if (eq ',not-exist ,value) ,init-form ,value))))
 
 (defun wrap-with-call-method-macro (gf args-var emf-form)