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