June 2005 - closure-cvs@common-lisp.net - mailman3.common-lisp.net

[closure-cvs] CVS update: closure/src/renderer/clim-device.lisp
by crhodes＠common-lisp.net 20 Jun '05

20 Jun '05

Update of /project/closure/cvsroot/closure/src/renderer In directory common-lisp.net:/tmp/cvs-serv24112/src/renderer Modified Files: clim-device.lisp Log Message: Believe it or not, the clim text style family is :fix, not :fixed. Make it so. Date: Mon Jun 20 17:37:33 2005 Author: crhodes Index: closure/src/renderer/clim-device.lisp diff -u closure/src/renderer/clim-device.lisp:1.9 closure/src/renderer/clim-device.lisp:1.10 --- closure/src/renderer/clim-device.lisp:1.9 Sun Mar 13 22:15:09 2005 +++ closure/src/renderer/clim-device.lisp Mon Jun 20 17:37:33 2005 @@ -82,7 +82,7 @@ :device self))) (loop for family in '("Times" "Helvetica" "Courier") - for clim-family in '(:serif :sans-serif :fixed) + for clim-family in '(:serif :sans-serif :fix) for size-adjust in '(-2 -2 -2) do (loop for weight+style in '((400 :normal) (400 :italic) (700 :normal) (700 :italic)) @@ -127,7 +127,7 @@ :device self))) (loop for family in '("Times" "Helvetica" "Courier") - for clim-family in '(:serif :sans-serif :fixed) + for clim-family in '(:serif :sans-serif :fix) for size-adjust in '(-2 0 -2) do (loop for weight+style in '((400 :normal) (400 :italic) (700 :normal) (700 :italic))

1 0

[closure-cvs] CVS update: closure/src/renderer/list-item.lisp
by crhodes＠common-lisp.net 13 Jun '05

13 Jun '05

Update of /project/closure/cvsroot/closure/src/renderer In directory common-lisp.net:/tmp/cvs-serv3228/src/renderer Modified Files: list-item.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/renderer/list-item.lisp diff -u closure/src/renderer/list-item.lisp:1.2 closure/src/renderer/list-item.lisp:1.3 --- closure/src/renderer/list-item.lisp:1.2 Sun Mar 13 19:03:24 2005 +++ closure/src/renderer/list-item.lisp Mon Jun 13 12:14:23 2005 @@ -60,7 +60,7 @@ ;; ## make this element in a way that it is still possible to ;; overwrite stuff in the style sheet. "Given a list item element 'list-element' return a synthetic element -which serves the rôle of an before psuedo element containing the list item marker" +which serves the role of an before psuedo element containing the list item marker" (let* ((list-style-type (cooked-style-list-style-type style)) (list-style-position (cooked-style-list-style-position style)) (list-style-image (cooked-style-list-style-image style))

1 0

[closure-cvs] CVS update: closure/closure.asd
by crhodes＠common-lisp.net 13 Jun '05

13 Jun '05

Update of /project/closure/cvsroot/closure In directory common-lisp.net:/tmp/cvs-serv3228 Modified Files: closure.asd 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:22 2005 Author: crhodes Index: closure/closure.asd diff -u closure/closure.asd:1.4 closure/closure.asd:1.5 --- closure/closure.asd:1.4 Sun Mar 13 21:54:52 2005 +++ closure/closure.asd Mon Jun 13 12:14:22 2005 @@ -47,14 +47,12 @@ (handler-bind ((sb-ext:compiler-note #'muffle-warning)) (call-next-method))) -#| ;;; Convenience feature: will stop it from breaking into the debugger ;;; under sbcl for full WARNINGs (better to fix the warnings :-). #+sbcl (defmethod perform :around ((o compile-op) s) (setf (operation-on-failure o) :warn) (call-next-method o s)) -|# (defpackage :glisp (:use)) (asdf:defsystem glisp

1 0

[closure-cvs] CVS update: closure/src/html/html-style.lisp
by crhodes＠common-lisp.net 13 Jun '05

13 Jun '05

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

1 0