projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.5.15:
[sbcl.git]
/
src
/
code
/
deftypes-for-target.lisp
diff --git
a/src/code/deftypes-for-target.lisp
b/src/code/deftypes-for-target.lisp
index
ee87d6d
..
ff2401d
100644
(file)
--- a/
src/code/deftypes-for-target.lisp
+++ b/
src/code/deftypes-for-target.lisp
@@
-98,7
+98,8
@@
(sb!xc:deftype simple-bit-vector (&optional size)
`(simple-array bit (,size)))
\f
(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))
;;; a type specifier
(sb!xc:deftype type-specifier () '(or list symbol sb!xc:class))
@@
-110,7
+111,7
@@
;;; something legal in an evaluated context
;;; FIXME: could probably go away
;;; 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)
;;; Maclisp compatibility...
;;; FIXME: should be STRING-DESIGNATOR (the term used in the ANSI spec)
@@
-131,7
+132,7
@@
'(or float (complex float)))
;;; character components
'(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 * (*))))
;;; a consed sequence result. If a vector, is a simple array.
(sb!xc:deftype consed-sequence () '(or list (simple-array * (*))))