diff --git a/code/lispinit.lisp b/code/lispinit.lisp index 03909cb4de84b27b6da786dcde20f6501f20d657..c3464b578711cabaa02f6be06be0c6eba1126f33 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.37 1993/08/19 11:38:20 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.38 1993/08/19 12:46:05 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -152,10 +152,7 @@ (print-and-call filesys-init) (print-and-call reader-init) - (print-and-call backq-init) - (print-and-call sharp-init) - ;; After the various reader subsystems have done their thing to the standard - ;; readtable, copy it to *readtable*. + ;; Note: sharpm and backq not yet loaded, so this is not the final RT. (setf *readtable* (copy-readtable std-lisp-readtable)) (print-and-call stream-init)