;;; vim:ft=lisp: ;;; DEFSYSTEM for CL-PDF; Touched: <26-Sep-03 04:00:59 IST, madhu> ;;; (C) 2003 Madhu. Bugs-To: (in-package "CL-USER") #-mk-defsystem ; say no to defsystem (require :defsystem) (defvar *cl-pdf-srcdir* (or #+nil #p"c:/madhu/proj/cl-pdf-2.0.2/" (make-pathname :name nil :type nil :version nil :defaults (parse-namestring *load-truename*)))) (defvar *cl-pdf-bindir* (merge-pathnames (make-pathname :name nil :version nil :type nil :directory (list :relative (user:%fasldir "binary"))) *cl-pdf-srcdir*)) (mk:defsystem :cl-pdf :source-extension "lisp" :source-pathname #.*cl-pdf-srcdir* :binary-pathname #.*cl-pdf-bindir* :components ((:file "defpackage") (:file "config" :depends-on ("defpackage")) (:file "zlib-clisp" :depends-on ("config")) ;madhu (:file "font-metrics" :depends-on ("config")) (:file "encodings" :depends-on ("defpackage")) (:file "font" :depends-on ("font-metrics")) (:file "t1-font.lisp" :depends-on ("font")) (:file "pdf" :depends-on ("font")) (:file "pdf-base" :depends-on ("pdf")) (:file "pdf-geom" :depends-on ("pdf-base")) (:file "text" :depends-on ("pdf-base")) (:file "chart" :depends-on ("text" "pdf-geom"))) ;madhu :depends-on (:uffi) :finally-do (pushnew :cl-pdf cl:*features*)) #| ;; (setf mk::*operations-propagate-to-subsystems* nil) ;; (pushnew :pdf-compress *features*) ;; (setf *features* (remove :pdf-compress *features*)) ;; (setf pdf::*compress-streams* t) (mk:load-system :cl-pdf :minimal-load t :compile-during-load t) |#