From 60abcd66e70078fe305200cf857a61d03d9f46a7 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 24 Mar 1990 18:46:49 +0000
Subject: [PATCH] Deftype character to be base-character, 'cause they are one
 and the same.

deftype char-int to be the same as char-code.

remove deftype of bit-names 'cause they are no longer needed.
---
 compiler/generic/vm-type.lisp | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/compiler/generic/vm-type.lisp b/compiler/generic/vm-type.lisp
index 1933eade8..fee581e61 100644
--- a/compiler/generic/vm-type.lisp
+++ b/compiler/generic/vm-type.lisp
@@ -31,6 +31,13 @@
 ;;;
 (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.
+(compiler-let ((lisp::*bootstrap-deftype* t))
+  (remhash 'character *builtin-types*)
+  (deftype character () 'base-character))
+
 ;;;
 ;;; An index into an integer.
 (deftype bit-index () `(integer 0 ,most-positive-fixnum))
@@ -59,10 +66,7 @@
 (deftype byte-specifier () 'cons)
 ;;;
 ;;; Result of Char-Int...
-(deftype char-int () '(unsigned-byte 16))
-;;;
-;;; Legal character bit names:
-(deftype bit-names () '(member :control :meta :super :hyper))
+(deftype char-int () 'char-code)
 ;;;
 ;;; Pathname pieces, as returned by the PATHNAME-xxx functions.
 (deftype pathname-host () '(or simple-string null)); Host not really supported...
-- 
GitLab