Changeset 14085 for branches/qres/ccl/compiler/nx-basic.lisp
- Timestamp:
- Jul 29, 2010, 10:29:02 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/qres/ccl/compiler/nx-basic.lisp
r14068 r14085 838 838 (if ref ;; seen before, mark that multiply referenced. 839 839 (setf (acode-afunc-ref-index ref) 0) 840 (push (setq ref (make-acode-afunc-ref :afunc afunc 841 :object (decomp-form (afunc-acode afunc))))842 *nx-acode-inner-refs*))840 (progn 841 (push (setq ref (make-acode-afunc-ref :afunc afunc)) *nx-acode-inner-refs*) 842 (setf (acode-afunc-ref-object ref) (decomp-form (afunc-acode afunc))))) 843 843 ref) 844 844 afunc))
Note: See TracChangeset
for help on using the changeset viewer.