X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=web-utils.lisp;h=1c475a8379a650c62fb0f259276f7e4ac9a2855d;hp=1614fe4fa33703501a03bdf859596db8b5474159;hb=a287b1a6782d53c22fc1807e44aae62fb7094bc5;hpb=32a02979816f6bf742c6b54b4c7eb92bd8ad82c2 diff --git a/web-utils.lisp b/web-utils.lisp index 1614fe4..1c475a8 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.10 2003/06/06 21:59:30 kevin Exp $ +;;;; $Id: web-utils.lisp,v 1.11 2003/06/12 02:38:39 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -22,22 +22,21 @@ ;;; HTML/XML constants (defvar *standard-xml-header* - #.(format nil "~%~%~%")) + #.(format nil "~%~%~%")) (defvar *standard-html-header* "") (defvar *standard-xhtml-header* - #.(format nil "~%")) + #.(format nil "~%")) ;;; User agent functions (defun user-agent-ie-p (agent) "Takes a user-agent string and returns T for Internet Explorer." - (when (or (string-equal "Microsoft" (subseq agent 0 (length "Microsoft"))) - (string-equal "Internet Explore" (subseq agent 0 (length "Internet Explore"))) - (search "MSIE" agent)) - t)) + (or (string-starts-with "Microsoft" agent) + (string-starts-with "Internet Explore" agent) + (search "MSIE" agent))) ;;; URL Functions