Changeset 14259 for branches/qres/ccl/compiler/nx-basic.lisp
- Timestamp:
- Sep 15, 2010, 12:07:42 AM (10 years ago)
- Location:
- branches/qres/ccl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/qres/ccl
- Property svn:mergeinfo changed
/trunk/source merged: 14258
- Property svn:mergeinfo changed
-
branches/qres/ccl/compiler/nx-basic.lisp
r14172 r14259 709 709 (cdr (assq name (defenv.structrefs defenv)))))) 710 710 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 711 719 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 712 720 ;;
Note: See TracChangeset
for help on using the changeset viewer.