Wrap CAR, CDR, and CONS in functions.

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)))