summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))