Reimplement PRIMITIVE-INVOKE and rename the old version UNSAFE-PRIMITIVE-INVOKE.

darcs-hash:a941bade2677db3d5773c20ffda171c7c9721a98

1 files changed, 3 insertions, 3 deletions

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))))