[clhp-cvs] CVS update: clhp/config/build-core.lisp clhp/config/.cvsignore - clhp-cvs@common-lisp.net - mailman3.common-lisp.net

17 Oct 2003

Update of /project/clhp/cvsroot/clhp/config
In directory common-lisp.net:/tmp/cvs-serv27650/config
Modified Files:
    build-core.lisp .cvsignore 
Log Message:
Converted all this
to an ASDF system, it's not quite battle tested, but hey, that's
what this is all about.
Date: Fri Oct 17 08:58:03 2003
Author: aventimiglia
Index: clhp/config/build-core.lisp
diff -u clhp/config/build-core.lisp:1.3 clhp/config/build-core.lisp:1.4

--- clhp/config/build-core.lisp:1.3	Wed Oct 15 08:50:52 2003
+++ clhp/config/build-core.lisp	Fri Oct 17 08:58:03 2003
@@ -1,5 +1,5 @@
 (ext:file-comment
- "$Id: build-core.lisp,v 1.3 2003/10/15 12:50:52 aventimiglia Exp $")
+ "$Id: build-core.lisp,v 1.4 2003/10/17 12:58:03 aventimiglia Exp $")
 ;;
 ;; CLHP the Common Lisp Hypertext Preprocessor
 ;; (C) 2003 Anthony J Ventimiglia
@@ -37,21 +37,24 @@
(block abort
   (let ((output-file #p"clhp.core")
-	(packages '(:cgi :clhp)))
-    (gc-off)
-    
-    (dolist (package packages)
-      (when (find-package package)
-	(delete-package package))
-      (handler-case
-       (load (format nil "~A" (string-downcase (string package))))
-       (file-error (c)
-		   (format
-		    t
-		    "There was an file-error in loading "~A"~%Perhaps the proper packages did not build successfully, or maybe you're mokeying around.~%"
-		    (file-error-pathname c))
-		   (unix:unix-exit 1))))
+;	(packages '(:cgi :clhp)))
+)
+	(gc-off)
+    (asdf:operate 'asdf:load-op 'clhp)
+    
+;    (dolist (package packages)
+;      (when (find-package package)
+;        (delete-package package))
+;      (handler-case
+;       (load (format nil "~A" (string-downcase (string package))))
+;       (file-error (c)
+;                   (format
+;                    t
+;                    "There was an file-error in loading "~A"~%Perhaps the proper packages did not build successfully, or maybe you're mokeying around.~%"
+;                    (file-error-pathname c))
+;                   (unix:unix-exit 1))))
+;
     (when (probe-file output-file)
       (multiple-value-bind
      (ignore old new)
Index: clhp/config/.cvsignore
diff -u clhp/config/.cvsignore:1.1 clhp/config/.cvsignore:1.2
--- clhp/config/.cvsignore:1.1	Tue Oct 14 18:47:29 2003
+++ clhp/config/.cvsignore	Fri Oct 17 08:58:03 2003
@@ -1,2 +1,3 @@
+build-core.x86f
 lispc.x86f
 runclcgi

    