Commit 2c66192b authored by ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar ehuelsmann@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Fix #162: Non-symbol in variable position of SETQ form causes class

verification problems of generated .cls file.
parent 98b78054
......@@ -6383,6 +6383,10 @@ We need more thought here.
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment