Update of /project/closure/cvsroot/closure/src/css In directory clnet:/tmp/cvs-serv20327

Modified Files: css-selector.lisp css-setup.lisp Log Message: Trivial bugfixes.

--- /project/closure/cvsroot/closure/src/css/css-selector.lisp 2005/05/04 19:30:48 1.6 +++ /project/closure/cvsroot/closure/src/css/css-selector.lisp 2006/12/26 14:19:18 1.7 @@ -833,7 +833,7 @@ (subseq seq (+ p1 1) p2))) (parse-style-sheet* seq (+ p2 1) nil)) ))))) (t - (warn "Bad css syntax: " (as-string seq)) + (warn "Bad css syntax: ~A" (as-string seq)) nil)))))

--- /project/closure/cvsroot/closure/src/css/css-setup.lisp 2005/03/13 18:00:58 1.4 +++ /project/closure/cvsroot/closure/src/css/css-setup.lisp 2006/12/26 14:19:18 1.5 @@ -4,7 +4,7 @@ ;;; Created: 1998-06-18 ;;; Author: Gilbert Baumann gilbert@base-engineering.com ;;; License: MIT style (see below) -;;; $Id: css-setup.lisp,v 1.4 2005/03/13 18:00:58 gbaumann Exp $ +;;; $Id: css-setup.lisp,v 1.5 2006/12/26 14:19:18 emarsden Exp $ ;;; --------------------------------------------------------------------------- ;;; (c) copyright 1998-2002 by Gilbert Baumann

@@ -394,10 +394,8 @@ 'new-interpret-length) (round (* a dpi 12) 72)) (t - (* a font-size)) - (t - (round (* a dpi 12) 72)))) - (:ex + (* a font-size)))) + (:ex (cond ((and pt (not (realp font-size))) (warn "In ~S: font-size not available -- fix your programm." 'new-interpret-length) @@ -459,6 +457,9 @@

;; $Log: css-setup.lisp,v $ +;; Revision 1.5 2006/12/26 14:19:18 emarsden +;; Trivial bugfixes. +;; ;; Revision 1.4 2005/03/13 18:00:58 gbaumann ;; Gross license change ;;