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/libobjcl.lisp | |
| parent | 00b37eddac1db3d65b8b8807ee6af2a4f7d4ddfd (diff) | |
Rename OBJCL-CLASS-NAME to OBJC-CLASS-NAME.
darcs-hash:182cc32ffe3cf9105b2da171ffeba042da419624
Diffstat (limited to 'Lisp/libobjcl.lisp')
| -rw-r--r-- | Lisp/libobjcl.lisp | 4 |
1 files changed, 2 insertions, 2 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))) |