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@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)