diff --git a/tools/worldload.lisp b/tools/worldload.lisp index fcbe171e7bd51b33642e66fdeccf040150c7cb4f..2fc4cbf2bcc0a1ed6f8c77fa4ff913f625ad2813 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")