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

Diff of /src/tools/pclcom.lisp

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

revision 1.13 by dtc, Fri Sep 12 17:29:25 1997 UTC revision 1.14 by dtc, Sat Sep 20 20:05:36 1997 UTC
# Line 50  Line 50 
50  (setf (search-list "pcl:") '("target:pcl/"))  (setf (search-list "pcl:") '("target:pcl/"))
51    
52  (let ((obj (make-pathname :defaults "pcl:defsys"  (let ((obj (make-pathname :defaults "pcl:defsys"
53                            :type (c:backend-fasl-file-type c:*backend*))))                            :type (c:backend-byte-fasl-file-type c:*backend*))))
54    (when (< (or (file-write-date obj) 0)    (when (< (or (file-write-date obj) 0)
55             (file-write-date "pcl:defsys.lisp"))             (file-write-date "pcl:defsys.lisp"))
56      (compile-file "pcl:defsys" :byte-compile t)))      (compile-file "pcl:defsys" :byte-compile t)))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5