Add IN-PACKAGE directives to init.lisp.

3 files changed, 12 insertions, 3 deletions

diff --git a/MLKPackage.m b/MLKPackage.m
index 568dfd3..608efab 100644
--- a/MLKPackage.m
+++ b/MLKPackage.m
@@ -52,6 +52,8 @@ static NSMutableDictionary *packages = nil;
 
   [MLKPackage packageWithName:@"KEYWORD" nicknames:[NSSet set]];
 
+  [cl usePackage:sys];
+
   [tlUser usePackage:cl];
   [tlUser usePackage:toilet];
 
diff --git a/init.lisp b/init.lisp
index a74f771..4c4f5f0 100644
--- a/init.lisp
+++ b/init.lisp
@@ -1,3 +1,5 @@
+(in-package :common-lisp)
 (load "util.lisp")
 (load "cond.lisp")
 (load "list-functions.lisp")
+(in-package :common-lisp-user)
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))