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

[Frode Vatvedt Fjeld]

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

Modified Files:
	format.lisp 
Log Message:
Tried to be somewhat more clever about avoiding keyword-parsing in
calls to write.

Date: Tue Apr 13 10:21:57 2004
Author: ffjeld

Index: movitz/losp/muerte/format.lisp
diff -u movitz/losp/muerte/format.lisp:1.3 movitz/losp/muerte/format.lisp:1.4
--- movitz/losp/muerte/format.lisp:1.3	Wed Mar 24 14:30:15 2004
+++ movitz/losp/muerte/format.lisp	Tue Apr 13 10:21:57 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Mar 23 01:18:36 2002
 ;;;;                
-;;;; $Id: format.lisp,v 1.3 2004/03/24 19:30:15 ffjeld Exp $
+;;;; $Id: format.lisp,v 1.4 2004/04/13 14:21:57 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -51,12 +51,13 @@
 	    (padchar (or (second prefix-parameters) #\space))
 	    (commachar (or (third prefix-parameters) #\,))
 	    (comma-interval (or (fourth prefix-parameters) 3)))
-	(write-integer x *standard-output* :radix nil :base base
-		       :mincol mincol :padchar padchar
-		       :comma-interval (and colon-p comma-interval)
-		       :comma-char commachar
-		       :sign-always at-sign-p))
-    (write x :escape nil :radix nil :base base :readably nil)))
+	(write-integer x *standard-output* base nil
+		       mincol padchar at-sign-p commachar (and colon-p comma-interval)))
+    (let ((*print-escape* nil)
+	  (*print-radix* nil)
+	  (*print-base* base)
+	  (*print-readably* nil))
+      (write x))))
 
 (defun find-directive (string i directive &optional recursive-skip-start
 						    (recursive-skip-end directive))