From 118a7b354f6d8af1fecdaa5d6572244724d94e9f Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 4 Nov 2009 01:28:47 +0000
Subject: [PATCH] Oops.  Really enable the type predicates for simple-arrays of
 double-double floats and complex double-double floats.

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

diff --git a/compiler/generic/vm-typetran.lisp b/compiler/generic/vm-typetran.lisp
index f93bab595..2ba6830bc 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)
-- 
GitLab