[armedbear-cvs] r14043 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Aug  2 23:07:58 2012
New Revision: 14043

Log:
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????)

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

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Aug  2 22:23:16 2012	(r14042)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Aug  2 23:07:58 2012	(r14043)
@@ -1164,8 +1164,8 @@
   "Similar to getf except eval and return INIT-FORM if KEY has no value in PLIST."
   (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)
   `(macrolet