From 5a76e9e7c967da2125a20c1b755ada24e3b41a66 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 28 Jan 1993 12:56:54 +0000 Subject: [PATCH] new structure type system hax. --- tools/worldbuild.lisp | 8 +++++--- tools/worldcom.lisp | 8 +++++--- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp index 1d8f5a9fe..f32d583be 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 1df97c741..181017a8a 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*) -- GitLab