Changeset 9310 for trunk/source/level-0/l0-pred.lisp

Timestamp:

Apr 28, 2008, 2:30:15 AM (13 years ago)

Author:

gb

Message:

Move LISTP to l0-pred, since it may be needed to enforce structure
slot type checking that I don't particularly want to pay for.

File:

• trunk/source/level-0/l0-pred.lisp (modified) (1 diff)

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

@@ -919 +919 @@
 
 (setf (type-predicate 'uvector) 'uvectorp)
+
+(defun listp (x)
+  (listp x))