/[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.1 by wlott, Tue Feb 6 11:29:35 1990 UTC revision 1.2 by ram, Tue Feb 6 12:55:32 1990 UTC
# Line 45  Line 45 
45  #-new-compiler  #-new-compiler
46  (load "/../fred/usr/ram/hash.fasl")  (load "/../fred/usr/ram/hash.fasl")
47    
48  #-new-compiler  (defun zap-sym (name pkg)
49  (unintern (find-symbol "ABORT" (find-package "C"))    (let ((found (find-symbol name (find-package pkg))))
50            (find-package "C"))      (when (and found
51                   (eq (symbol-package found) (find-package pkg)))
52  #-new-compiler        (unintern found pkg))))
 (let ((found (find-symbol "CONCAT-PNAMES" (find-package "LISP"))))  
   (when found  
     (unintern found (find-package "LISP"))))  
53    
54  #-new-compiler  #-new-compiler
55  (let ((found (find-symbol "ONCE-ONLY" (find-package "COMPILER"))))  (progn
56    (when found    (zap-sym "ABORT" "C")
57      (unintern found (find-package "COMPILER"))))    (zap-sym "CONCAT-PNAMES" "LISP")
58      (zap-sym "ONCE-ONLY" "COMPILER")
59  #-new-compiler    (zap-sym "UNIX-PIPE" "COMPILER")
60  (let ((found (find-symbol "UNIX-PIPE" (find-package "COMPILER"))))    (zap-sym "MAKE-UNIX-PIPE" "MACH")
61    (when found    (zap-sym "UNIX-PIPE-P" "MACH"))
62      (unintern found (find-package "COMPILER"))))  
   
63  #-new-compiler  #-new-compiler
64  (let ((sym (find-symbol "%CHARACTER-TYPE" (find-package "SYSTEM"))))  (let ((sym (find-symbol "%CHARACTER-TYPE" (find-package "SYSTEM"))))
65    (when sym    (when sym
# Line 78  Line 74 
74  #-new-compiler  #-new-compiler
75  (export '(ignorable truly-the maybe-inline))  (export '(ignorable truly-the maybe-inline))
76  #-new-compiler  #-new-compiler
77  (export '(unix-pipe))  (export '(unix-pipe make-unix-pipe unix-pipe-p))
78  #-new-compiler  #-new-compiler
79  (export '(lisp::with-compilation-unit lisp::debug-info) "LISP")  (export '(lisp::with-compilation-unit lisp::debug-info) "LISP")
80    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5