Author: junrue Date: Mon Mar 20 00:38:50 2006 New Revision: 54

Modified: trunk/build.lisp Log: got rid of dependencies on practicals code from PCL

Modified: trunk/build.lisp ============================================================================== --- trunk/build.lisp (original) +++ trunk/build.lisp Mon Mar 20 00:38:50 2006 @@ -48,8 +48,6 @@ (defvar *closer-mop-dir* (concatenate 'string *asdf-root* "closer-mop/")) (defvar *imagemagick-dir* "c:/Program Files/ImageMagick-6.2.6-Q16/") (defvar *lw-compat-dir* (concatenate 'string *asdf-root* "lw-compat/")) -(defvar *pcl-ch08-dir* (concatenate 'string *asdf-root* "practicals-1.0.3/Chapter08/")) -(defvar *pcl-ch24-dir* (concatenate 'string *asdf-root* "practicals-1.0.3/Chapter24/"))

(defvar *gf-dir* (concatenate 'string *project-root* "graphic-forms/")) (defvar *gf-build-dir* "c:/projects/public/build/graphic-forms/") @@ -59,22 +57,16 @@ (defvar *asdf-dirs* (list *cffi-dir* *closer-mop-dir* *lw-compat-dir* - *pcl-ch08-dir* - *pcl-ch24-dir* *gf-dir*))

(defvar *library-build-root* (concatenate 'string *library-root* "build/")) (defvar *cffi-build-dir* (concatenate 'string *library-build-root* "cffi/")) (defvar *closer-mop-build-dir* (concatenate 'string *library-build-root* "closer-mop/")) (defvar *lw-compat-build-dir* (concatenate 'string *library-build-root* "lw-compat/")) -(defvar *pcl-ch08-build-dir* (concatenate 'string *library-build-root* "pcl-macro-utilities/")) -(defvar *pcl-ch24-build-dir* (concatenate 'string *library-build-root* "pcl-binary-data/"))

(defvar *build-dirs* (list *cffi-build-dir* *closer-mop-build-dir* *lw-compat-build-dir* - *pcl-ch08-build-dir* - *pcl-ch24-build-dir* *gf-build-dir*))

#+lispworks (defmacro chdir (path) @@ -101,13 +93,5 @@ (asdf:operate 'asdf:load-op :closer-mop)

(if *external-build-dirs* - (chdir *pcl-ch08-build-dir*)) - (asdf:operate 'asdf:load-op :macro-utilities) - - (if *external-build-dirs* - (chdir *pcl-ch24-build-dir*)) - (asdf:operate 'asdf:load-op :binary-data) - - (if *external-build-dirs* (chdir *gf-build-dir*)) (asdf:operate 'asdf:load-op :graphic-forms-uitoolkit))