X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=web-utils.lisp;h=2f0c3a51ae4fdabf66b2e6342c1f4001e9d9fdf5;hp=ab765d608920776fd000bd21ebc25742387b0d86;hb=0ddc73d14e764eeaede64f92b620a0c6de46cfd3;hpb=f622f091a8648cac7e1e41a5207184c8618a19d5 diff --git a/web-utils.lisp b/web-utils.lisp index ab765d6..2f0c3a5 100644 --- a/web-utils.lisp +++ b/web-utils.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: web-utils.lisp,v 1.14 2003/06/15 19:01:01 kevin Exp $ +;;;; $Id: web-utils.lisp,v 1.16 2003/06/17 06:18:09 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -27,7 +27,7 @@ (defvar *standard-html-header* "") (defvar *standard-xhtml-header* - #.(format nil "~%")) + #.(format nil "~%")) ;;; User agent functions @@ -89,7 +89,7 @@ (declare (simple-string s) (optimize (speed 3) (safety 0) (space 0))) (do* ((old-len (length s)) - (new-len (- old-len (* 2 (count-string-char s #\%)))) + (new-len (- old-len (* 2 (the fixnum (count-string-char s #\%))))) (new (make-string new-len)) (p-old 0) (p-new 0 (1+ p-new)))