diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-26 00:31:47 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-26 00:31:47 +0200 |
| commit | 3c913501dd064a8e8411a88f7c6992587e9033cb (patch) | |
| tree | 0b5cb6e57d041dbe6013fc0014394bbd98c98ff1 /Lisp/utilities.lisp | |
| parent | 00b37eddac1db3d65b8b8807ee6af2a4f7d4ddfd (diff) | |
Rename OBJCL-CLASS-NAME to OBJC-CLASS-NAME.
darcs-hash:182cc32ffe3cf9105b2da171ffeba042da419624
Diffstat (limited to 'Lisp/utilities.lisp')
| -rw-r--r-- | Lisp/utilities.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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))))) |