From b0d1e6529dfc7408cb5e52e4c36342404ffd161d Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Thu, 29 Jun 2000 07:52:06 +0000
Subject: [PATCH] Blow away the slot-value and slot-boundp compiler-macros
 exported from Lisp when bootstrapping from a lisp core that includes PCL.
 This overcomes trouble noted compiling Gray streams from a core that includes
 PCL.

---
 tools/pclcom.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index ccb2fc9a3..7c4ac881f 100644
--- a/tools/pclcom.lisp
+++ b/tools/pclcom.lisp
@@ -3,7 +3,7 @@
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.20 2000/06/06 10:00:15 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.21 2000/06/29 07:52:06 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,11 @@
   ;; bootstrapping.
   (setf (compiler-macro-function 'make-instance) nil)
   ;;
+  ;; Blow away other compiler-macros exported from Lisp so that bootstrapping
+  ;; doesn't get confused.
+  (setf (compiler-macro-function 'slot-value) nil)
+  (setf (compiler-macro-function 'slot-boundp) nil)
+  ;;
   ;; Undefine all generic functions exported from Lisp so that bootstrapping
   ;; doesn't get confused.
   (let ((class (find-class 'generic-function nil)))
-- 
GitLab