Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype In directory clnet:/tmp/cvs-serv13896/Experimental/freetype

Modified Files: mcclim-freetype.asd Log Message: Removed stale font-finding code from Freetype, now everyone uses the non-SBCL code.

--- /project/mcclim/cvsroot/mcclim/Experimental/freetype/mcclim-freetype.asd 2007/12/21 15:27:47 1.7 +++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/mcclim-freetype.asd 2008/01/01 18:44:39 1.8 @@ -64,28 +64,12 @@ location of the Bitstream Vera family of fonts on disk. If you don't have them, get them from http://www.gnome.org/fonts/~%~%~%"))

-#+sbcl -(defmethod perform :after ((o load-op) (s (eql (asdf:find-system :mcclim-freetype)))) - (let ((fc-match (sb-ext:find-executable-in-search-path "fc-match"))) - (if (null fc-match) - (warn-about-unset-font-path) - (let* ((process (sb-ext:run-program fc-match `("-v" "Bitstream Vera") - :output :stream - :input nil)) - (font-path (parse-fontconfig-output (sb-ext:process-output process)))) - (if (null font-path) - (warn-about-unset-font-path) - (setf (symbol-value (intern "*FREETYPE-FONT-PATH*" :mcclim-freetype)) - font-path)))))) - -#-sbcl (defmethod perform :after ((o load-op) (s (eql (asdf:find-system :mcclim-freetype)))) (unless (setf (symbol-value (intern "*FREETYPE-FONT-PATH*" :mcclim-freetype)) (find-bitstream-fonts)) (warn-about-unset-font-path)))

-#-sbcl (defun find-bitstream-fonts () (with-input-from-string (s (with-output-to-string (asdf::*verbose-out*)