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

Timestamp:

Sep 15, 2010, 12:07:42 AM (10 years ago)

Author:

gz

Message:

r14258 from trunk (defstruct changes)

Location:

branches/qres/ccl

Files:

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

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

@@ -709 +709 @@
       (cdr (assq name (defenv.structrefs defenv))))))
 
+ ;; can be removed once new images are checked in
+#-BOOTSTRAPPED
+(unless (fboundp 'structref-info)
+  (fset 'structref-info
+        (nlambda boostrapping-structref-info (sym &optional env)
+                 (or (and env (environment-structref-info sym env))
+                     (gethash sym %structure-refs%)))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;