[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-serv23769

Modified Files:
	print.lisp 
Log Message:
Starting to add some bignum support.

Date: Mon May 24 10:58:44 2004
Author: ffjeld

Index: movitz/losp/muerte/print.lisp
diff -u movitz/losp/muerte/print.lisp:1.8 movitz/losp/muerte/print.lisp:1.9
--- movitz/losp/muerte/print.lisp:1.8	Wed Apr 21 11:07:48 2004
+++ movitz/losp/muerte/print.lisp	Mon May 24 10:58:44 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.8 2004/04/21 15:07:48 ffjeld Exp $
+;;;; $Id: print.lisp,v 1.9 2004/05/24 14:58:44 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -83,7 +83,8 @@
       (write-digit (rem x base) stream))))
 
 (defun write-lowlevel-integer (x stream base comma-char comma-interval mincol padchar sign-char pos)
-  (let ((bigit (truncate x base)))
+  (multiple-value-bind (bigit rem)
+      (truncate x base)
     (cond
      ((zerop bigit)
       (when mincol
@@ -94,8 +95,8 @@
       (when sign-char
 	(write-char sign-char stream)))
      (t (write-lowlevel-integer bigit stream base comma-char comma-interval
-				mincol padchar sign-char (1+ pos)))))
-  (write-digit (rem x base) stream)
+				mincol padchar sign-char (1+ pos))))
+    (write-digit rem stream))
   (when (and comma-interval (plusp pos) (zerop (rem pos comma-interval)))
     (write-char comma-char stream))
   nil)
@@ -239,7 +240,8 @@
 			(if (and (plusp (length name))
 				 (every (lambda (c)
 					  (or (upper-case-p c)
-					      (member c '(#\- #\% #\$ #\* #\@ #\. #\& #\< #\> #\=))
+					      (member c '(#\+ #\- #\% #\$ #\* #\@ #\. #\&
+							  #\/ #\< #\> #\=))
 					      (digit-char-p c)))
 					name)
 				 (not (every (lambda (c)