[clhp-cvs] CVS update: clhp/config/lispc.lisp clhp/config/build-core.lisp

[Anthony Ventimiglia]

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