From d9ac18064cf40f6fbbb09ec8ca74de212c012326 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sat, 15 Sep 2007 23:52:00 +0200 Subject: Reimplement PRIMITIVE-INVOKE and rename the old version UNSAFE-PRIMITIVE-INVOKE. darcs-hash:a941bade2677db3d5773c20ffda171c7c9721a98 --- Lisp/utilities.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Lisp/utilities.lisp') diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp index be6f8b4..405cacf 100644 --- a/Lisp/utilities.lisp +++ b/Lisp/utilities.lisp @@ -96,8 +96,8 @@ (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) + (objcl-class-name (primitive-invoke object "class" 'id)) + (primitive-invoke (primitive-invoke object "description" 'id) "UTF8String" :string) (primitive-invoke object "hash" :unsigned-int)))) @@ -121,6 +121,6 @@ (print-unreadable-object (exception stream) (format stream "~S ~A {~X}" 'exception - (primitive-invoke (primitive-invoke exception "name" :id) + (primitive-invoke (primitive-invoke exception "name" 'id) "UTF8String" :string) (primitive-invoke exception "hash" :unsigned-int)))) -- cgit v1.2.3