[movitz-cvs] CVS update: movitz/losp/muerte/print.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv7848

Modified Files:
	print.lisp 
Log Message:
Removed hack from write-integer because there are bignums now.

Date: Wed Jun  2 16:50:34 2004
Author: ffjeld

Index: movitz/losp/muerte/print.lisp
diff -u movitz/losp/muerte/print.lisp:1.9 movitz/losp/muerte/print.lisp:1.10
--- movitz/losp/muerte/print.lisp:1.9	Mon May 24 07:58:44 2004
+++ movitz/losp/muerte/print.lisp	Wed Jun  2 16:50:34 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Sep  3 11:48:19 2001
 ;;;;                
-;;;; $Id: print.lisp,v 1.9 2004/05/24 14:58:44 ffjeld Exp $
+;;;; $Id: print.lisp,v 1.10 2004/06/02 23:50:34 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -113,25 +113,15 @@
       (t (write-char #\# stream)
 	 (write-simple-integer base 10 stream)
 	 (write-char #\r stream))))
-  (block minus-hack			; don't barf on most-negative-fixnum
-    (multiple-value-bind (sign-char print-value)
-	(cond
-	 ((minusp x)
-	  (if (not (eq x most-negative-fixnum))
-	      (values #\- (- x))
-	    (return-from minus-hack
-	      (write-string (case base
-			      (2 #.(cl:format cl:nil "~B" movitz::+movitz-most-negative-fixnum+))
-			      (8 #.(cl:format cl:nil "~O" movitz::+movitz-most-negative-fixnum+))
-			      (10 #.(cl:format cl:nil "~D" movitz::+movitz-most-negative-fixnum+))
-			      (16 #.(cl:format cl:nil "~X" movitz::+movitz-most-negative-fixnum+))
-			      (t (break "minus-hack!?")))
-			    stream))))
-	 (sign-always
-	  (values #\+ x))
-	 (t (values nil x)))
-      (write-lowlevel-integer print-value stream base comma-char comma-interval
-			      mincol padchar sign-char 0)))
+  (multiple-value-bind (sign-char print-value)
+      (cond
+       ((minusp x)
+	(values #\- (- x)))
+       (sign-always
+	(values #\+ x))
+       (t (values nil x)))
+    (write-lowlevel-integer print-value stream base comma-char comma-interval
+			    mincol padchar sign-char 0))
   (when (and radix (= 10 base))
     (write-char #\. stream))
   nil)