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