diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp index 1d8f5a9fe49fab451ad0debb785e0d2a75ae2f6d..f32d583beae6c67e995a84e776d9072cfa769857 100644 --- a/tools/worldbuild.lisp +++ b/tools/worldbuild.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.17 1993/01/15 18:18:11 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.17.1.1 1993/01/28 12:53:21 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -52,9 +52,11 @@ "target:code/type-boot" "target:code/struct" "target:code/error" - "target:compiler/type" + "target:code/typedef" + "target:code/class" + "target:code/type" "target:compiler/generic/vm-type" - "target:compiler/type-init" + "target:code/type-init" "target:code/defstruct" "target:compiler/proclaim" diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp index 1df97c741daaf4fd9040bcabc1c63bb9b1abde07..181017a8a11d30cfe1f1367aa0b77a88ec12d2db 100644 --- a/tools/worldcom.lisp +++ b/tools/worldcom.lisp @@ -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.47 1992/12/16 10:57:11 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.47.1.1 1993/01/28 12:56:54 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -83,9 +83,11 @@ ;;; recurse. (defvar *original-%deftype* #'lisp::%deftype) (setf (fdefinition 'lisp::%deftype) #'list) -(comf "target:compiler/type") +(comf "target:code/typedefs") +(comf "target:code/class") +(comf "target:code/type") (comf "target:compiler/generic/vm-type") -(comf "target:compiler/type-init") +(comf "target:code/type-init") (comf "target:code/pred") (setf (fdefinition 'lisp::%deftype) *original-%deftype*)