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

Modified Files: web-server.lisp Log Message: Fix minor HTML bogosity

Date: Fri Jun 11 10:35:33 2004 Author: bmastenbrook

Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.55 lisppaste2/web-server.lisp:1.56 --- lisppaste2/web-server.lisp:1.55 Fri Jun 11 08:00:41 2004 +++ lisppaste2/web-server.lisp Fri Jun 11 10:35:33 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.55 2004/06/11 15:00:41 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.56 2004/06/11 17:35:33 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -512,7 +512,7 @@ `((tr (th "Select a channel:") (td ((select :name "channel") - (option :value "") + ((option :value "")) ,@(mapcar #'(lambda (e) `((option :value ,e ,@(if (string-equal e default-channel) '(:selected "SELECTED")))