Remove system objective-cl-clozure-compat.

See JOURNAL for details.

darcs-hash:dafd1509018ef4badd47d9154cc1473f82a81f20

2 files changed, 2 insertions, 27 deletions

diff --git a/Lisp/clozure-compat.lisp b/Lisp/clozure-compat.lisp
deleted file mode 100644
index 8d6e2ea..0000000
--- a/Lisp/clozure-compat.lisp
+++ /dev/null
@@ -1,25 +0,0 @@
-;;;; Objective-CL, an Objective-C bridge for Common Lisp.
-;;;; Copyright (C) 2007  Matthias Andreas Benkard.
-;;;;
-;;;; This program is free software: you can redistribute it and/or
-;;;; modify it under the terms of the GNU Lesser General Public License
-;;;; as published by the Free Software Foundation, either version 3 of
-;;;; the License, or (at your option) any later version.
-;;;;
-;;;; This program is distributed in the hope that it will be useful, but
-;;;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;;;; Lesser General Public License for more details.
-;;;;
-;;;; You should have received a copy of the GNU Lesser General Public
-;;;; License along with this program.  If not, see
-;;;; <http://www.gnu.org/licenses/>.
-
-
-(let* ((package (find-package '#:objective-c-classes))
-       (new-name '#:ns)
-       (new-nicknames (remove new-name
-                              (remove-duplicates
-                               (cons (package-name package)
-                                     (package-nicknames package))))))
-  (rename-package package new-name new-nicknames))
diff --git a/Lisp/defpackage.lisp b/Lisp/defpackage.lisp
index 9151bba..6b5f8eb 100644
--- a/Lisp/defpackage.lisp
+++ b/Lisp/defpackage.lisp
@@ -68,8 +68,8 @@
            #:next-runtime))
 
 
-(defpackage #:objcl-ns
-  (:nicknames #:objective-c-classes #:objc-classes)
+(defpackage #:ns
+  (:nicknames #:objcl-ns #:objective-c-classes #:objc-classes)
   (:use))