Use PRIMITIVE-INVOKE in memory management and clean the codebase up a bit.

darcs-hash:a0d7f10b0b4e7fe43271fcce37523424f43480da

1 files changed, 0 insertions, 33 deletions

diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index 35acb2f..6f66e8c 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -169,39 +169,6 @@ an __exception__, you can simply send it the `self' message.
   (foreign-free obj-data))
 
 
-(defmethod print-object ((object id) stream)
-  (print-unreadable-object (object stream)
-    (format stream "~A `~A' {~X}"
-            (objcl-class-name (primitive-invoke object "class" :id))
-            (primitive-invoke (primitive-invoke object "description" :id)
-                              "UTF8String" :string)
-            (primitive-invoke object "hash" :unsigned-int))))
-
-
-(defmethod print-object ((class objc-class) stream)
-  (print-unreadable-object (class stream)
-    (format stream "~S ~A {~X}"
-            'objc-class
-            (objcl-class-name class)
-            (primitive-invoke class "hash" :unsigned-int))))
-
-
-(defmethod print-object ((selector selector) stream)
-  (print-unreadable-object (selector stream)
-    (format stream "~S `~A'"
-            'selector
-            (selector-name selector))))
-
-
-(defmethod print-object ((exception exception) stream)
-  (print-unreadable-object (exception stream)
-    (format stream "~S ~A {~X}"
-            'exception
-            (primitive-invoke (primitive-invoke exception "name" :id)
-                              "UTF8String" :string)
-            (primitive-invoke exception "hash" :unsigned-int))))
-
-
 ;;;; (@* "Convenience types")
 (deftype c-pointer ()
   '(satisfies pointerp))