Update of /project/clhp/cvsroot/clhp/config In directory common-lisp.net:/tmp/cvs-serv20475/config
Modified Files: lispc.lisp build-core.lisp Log Message: Addedd loading of lisp-init
Date: Mon Nov 10 10:37:04 2003 Author: aventimiglia
Index: clhp/config/lispc.lisp diff -u clhp/config/lispc.lisp:1.3 clhp/config/lispc.lisp:1.4 --- clhp/config/lispc.lisp:1.3 Wed Oct 15 08:50:52 2003 +++ clhp/config/lispc.lisp Mon Nov 10 10:37:04 2003 @@ -1,5 +1,5 @@ (ext:file-comment - "$Id: lispc.lisp,v 1.3 2003/10/15 12:50:52 aventimiglia Exp $") + "$Id: lispc.lisp,v 1.4 2003/11/10 15:37:04 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -20,6 +20,8 @@ ;; ;; email: aventimiglia@common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ +(eval-when (:load-toplevel :compile-toplevel) + (load "lisp-init"))
;; This isn't really necessary, but it creates an exit code if there ;; is a compile-time error, making make aware of the problem, and not
Index: clhp/config/build-core.lisp diff -u clhp/config/build-core.lisp:1.4 clhp/config/build-core.lisp:1.5 --- clhp/config/build-core.lisp:1.4 Fri Oct 17 08:58:03 2003 +++ clhp/config/build-core.lisp Mon Nov 10 10:37:04 2003 @@ -1,5 +1,5 @@ (ext:file-comment - "$Id: build-core.lisp,v 1.4 2003/10/17 12:58:03 aventimiglia Exp $") + "$Id: build-core.lisp,v 1.5 2003/11/10 15:37:04 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -32,6 +32,9 @@ ;; This is a somewhat modified version of the config.lisp program distributed ;; with cmucl. config.lisp could have been used, but this is automatic and ;; not subject to change + +(eval-when (:load-toplevel :compile-toplevel) + (load "lisp-init"))
(in-package "USER")