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