diff options
| -rw-r--r-- | MLKPackage.m | 2 | ||||
| -rw-r--r-- | init.lisp | 2 | ||||
| -rw-r--r-- | 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]; @@ -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)) |