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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Aug 20 05:55:31 2011
New Revision: 13517

Log:
Fix #162: Non-symbol in variable position of SETQ form causes class
verification problems of generated .cls file.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Sat Aug 20 03:03:52 2011	(r13516)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Sat Aug 20 05:55:31 2011	(r13517)
@@ -6383,6 +6383,10 @@
                                      (list +lisp-symbol+ +lisp-object+)
                                      +lisp-object+)))
             (t
+             (unless (symbolp name)
+               (error 'program-error
+                      "First argument to SETQ is not a symbol in ~S"
+                      form))
              (with-operand-accumulation
                  ((emit-thread-operand)
                   (emit-load-externalized-object-operand name)