From a0eb0670c41bc92642e03d0da063fa7d23a767e3 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 23 Jul 1990 13:34:32 +0000 Subject: [PATCH] Uncommmented-out hemlock loading, and specified the right base file for the load-foreign call. --- tools/worldload.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/tools/worldload.lisp b/tools/worldload.lisp index e3518296f..a9d83d236 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -66,7 +66,8 @@ ;;; Load the symbol table information for the Lisp start up code. ;;; Used by CLX for the C routine to connect to the X11 server. ;;; -(load-foreign nil) +(load-foreign nil '("-lc") "/usr/cs/bin/ld" + (namestring (truename "build:boot/lisp"))) ;;; This has to occur after the call to LOAD-FOREIGN. ;;; @@ -94,13 +95,14 @@ (load "code:wire") (load "code:remote") -#| +#+hemlock(progn ;;; Hemlock. ;;; (load "hem:rompsite") ;Contains site-init stuff called at load time. (load "hem:load-hem.lisp") (hi::build-hemlock) +#| ;;; Setup definition editing defaults to look in the stable AFS directory. ;;; The first translation says what we want most clearly, but we require ;;; the others due to symbol links. @@ -125,8 +127,11 @@ "/afs/cs/project/clisp/systems/") (ed::add-definition-dir-translation "/usr2/lisp/" "/afs/cs/project/clisp/systems/") +|# +); #+hemlock progn +#| ;;; PCL. ;;; (load "pcl:defsys") @@ -166,5 +171,4 @@ lisp::%top-level extensions:save-lisp ,lisp::fop-codes - compile-file) - :init-function #'lisp::world-load-init-function)) + compile-file))) -- GitLab