[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv21426

Modified Files:
	swank.lisp 
Log Message:
(inspect-for-emacs integer): Don't die if the integer
can't be expressed as a float. (Patch by: Ariel Badichi
<abadichi at bezeqint.net>)


--- /project/slime/cvsroot/slime/swank.lisp	2007/01/10 15:24:07	1.453
+++ /project/slime/cvsroot/slime/swank.lisp	2007/01/11 16:30:48	1.454
@@ -4760,8 +4760,8 @@
   (declare (ignore inspector))
   (values "A number."
           (append
-           `(,(format nil "Value: ~D = #x~8,'0X = #o~O = #b~,,' ,8:B = ~E"
-                      i i i i i)
+           `(,(format nil "Value: ~D = #x~8,'0X = #o~O = #b~,,' ,8:B~@[ = ~E~]"
+                      i i i i (ignore-errors (coerce i 'float)))
               (:newline))
            (when (< -1 i char-code-limit)
              (label-value-line "Code-char" (code-char i)))