[closure-cvs] CVS closure/src/css

[emarsden]

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 at 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
 ;;