Skip to content
Snippets Groups Projects
Commit b0d1e652 authored by dtc's avatar dtc
Browse files

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.
parent 9ff9137f
No related branches found
No related tags found
No related merge requests found
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
(ext:file-comment (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 @@ ...@@ -18,6 +18,11 @@
;; bootstrapping. ;; bootstrapping.
(setf (compiler-macro-function 'make-instance) nil) (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 ;; Undefine all generic functions exported from Lisp so that bootstrapping
;; doesn't get confused. ;; doesn't get confused.
(let ((class (find-class 'generic-function nil))) (let ((class (find-class 'generic-function nil)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment