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