Skip to content
Snippets Groups Projects
Commit 60abcd66 authored by wlott's avatar wlott
Browse files

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.
parent f9c9cd24
No related branches found
No related tags found
No related merge requests found
......@@ -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...
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment