summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/clozure-compat.lisp25
-rw-r--r--Lisp/data-types.lisp9
-rw-r--r--Lisp/defpackage.lisp4
3 files changed, 32 insertions, 6 deletions
diff --git a/Lisp/clozure-compat.lisp b/Lisp/clozure-compat.lisp
new file mode 100644
index 0000000..8d6e2ea
--- /dev/null
+++ b/Lisp/clozure-compat.lisp
@@ -0,0 +1,25 @@
+;;;; 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/data-types.lisp b/Lisp/data-types.lisp
index a5ec1ba..a857800 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -95,7 +95,8 @@ The following calls are all equivalent:
(apply #'invoke-by-name receiver selector args))))
-(defclass id (c-pointer-wrapper) ()
+(defclass id (c-pointer-wrapper)
+ ()
(:documentation "An instance of an Objective-C class.
## Description:
@@ -138,9 +139,9 @@ a suitable class method instead as you would in Objective-C.
(define-condition exception (error)
- ((pointer :type c-pointer
- :accessor pointer-to
- :initarg :pointer))
+ ((pointer :type c-pointer
+ :accessor pointer-to
+ :initarg :pointer))
(:report (lambda (condition stream)
(format stream
"The Objective-C runtime has issued an exception of ~
diff --git a/Lisp/defpackage.lisp b/Lisp/defpackage.lisp
index 0543ed5..9151bba 100644
--- a/Lisp/defpackage.lisp
+++ b/Lisp/defpackage.lisp
@@ -68,8 +68,8 @@
#:next-runtime))
-(defpackage #:objective-c-classes
- (:nicknames #:objc-classes)
+(defpackage #:objcl-ns
+ (:nicknames #:objective-c-classes #:objc-classes)
(:use))