From fba87b963394826b95ba2da6430a678818f8f0f3 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 9 Nov 1991 02:40:14 +0000
Subject: [PATCH] Changed BASE-CHARACTER to BASE-CHAR.  Nuked old-compiler
 bootstrapping noise.

---
 compiler/generic/vm-type.lisp | 25 +++++++------------------
 1 file changed, 7 insertions(+), 18 deletions(-)

diff --git a/compiler/generic/vm-type.lisp b/compiler/generic/vm-type.lisp
index 68379bfa9..3f728914a 100644
--- a/compiler/generic/vm-type.lisp
+++ b/compiler/generic/vm-type.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.26 1991/04/24 12:24:57 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.27 1991/11/09 02:40:14 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.26 1991/04/24 12:24:57 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.27 1991/11/09 02:40:14 wlott Exp $
 ;;;
 ;;;    This file contains implementation-dependent parts of the type support
 ;;; code.  This is stuff which deals with the mapping from types defined in
@@ -28,11 +28,6 @@
 ;;; This is be expanded before the translator gets a chance, so we will get
 ;;; precedence.
 ;;;
-;;; ### Bootstrap hack: if we frob these types in the old compiler environment,
-;;; subtypep will break.
-;;; 
-(compiler-let ((lisp::*bootstrap-deftype* t))
-
 (setf (info type kind 'long-float) :defined)
 (deftype long-float (&optional low high)
   `(double-float ,low ,high))
@@ -41,20 +36,14 @@
 (deftype short-float (&optional low high)
   `(single-float ,low ,high))
 
-); compiler-let
 ;;; Compiled-function is the same as function in this implementation.
 ;;;
 (deftype compiled-function () 'function)
 
-;;; Character is the same as base-character.
-;;; ### Bootstrap hack: base characters don't exist in the old compiler,
-;;; so leave characters alone.  Also, make string-char look like base-char.
-(compiler-let ((lisp::*bootstrap-deftype* t))
-  (setf (info type builtin 'character) nil)
-  (setf (info type kind 'character) :defined)
-  (deftype character () 'base-character)
-  #-new-compiler
-  (deftype string-char () 'base-character))
+;;; Character is the same as base-char.
+(setf (info type builtin 'character) nil)
+(setf (info type kind 'character) :defined)
+(deftype character () 'base-char)
 
 ;;;
 ;;; An index into an integer.
@@ -105,7 +94,7 @@
 ;;;
 (defparameter specialized-array-element-types
   '(bit (unsigned-byte 2) (unsigned-byte 4) (unsigned-byte 8) (unsigned-byte 16)
-	(unsigned-byte 32) base-character single-float double-float))
+	(unsigned-byte 32) base-char single-float double-float))
 
 (deftype unboxed-array (&optional dims)
   (collect ((types (list 'or)))
-- 
GitLab