summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)