Skip to content
Snippets Groups Projects
Commit 1cc9a81c authored by ram's avatar ram
Browse files

Added a hack to compiling of type system code to prevent interpreted

deftypes from being installed.  This causes the compiler to break when
it is compiled sage.
parent bbb5e527
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.44 1992/08/06 03:41:13 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.45 1992/09/24 16:27:04 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -78,10 +78,16 @@
(comf "target:code/error")
;;; prevent deftypes from taking effect at compile time so that we don't
;;; install interpreted type expanders causing the compiler to infinitely
;;; recurse.
(defvar *original-%deftype* #'lisp::%deftype)
(setf (fdefinition 'lisp::%deftype) *original-%deftype*)
(comf "target:compiler/type")
(comf "target:compiler/generic/vm-type")
(comf "target:compiler/type-init")
(comf "target:code/pred")
(setf (fdefinition 'lisp::%deftype) *original-%deftype*)
(comf "target:code/alieneval")
(comf "target:code/c-call")
......
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