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

Diff of /src/tools/hemcom.lisp

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

revision 1.1.1.17 by wlott, Thu Sep 26 13:30:02 1991 UTC revision 1.1.1.18 by ram, Thu Jan 16 18:59:47 1992 UTC
# Line 33  Line 33 
33  (pushnew :command-bits *features*)  (pushnew :command-bits *features*)
34  (pushnew :buffered-lines *features*)  (pushnew :buffered-lines *features*)
35    
36    #-clx
37    ;;; If CLX has not been loaded, but has been compiled, then load it.
38    ;;;
39    (when (probe-file (make-pathname :defaults "target:clx/defsystem"
40                                     :type (c:backend-fasl-file-type c:*backend*)))
41      (setf (search-list "clx:") '("target:clx/"))
42      (load "clx:defsystem")
43      (xlib::load-clx (pathname "clx:"))
44      (load "target:code/clx-ext"))
45    
46  (with-compiler-log-file  (with-compiler-log-file
47      ("target:compile-hemlock.log"      ("target:compile-hemlock.log"
48       :optimize       :optimize

Legend:
Removed from v.1.1.1.17  
changed lines
  Added in v.1.1.1.18

  ViewVC Help
Powered by ViewVC 1.1.5