Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6602
Modified Files:
late-type.lisp
Log Message:
0.8.7.32:
renamed FOO_PAGE masks to FOO_PAGE_MASK in hopes of reducing
future confusion between wordwise equality and bitwise
flag testing (which seemed to be implicit in one of the
GC fixes in 0.8.7.whatever)
Index: late-type.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/late-type.lisp,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -d -r1.101 -r1.102
--- late-type.lisp 11 Dec 2003 13:34:25 -0000 1.101
+++ late-type.lisp 30 Jan 2004 20:55:52 -0000 1.102
@@ -2092,7 +2092,7 @@
(multiple-value-bind (equalp certainp)
(type= (array-type-element-type type1)
(array-type-element-type type2))
- ;; by its nature, the call to TYPE= should never return NIL,
+ ;; By its nature, the call to TYPE= should never return NIL,
;; T, as we don't know what the UNKNOWN-TYPE will grow up to
;; be. -- CSR, 2002-08-19
(aver (not (and (not equalp) certainp)))
@@ -2108,7 +2108,7 @@
(!define-type-method (array :negate) (type)
;; FIXME (and hint to PFD): we're vulnerable here to attacks of the
;; form "are (AND ARRAY (NOT (ARRAY T))) and (OR (ARRAY BIT) (ARRAY
- ;; NIL) (ARRAY CHAR) ...) equivalent? -- CSR, 2003-12-10
+ ;; NIL) (ARRAY CHAR) ...) equivalent?" -- CSR, 2003-12-10
(make-negation-type :type type))
(!define-type-method (array :unparse) (type)
|