Add IN-PACKAGE directives to init.lisp.

1 files changed, 8 insertions, 3 deletions

diff --git a/list-functions.lisp b/list-functions.lisp
index 1aac8f8..c23f486 100644
--- a/list-functions.lisp
+++ b/list-functions.lisp
@@ -51,7 +51,7 @@
   (car (cdr (first args))))
 
 (shadow 'car)
-(export 'car)
+(unexport 'sys::car (find-package :sys))
 (%defun car args
   (sys::car (first args)))
 
@@ -98,7 +98,7 @@
   (cdr (cdr (first args))))
 
 (shadow 'cdr)
-(export 'cdr)
+(unexport 'sys::cdr (find-package :sys))
 (%defun cdr args
   (sys::cdr (first args)))
 
@@ -138,6 +138,11 @@
 ;;;; CONS
 ;;;;-----------------------------------------------------------------
 (shadow 'cons)
-(export 'cons)
+(unexport 'sys::cons (find-package :sys))
 (%defun cons args
   (sys::cons (first args) (second args)))
+
+
+;;;;-----------------------------------------------------------------
+(export '(cons car cdr list* first second third fourth fifth sixth
+          seventh eigthth ninth tenth))