From 5c4bb87c92d78c053de4ab8b22689ec0a505d0cb Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 7 Mar 1990 12:05:29 +0000
Subject: [PATCH] Moved bootstrap hacks out of this file so that they can be
 compiled afterward but still loaded before the structures are defined.

---
 code/struct.lisp | 38 --------------------------------------
 1 file changed, 38 deletions(-)

diff --git a/code/struct.lisp b/code/struct.lisp
index 30a144080..d01cf6db1 100644
--- a/code/struct.lisp
+++ b/code/struct.lisp
@@ -16,44 +16,6 @@
 
 (in-package 'c)
 
-;;; Initialization hacks:
-
-#+new-compiler
-(progn
-;;; Make these types be sort-of-defined to allow bootstrapping.
-(setf (info type defined-structure-info 'defstruct-description)
-      (make-defstruct-description))
-
-(setf (info type defined-structure-info 'defstruct-slot-description)
-      (make-defstruct-description))
-
-
-;;; Define this now so that EQUAL works:
-;;;
-(defun pathnamep (x)
-  (and (structurep x)
-       (eq (%primitive header-ref x %g-vector-structure-name-slot)
-	   'pathname)))
-
-;;; Define so that we can test for VOLATILE-INFO-ENVs from the beginning of
-;;; initialization.
-;;;
-(defun c::volatile-info-env-p (x)
-  (and (structurep x)
-       (eq (%primitive header-ref x %g-vector-structure-name-slot)
-	   'c::volatile-info-env)))
-
-;;; Not really a structure, but at least a type-related initialization hack:
-;;;
-(deftype c::inlinep ()
-  '(member :inline :maybe-inline :notinline nil))
-;;;
-(deftype c::boolean ()
-  '(member t nil))
-
-); #+new-compiler
-
-
 (defstruct (defstruct-description
              (:conc-name dd-)
              (:print-function print-defstruct-description))
-- 
GitLab