diff options
| -rw-r--r-- | list-functions.lisp | 22 |
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)) |