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)))))))))