;;; vim :ft=lisp
;;; Touched: <03-Oct-03 10:38:44 IST, madhu>
(in-package "CL-USER")
#-mk-defsystem ;; say no to defsystem
(require :defsystem)

(let ((*sktdir* (or #-nil #p"c:/madhu/proj/pk/"
                    (make-pathname :name nil :type nil :version nil 
                      :defaults (parse-namestring *load-truename*)))))

(flet ((wildify (&rest components)
        (merge-pathnames (make-pathname :name :wild :type :wild :version :wild
                          :directory (append '(:relative) components))
                         *sktdir*))
       (%fasldir (&rest args)
         (apply (if (fboundp 'user:%fasldir)#'user:%fasldir #'identity) args)))
                   
  (setf (logical-pathname-translations "skt")
        `(("binary;*.*.*"  ,(wildify (%fasldir "binary")))
          ("**;*.*.*"     ,(wildify :wild-inferiors))
          ("*.*.*"        ,(wildify))))) )

(pprint (logical-pathname-translations "skt"))
;; 

(mk:defsystem  "PK"
  :source-pathname #.(translate-logical-pathname #p"skt:")
  :binary-pathname #.(translate-logical-pathname #p"skt:binary;")
  :source-extension "lisp"
  :components ("pktype" "t3" "t1"
               ;; apply our local patch to cl-pdf!
               (:module :cl-pdf :components ("pdf")))
  :depends-on (:cl-pdf))

(let ((mk::*operations-propagate-to-subsystems* nil))
  (mk:load-system :pk :compile-during-load t :minimal-load t))