X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=8f64b6ae1dbdf5c5251a4380417a4a890ef4a687;hb=44fa19275c08a17b9d80d95102c1a8bc0da7a17e;hp=ddff8758ab60db3c82125864db18236575a793f3;hpb=9033eb6759e57f21e26e82bf63142152080108f4;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index ddff875..8f64b6a 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -204,8 +204,8 @@
 
 (defmethod describe-object ((x character) s)
   (print-standard-describe-header x s)
-  (format s "~%:_Char-code: ~S" (char-code x))
-  (format s "~%:_Char-name: ~A~%_" (char-name x)))
+  (format s "~%Char-code: ~S" (char-code x))
+  (format s "~%Char-name: ~A" (char-name x)))
 
 (defmethod describe-object ((x array) s)
   (print-standard-describe-header x s)
@@ -270,7 +270,7 @@
                      (sb-alien-internals:unparse-alien-type
                       (sb-alien::heap-alien-info-type info)))
              (format stream "~@:_Address: #x~8,'0X"
-                     (sap-int (eval (sb-alien::heap-alien-info-sap-form info))))))
+                     (sap-int (sb-alien::heap-alien-info-sap info)))))
           ((eq kind :macro)
            (let ((expansion (info :variable :macro-expansion symbol)))
              (format stream "~@:_Expansion: ~S" expansion)))