Changeset 114

Timestamp:

Dec 12, 2003, 3:26:57 PM (21 years ago)

Author:

Gary Byers

Message:

COMPLEX-ARRAY, DISPLACED-ARRAY aren't type specifiers.

File:

• trunk/ccl/level-0/l0-pred.lisp (modified) (2 diffs)

trunk/ccl/level-0/l0-pred.lisp

@@ -151 +151 @@
       (not (%array-header-simple-p x)))))
 
-(setf (type-predicate 'complex-array) 'complex-array-p)
-
 (defun simple-array-p (thing)
   "Returns T if the object is a simple array, else returns NIL.
@@ -209 +207 @@
     (values nil 0)))
 
-(setf (type-predicate 'displaced-array) 'displaced-array-p)