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