summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-07-07 21:30:45 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-07-07 21:30:45 +0200
commit13715775d26700ba8d0b3ccb2e29be7c2a60e869 (patch)
tree98528f5e70298f70c3c1b02b86f96f2fa60e3a26
parent3658d999dab28812d1a1b6c3527ed386a668b9e7 (diff)
Redefine CONSP, LISTP, and NULL as functions.
-rw-r--r--list-functions.lisp22
1 files changed, 21 insertions, 1 deletions
diff --git a/list-functions.lisp b/list-functions.lisp
index c23f486..9593118 100644
--- a/list-functions.lisp
+++ b/list-functions.lisp
@@ -144,5 +144,25 @@
;;;;-----------------------------------------------------------------
+;;;; TYPE PREDICATES
+;;;;-----------------------------------------------------------------
+(shadow '(consp listp null))
+(unexport '(sys::consp sys::listp sys::null) (find-package :sys))
+
+(%defun consp args
+ (sys::consp (first args)))
+
+(%defun listp args
+ (sys::listp (first args)))
+
+(%defun null args
+ (sys::null (first args)))
+
+;(%deftype cons args '(satisfies consp))
+;(%deftype list args '(satisfies listp))
+;(%deftype null args '(satisfies null))
+
+
+;;;;-----------------------------------------------------------------
(export '(cons car cdr list* first second third fourth fifth sixth
- seventh eigthth ninth tenth))
+ seventh eigthth ninth tenth consp listp null))