Changeset 14086

Timestamp:

Jul 29, 2010, 3:30:00 PM (14 years ago)

Author:

gz

Message:

in decomp-afunc, handle circular refs

Location:

trunk/source

Files:

• . (modified) (1 prop)
• compiler/nx-basic.lisp (modified) (1 diff)

trunk/source/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))