From a3250d19ef539e61f1499688d7d9737f4932fbc5 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 3 Feb 2008 10:51:40 +0100 Subject: Remove system objective-cl-clozure-compat. See JOURNAL for details. darcs-hash:dafd1509018ef4badd47d9154cc1473f82a81f20 --- Lisp/clozure-compat.lisp | 25 ------------------------- Lisp/defpackage.lisp | 4 ++-- 2 files changed, 2 insertions(+), 27 deletions(-) delete mode 100644 Lisp/clozure-compat.lisp (limited to 'Lisp') 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 -;;;; . - - -(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)) -- cgit v1.2.3