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