From 92c313359572583b5054aa52c6234be869f64f26 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 20 Aug 1993 00:40:56 +0000
Subject: [PATCH] Flushed calls to backq-init and sharp-init.  Initialize
 std-lisp-readable from *readable* instead of vice-versa, becase *readable* is
 bound by load & can't be effectively assigned.

---
 tools/worldload.lisp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index fcbe171e7..2fc4cbf2b 100644
--- a/tools/worldload.lisp
+++ b/tools/worldload.lisp
@@ -6,7 +6,7 @@
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.68 1993/08/19 21:40:27 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.69 1993/08/20 00:40:56 ram Exp $
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -26,10 +26,9 @@
 
 ;;; Load the rest of the reader (may be byte-compiled.)
 (load "target:code/sharpm")
-(sharp-init)
 (load "target:code/backq")
-(backq-init)
-(setf *readtable* (copy-readtable std-lisp-readtable))
+(setq std-lisp-readtable (copy-readtable *readtable*))
+
 (load "target:code/extensions")
 (load "target:code/defmacro")
 (load "target:code/sysmacs")
-- 
GitLab