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