[Sbcl-commits] CVS: sbcl/contrib/sb-aclrepl inspect.lisp,1.24.6.1,1.24.6.2

[Kevin R. <kev...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-aclrepl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12236/contrib/sb-aclrepl

Modified Files:
      Tag: x86-64-again-branch
	inspect.lisp 
Log Message:
x86-64-again-branch.19:
	* fix sb-aclrepl inspector's bignum header (reported by Juho Snellman)
	* Add missing instruction bytes in disassembly which were added by
	read-suffix called by prefilter	
	* Disasble old "DEC" disassembly opcode since that is now REX prefix
	* Partial fix of disassembly for POP and DEC


Index: inspect.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/inspect.lisp,v
retrieving revision 1.24.6.1
retrieving revision 1.24.6.2
diff -u -d -r1.24.6.1 -r1.24.6.2
--- inspect.lisp	1 Dec 2004 05:02:45 -0000	1.24.6.1
+++ inspect.lisp	1 Dec 2004 15:30:28 -0000	1.24.6.2
@@ -691,9 +691,8 @@
 	      (ash (ref32 bignum (+ 4 start)) 32))))))
 
 (defmethod inspected-description ((object bignum))
-  (format nil  "bignum ~W with ~D ~A-bit word~:*~P" object
-	  sb-vm::n-word-bits
-	  (bignum-words object)))
+  (format nil  "bignum ~W with ~D ~A-bit word~P" object
+	  (bignum-words object)	sb-vm::n-word-bits (bignum-words object)))
 
 (defmethod inspected-description ((object ratio))
   (format nil "ratio ~W" object))