summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-04 21:09:18 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-04 21:09:18 +0100
commit8213c316e035a83738438d73f0ebb7be3dfeae66 (patch)
treeefe16939454d7b96e0ad0b61c7f81cd6ac2de747 /Lisp
parent0e2686815a5b066e84fc3bd091073be0d0543f70 (diff)
Remove obsolete function OBJC-CLASS-OF.
darcs-hash:41dbdbf37b8a66d07d7948be16fe884d7c110af2
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/libobjcl.lisp6
1 files changed, 0 insertions, 6 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index 9628468..b281cff 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -613,12 +613,6 @@ separating parts by hyphens works nicely in all of the `:INVERT`,
(defun objcl-class-superclass (class)
(objcl-class-superclass/pointer (pointer-to class)))
-(defun objc-class-of (obj)
- (cond ((object-is-meta-class-p obj)
- (error "Tried to get the class of meta class ~S." obj))
- ((object-is-class-p obj) (object-get-meta-class obj))
- (t (object-get-class obj))))
-
;;; (@* "Low-level Data Conversion")
(eval-when (:compile-toplevel :load-toplevel)