/[cmucl]/src/tools/setup.lisp
ViewVC logotype

Diff of /src/tools/setup.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by wlott, Wed Mar 4 09:59:11 1992 UTC revision 1.17 by wlott, Sat Mar 7 13:27:23 1992 UTC
# Line 256  Line 256 
256                  (compile-file src  :error-file nil  :output-file obj))                  (compile-file src  :error-file nil  :output-file obj))
257              (when load              (when load
258                (load name :verbose t)))))))))                (load name :verbose t)))))))))
   
   
   
 ;;;; BACKEND-FEATUREP and TARGET-FEATUREP  
   
 (defun target-featurep (feature)  
   (let ((*features* (c:backend-features c:*target-backend*)))  
     (lisp::featurep feature)))  
   
 (defun backend-featurep (feature)  
   (let ((*features* (c:backend-features c:*backend*)))  
     (lisp::featurep feature)))  

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5