;;;; files for more information.
(in-package "SB!KERNEL")
+
+(/show0 "deftypes-for-target.lisp 14")
\f
;;;; Now that DEFTYPE is set up, any pending requests for it can
;;;; be honored.
#\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z #\{
#\| #\} #\~))
-;;; FIXME: Would type inference be able to get more traction on this
-;;; if it were defined as (AND SYMBOL (SATISFIES KEYWORDP))?
(sb!xc:deftype keyword ()
- #!+sb-doc
- "Type for any keyword symbol."
- '(satisfies keywordp))
+ ;; Defining this as (AND SYMBOL ..) lets (SUBTYPEP 'KEYWORD 'SYMBOL)=>T,T.
+ '(and symbol (satisfies keywordp)))
(sb!xc:deftype eql (n) `(member ,n))
(sb!xc:deftype simple-bit-vector (&optional size)
`(simple-array bit (,size)))
\f
-;;;; some private types that we use in defining the standard functions
+;;;; some private types that we use in defining the standard functions,
+;;;; or implementing declarations in standard compiler transforms
;;; a type specifier
(sb!xc:deftype type-specifier () '(or list symbol sb!xc:class))
;;; something legal in an evaluated context
;;; FIXME: could probably go away
-(sb!xc:deftype form () 't)
+(sb!xc:deftype form () t)
;;; Maclisp compatibility...
;;; FIXME: should be STRING-DESIGNATOR (the term used in the ANSI spec)
;;; a thing legal in places where we want the name of a file
(sb!xc:deftype filename () '(or string pathname))
-;;; a legal arg to pathname functions
+;;; legal args to pathname functions
(sb!xc:deftype pathname-designator ()
'(or string pathname stream))
+(sb!xc:deftype logical-host-designator ()
+ '(or host string))
;;; a thing returned by the irrational functions. We assume that they
;;; never compute a rational result.
'(or float (complex float)))
;;; character components
-(sb!xc:deftype char-code () `(integer 0 (,char-code-limit)))
+(sb!xc:deftype char-code () `(integer 0 (,sb!xc:char-code-limit)))
;;; a consed sequence result. If a vector, is a simple array.
(sb!xc:deftype consed-sequence () '(or list (simple-array * (*))))
`(integer 0 (,(ash 1 sb!vm:single-float-digits))))
(sb!xc:deftype double-float-significand ()
`(integer 0 (,(ash 1 sb!vm:double-float-digits))))
+
+(/show0 "deftypes-for-target.lisp end of file")