CMUCL commit: src/compiler/generic (vm-typetran.lisp)

[Raymond Toy]

    Date: Tuesday, November 3, 2009 @ 20:28:48
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler/generic

Modified: vm-typetran.lisp

Oops.  Really enable the type predicates for simple-arrays of
double-double floats and complex double-double floats.


------------------+
 vm-typetran.lisp |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)


Index: src/compiler/generic/vm-typetran.lisp
diff -u src/compiler/generic/vm-typetran.lisp:1.17 src/compiler/generic/vm-typetran.lisp:1.18
--- src/compiler/generic/vm-typetran.lisp:1.17	Fri Jun 30 14:41:23 2006
+++ src/compiler/generic/vm-typetran.lisp	Tue Nov  3 20:28:47 2009
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/generic/vm-typetran.lisp,v 1.17 2006-06-30 18:41:23 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/generic/vm-typetran.lisp,v 1.18 2009-11-04 01:28:47 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -67,7 +67,7 @@
 #+long-float
 (define-type-predicate simple-array-long-float-p
 		       (simple-array long-float (*)))
-#+(and t double-double)
+#+double-double
 (define-type-predicate simple-array-double-double-float-p
 		       (simple-array double-double-float (*)))
 
@@ -78,7 +78,7 @@
 #+long-float
 (define-type-predicate simple-array-complex-long-float-p
 		       (simple-array (complex long-float) (*)))
-#+(and t double-double)
+#+double-double
 (define-type-predicate simple-array-complex-double-double-float-p
 		       (simple-array (complex double-double-float) (*)))
 (define-type-predicate system-area-pointer-p system-area-pointer)