[closure-cvs] CVS update: closure/src/html/html-style.lisp

[Christophe Rhodes]

Update of /project/closure/cvsroot/closure/src/html
In directory common-lisp.net:/tmp/cvs-serv3228/src/html

Modified Files:
	html-style.lisp 
Log Message:
Make it compile under sbcl.  Re-enable the WARNING hack in closure.asd, 
and remove one or two uses of non-standard-chars in code.

Date: Mon Jun 13 12:14:23 2005
Author: crhodes

Index: closure/src/html/html-style.lisp
diff -u closure/src/html/html-style.lisp:1.4 closure/src/html/html-style.lisp:1.5
--- closure/src/html/html-style.lisp:1.4	Sun Mar 13 22:01:59 2005
+++ closure/src/html/html-style.lisp	Mon Jun 13 12:14:22 2005
@@ -1290,7 +1290,7 @@
     (cond ((string-equal :link (car k))
            (let ((links (netlib:parse-http-link-field (cdr k))))
              (cond ((null links)
-                    (warn "HTTP »Link« header field has illegal syntax: ~S." (cdr k)))
+                    (warn "HTTP \"Link\" header field has illegal syntax: ~S." (cdr k)))
                    (t
                     (dolist (link links)
                       (process-head-child document (sgml:lhtml->pt link)))))))))