diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-04 21:09:18 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-04 21:09:18 +0100 |
| commit | 8213c316e035a83738438d73f0ebb7be3dfeae66 (patch) | |
| tree | efe16939454d7b96e0ad0b61c7f81cd6ac2de747 | |
| parent | 0e2686815a5b066e84fc3bd091073be0d0543f70 (diff) | |
Remove obsolete function OBJC-CLASS-OF.
darcs-hash:41dbdbf37b8a66d07d7948be16fe884d7c110af2
| -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) |