Changeset 13116

Timestamp:

01/01/11 14:53:38 (13 years ago)

Author:

ehuelsmann

Message:

Remove layering violation from compiler-pass2::p2-setq;
there should be no macroexpansion or precompiler calls: that's pass1.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

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

@@ -6076 +6076 @@
 (defun p2-setq (form target representation)
   (unless (= (length form) 3)
-    (return-from p2-setq (compile-form (precompiler:precompile-form form t
-                                                        *compile-file-environment*)
-                                       target representation)))
-  (let ((expansion (macroexpand (%cadr form) *compile-file-environment*)))
-    (unless (eq expansion (%cadr form))
-      (compile-form (list 'SETF expansion (%caddr form)) target representation)
-      (return-from p2-setq)))
+    (assert (not "p2-setq should receive exactly 2 arguments!")))
   (let* ((name (%cadr form))
          (variable (find-visible-variable name))