X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=web-utils.lisp;h=64f98176b3a286db11dcf8ca9b03a9b72cae3aa3;hb=547cd5d282aa4531b5d05eddb981df90a03bf59b;hp=56afffdd2d3bdc055f2c5221e2a1e215cc5c71e6;hpb=72b483ebb9fd0f02acb1b20ef14ee8bac845eca8;p=kmrcl.git diff --git a/web-utils.lisp b/web-utils.lisp index 56afffd..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.12 2003/06/12 11:10:38 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