From 83044ff2e19652611f0859efd21252fb483ad4ca Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 6 Jul 2008 20:08:20 +0200
Subject: Add IN-PACKAGE directives to init.lisp.

---
 MLKPackage.m        |  2 ++
 init.lisp           |  2 ++
 list-functions.lisp | 11 ++++++++---
 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))
-- 
cgit v1.2.3