diff options
Diffstat (limited to 'Lisp/libobjcl.lisp')
| -rw-r--r-- | Lisp/libobjcl.lisp | 6 |
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) |