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