X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=web-utils.lisp;h=64f98176b3a286db11dcf8ca9b03a9b72cae3aa3;hb=a42d0a5a2163c47e869d69b5fceb50be914e5fe1;hp=1473a1d9f10373b446fa6118bc847e0c18b20b92;hpb=6729a4cf6ca2361b36a8ada705e7325b62c2fe54;p=kmrcl.git diff --git a/web-utils.lisp b/web-utils.lisp index 1473a1d..64f9817 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.13 2003/06/15 07:48:30 kevin Exp $ +;;;; $Id: web-utils.lisp,v 1.15 2003/06/17 04:56:02 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