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

Modified Files: css-parse.lisp Log Message: Cleanups.

--- /project/closure/cvsroot/closure/src/css/css-parse.lisp 2006/12/31 12:05:33 1.7 +++ /project/closure/cvsroot/closure/src/css/css-parse.lisp 2007/01/04 23:46:25 1.8 @@ -1019,6 +1019,7 @@

(defun parse-style-sheet-from-url (url &key (name "Anonymous Sheet")) (netlib:with-open-document ((input mime-type) url) + (declare (ignore mime-type)) (css:parse-style-sheet input nil :name name :base-url url))) @@ -1118,8 +1119,7 @@ r))))

(defun generate-slot-constants-1 () - (let ((defconstants nil) - (k 0)) + (let ((defconstants nil)) ;; we go to some length to keep the indicies stable ... (let ((props nil) (taken nil))