diff options
| -rw-r--r-- | list-functions.lisp | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/list-functions.lisp b/list-functions.lisp index 4b4b7fe..1aac8f8 100644 --- a/list-functions.lisp +++ b/list-functions.lisp @@ -50,6 +50,11 @@ (%defun cadr args (car (cdr (first args)))) +(shadow 'car) +(export 'car) +(%defun car args + (sys::car (first args))) + (%defun cdaaar args (cdr (caaar (first args)))) @@ -92,6 +97,11 @@ (%defun cddr args (cdr (cdr (first args)))) +(shadow 'cdr) +(export 'cdr) +(%defun cdr args + (sys::cdr (first args))) + ;;;;----------------------------------------------------------------- ;;;; SECOND ... TENTH @@ -122,3 +132,12 @@ (%defun tenth args (car (cdddr (cdddr (cdddr (car args)))))) + + +;;;;----------------------------------------------------------------- +;;;; CONS +;;;;----------------------------------------------------------------- +(shadow 'cons) +(export 'cons) +(%defun cons args + (sys::cons (first args) (second args))) |