X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=web-utils.lisp;h=ab765d608920776fd000bd21ebc25742387b0d86;hb=f622f091a8648cac7e1e41a5207184c8618a19d5;hp=56afffdd2d3bdc055f2c5221e2a1e215cc5c71e6;hpb=72b483ebb9fd0f02acb1b20ef14ee8bac845eca8;p=kmrcl.git diff --git a/web-utils.lisp b/web-utils.lisp index 56afffd..ab765d6 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.12 2003/06/12 11:10:38 kevin Exp $ +;;;; $Id: web-utils.lisp,v 1.14 2003/06/15 19:01:01 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 @@ -36,6 +36,7 @@ "Takes a user-agent string and returns T for Internet Explorer." (or (string-starts-with "Microsoft" agent) (string-starts-with "Internet Explore" agent) + (search "Safari" agent) (search "MSIE" agent))) ;;; URL Functions