diff options
Diffstat (limited to 'list-functions.lisp')
| -rw-r--r-- | list-functions.lisp | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/list-functions.lisp b/list-functions.lisp index 464a9a4..5e700c4 100644 --- a/list-functions.lisp +++ b/list-functions.lisp @@ -146,8 +146,8 @@ ;;;;----------------------------------------------------------------- ;;;; TYPE PREDICATES ;;;;----------------------------------------------------------------- -(shadow '(consp listp null)) -(unexport '(sys::consp sys::listp sys::null) (find-package :sys)) +(shadow '(consp listp null atom)) +(unexport '(sys::consp sys::listp sys::null sys::atom) (find-package :sys)) (%defun consp args (sys::consp (first args))) @@ -158,9 +158,22 @@ (%defun null args (sys::null (first args))) +(%defun atom args + (sys::atom (first args))) + ;(%deftype cons args '(satisfies consp)) ;(%deftype list args '(satisfies listp)) ;(%deftype null args '(satisfies null)) +;(%deftype atom args '(satisfies atom)) + + +;;;;----------------------------------------------------------------- +;;;; OTHER PREDICATES +;;;;----------------------------------------------------------------- +(%defun endp args + (let ((thing (first args))) + ;;FIXME (check-type thing (first args) list) + (null thing))) ;;;;----------------------------------------------------------------- @@ -178,4 +191,5 @@ ;;;;----------------------------------------------------------------- (export '(cons car cdr list* first second third fourth fifth sixth - seventh eigthth ninth tenth consp listp null rplaca rplacd)) + seventh eigthth ninth tenth atom consp listp null rplaca + rplacd)) |