Ignore:
Timestamp:
Sep 15, 2010, 12:07:42 AM (9 years ago)
Author:
gz
Message:

r14258 from trunk (defstruct changes)

Location:
branches/qres/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl

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

    r14172 r14259  
    709709      (cdr (assq name (defenv.structrefs defenv))))))
    710710
     711 ;; can be removed once new images are checked in
     712#-BOOTSTRAPPED
     713(unless (fboundp 'structref-info)
     714  (fset 'structref-info
     715        (nlambda boostrapping-structref-info (sym &optional env)
     716                 (or (and env (environment-structref-info sym env))
     717                     (gethash sym %structure-refs%)))))
     718
    711719;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    712720;;
Note: See TracChangeset for help on using the changeset viewer.