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