Skip to content
Snippets Groups Projects
Commit c3c78f5d authored by ram's avatar ram
Browse files

Added some package hackery so that things will still compile in the new ALPHA

core.
parent 5151e4a9
No related branches found
No related tags found
No related merge requests found
......@@ -45,25 +45,21 @@
#-new-compiler
(load "/../fred/usr/ram/hash.fasl")
#-new-compiler
(unintern (find-symbol "ABORT" (find-package "C"))
(find-package "C"))
#-new-compiler
(let ((found (find-symbol "CONCAT-PNAMES" (find-package "LISP"))))
(when found
(unintern found (find-package "LISP"))))
#-new-compiler
(let ((found (find-symbol "ONCE-ONLY" (find-package "COMPILER"))))
(when found
(unintern found (find-package "COMPILER"))))
#-new-compiler
(let ((found (find-symbol "UNIX-PIPE" (find-package "COMPILER"))))
(when found
(unintern found (find-package "COMPILER"))))
(defun zap-sym (name pkg)
(let ((found (find-symbol name (find-package pkg))))
(when (and found
(eq (symbol-package found) (find-package pkg)))
(unintern found pkg))))
#-new-compiler
(progn
(zap-sym "ABORT" "C")
(zap-sym "CONCAT-PNAMES" "LISP")
(zap-sym "ONCE-ONLY" "COMPILER")
(zap-sym "UNIX-PIPE" "COMPILER")
(zap-sym "MAKE-UNIX-PIPE" "MACH")
(zap-sym "UNIX-PIPE-P" "MACH"))
#-new-compiler
(let ((sym (find-symbol "%CHARACTER-TYPE" (find-package "SYSTEM"))))
(when sym
......@@ -78,7 +74,7 @@
#-new-compiler
(export '(ignorable truly-the maybe-inline))
#-new-compiler
(export '(unix-pipe))
(export '(unix-pipe make-unix-pipe unix-pipe-p))
#-new-compiler
(export '(lisp::with-compilation-unit lisp::debug-info) "LISP")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment