[Openmcl-cvs-notifications] r13019 - /trunk/source/level-1/l1-error-system.lisp

[rme at clozure.com]

Author: rme
Date: Wed Oct 14 17:33:39 2009
New Revision: 13019

Log:
In report-write-to-watched-object, just show the disassembled
instruction object, if present.  We'll rely on PRINT-OBJECT to provide
something meaningful.

This is meant to de-kludge r13018.

Modified:
    trunk/source/level-1/l1-error-system.lisp

Modified: trunk/source/level-1/l1-error-system.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-error-system.lisp (original)
+++ trunk/source/level-1/l1-error-system.lisp Wed Oct 14 17:33:39 2009
@@ -139,15 +139,8 @@
       (t
        (format s "Write to a strange object ~s at byte offset ~s"
 	       object offset)))
-    #+x86-target
     (when instruction
-      (let* ((ds (make-x86-disassembly-state :mode-64 #+x8664-target t
-					              #+x8632-target nil
-					     :code-vector nil
-					     :code-pointer 0))
-	     (str (with-output-to-string (*standard-output*)
-		    (x86-print-bare-disassembled-instruction ds instruction))))
-	(format s "~&Faulting instruction: ~a" (string-trim " " str))))))
+      (format s "~&Faulting instruction: ~s" instruction))))
 =

 (define-condition type-error (error)
   ((datum :initarg :datum)