From c3c78f5d8952cae2fda0006aa7c43d94fa5c36b5 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 6 Feb 1990 12:55:32 +0000
Subject: [PATCH] Added some package hackery so that things will still compile
 in the new ALPHA core.

---
 tools/setup.lisp | 36 ++++++++++++++++--------------------
 1 file changed, 16 insertions(+), 20 deletions(-)

diff --git a/tools/setup.lisp b/tools/setup.lisp
index 68094daf0..e79f0cdda 100644
--- a/tools/setup.lisp
+++ b/tools/setup.lisp
@@ -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")
 
-- 
GitLab