summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-09-26 00:31:47 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-09-26 00:31:47 +0200
commit3c913501dd064a8e8411a88f7c6992587e9033cb (patch)
tree0b5cb6e57d041dbe6013fc0014394bbd98c98ff1 /Lisp
parent00b37eddac1db3d65b8b8807ee6af2a4f7d4ddfd (diff)
Rename OBJCL-CLASS-NAME to OBJC-CLASS-NAME.
darcs-hash:182cc32ffe3cf9105b2da171ffeba042da419624
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/libobjcl.lisp4
-rw-r--r--Lisp/utilities.lisp6
2 files changed, 5 insertions, 5 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index e4a3c2d..e5bff30 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -239,8 +239,8 @@ conventional case for namespace identifiers in Objective C."
(declaim (ftype (function ((or objc-class id exception)) string)
- objcl-class-name))
-(defun objcl-class-name (class)
+ objc-class-name))
+(defun objc-class-name (class)
(declare (type (or objc-class id exception) class))
(%objcl-class-name (pointer-to class)))
diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp
index 537fd1c..b8cfa23 100644
--- a/Lisp/utilities.lisp
+++ b/Lisp/utilities.lisp
@@ -117,7 +117,7 @@
(format stream "#.~S" '+nil+)
(print-unreadable-object (object stream)
(format stream "~A `~A' {~X}"
- (objcl-class-name (primitive-invoke object "class" 'id))
+ (objc-class-name (primitive-invoke object "class" 'id))
(primitive-invoke (primitive-invoke object "description" 'id)
"UTF8String" :string)
(cffi:pointer-address pointer))))))
@@ -128,7 +128,7 @@
(with-slots (pointer) class
(format stream "~S ~A {~X}"
(type-of class)
- (objcl-class-name class)
+ (objc-class-name class)
(cffi:pointer-address pointer)))))
@@ -137,7 +137,7 @@
(with-slots (meta-class-for-class pointer) meta-class
(format stream "~S ~A {~X}"
(type-of meta-class)
- (objcl-class-name meta-class-for-class)
+ (objc-class-name meta-class-for-class)
(cffi:pointer-address pointer)))))