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