diff --git a/compiler/generic/vm-typetran.lisp b/compiler/generic/vm-typetran.lisp index f93bab595a26984d5b363f9ac76906ee6da32772..2ba6830bc89d0962fc5c7f68ed0866e1b2294615 100644 --- a/compiler/generic/vm-typetran.lisp +++ b/compiler/generic/vm-typetran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-typetran.lisp,v 1.17 2006/06/30 18:41:23 rtoy Rel $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/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)