[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files:
	web-server.lisp 
Log Message:
Oops: format t!

Date: Mon Nov 29 21:45:32 2004
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.71 lisppaste2/web-server.lisp:1.72
--- lisppaste2/web-server.lisp:1.71	Mon Nov 29 21:41:55 2004
+++ lisppaste2/web-server.lisp	Mon Nov 29 21:45:31 2004
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.71 2004/11/29 20:41:55 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.72 2004/11/29 20:45:31 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -360,7 +360,6 @@
          (weeks (* hours 487/16))
          (months (* weeks 12))
          (years (* hours (+ 365 1/4))))
-    (format t "weeks is ~S, delta is ~S, floor w/weeks is ~S~%" weeks delta (floor delta weeks))
     (let ((primitive
            (cond
             ((< delta seconds) (format nil "~D second~:P" delta))