From 8213c316e035a83738438d73f0ebb7be3dfeae66 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 4 Feb 2008 21:09:18 +0100
Subject: Remove obsolete function OBJC-CLASS-OF.

darcs-hash:41dbdbf37b8a66d07d7948be16fe884d7c110af2
---
 Lisp/libobjcl.lisp | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'Lisp/libobjcl.lisp')

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)
-- 
cgit v1.2.3