/[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.31.2.1 by rtoy, Sat May 22 12:13:45 2004 UTC revision 1.40 by pmai, Sun Jul 25 18:25:16 2004 UTC
# Line 23  Line 23 
23  ;; enabled upon startup from the function PACKAGE-LOCKS-INIT.  ;; enabled upon startup from the function PACKAGE-LOCKS-INIT.
24  (in-package "LISP")  (in-package "LISP")
25  (defparameter *enable-package-locked-errors* nil)  (defparameter *enable-package-locked-errors* nil)
26    (ext:unlock-all-packages)
27    
28  (define-condition genesis-c-header-file-changed (warning)  (define-condition genesis-c-header-file-changed (warning)
29    ((name :initarg :name :reader genesis-c-header-file-name))    ((name :initarg :name :reader genesis-c-header-file-name))
# Line 302  Line 303 
303            ((c:target-featurep :alpha) "alpha/")            ((c:target-featurep :alpha) "alpha/")
304            ((c:target-featurep :sgi) "mips/")            ((c:target-featurep :sgi) "mips/")
305            ((c:target-featurep :ppc) "ppc/")            ((c:target-featurep :ppc) "ppc/")
306              ((c:target-featurep :amd64) "amd64/")
307            (t            (t
308             (error "What machine is this?")))             (error "What machine is this?")))
309      (make-pathname :directory (pathname-directory f)))))      (make-pathname :directory (pathname-directory f)))))
310    
311    
312  ;;; CAT-IF-ANYTHING-CHAGNED  ;;; CAT-IF-ANYTHING-CHANGED
313    
314  (defun cat-if-anything-changed (output-file &rest input-files)  (defun cat-if-anything-changed (output-file &rest input-files)
315    (flet ((add-correct-type (pathname)    (flet ((add-correct-type (pathname)

Legend:
Removed from v.1.31.2.1  
changed lines
  Added in v.1.40

  ViewVC Help
Powered by ViewVC 1.1.5