Changeset 14085 for branches/qres/ccl/compiler/nx-basic.lisp

Timestamp:

Jul 29, 2010, 10:29:02 PM (10 years ago)

Author:

gz

Message:

in decomp-afunc, handle circular refs

File:

• branches/qres/ccl/compiler/nx-basic.lisp (modified) (1 diff)

branches/qres/ccl/compiler/nx-basic.lisp

@@ -838 +838 @@
         (if ref ;; seen before, mark that multiply referenced.
             (setf (acode-afunc-ref-index ref) 0)
-            (push (setq ref (make-acode-afunc-ref :afunc afunc
-                                                  :object (decomp-form (afunc-acode afunc))))
-                  *nx-acode-inner-refs*))
+            (progn
+              (push (setq ref (make-acode-afunc-ref :afunc afunc)) *nx-acode-inner-refs*)
+              (setf (acode-afunc-ref-object ref) (decomp-form (afunc-acode afunc)))))
         ref)
       afunc))