From 31a9d8c4a59a2128cf345c3a00b0966cb31a6201 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 6 Jul 2008 16:36:47 +0200
Subject: Wrap CAR, CDR, and CONS in functions.

---
 list-functions.lisp | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

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)))
-- 
cgit v1.2.3