[graphic-forms-cvs] r54 - trunk

[junrue at common-lisp.net]

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))