diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp index ccb2fc9a3c971ecb92b709fd05ef703b7d5d7109..7c4ac881fe6f3cae64ec3fafd7d91c0ba66cb3c8 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)))