projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.86.flaky7.22:
[sbcl.git]
/
src
/
code
/
toplevel.lisp
diff --git
a/src/code/toplevel.lisp
b/src/code/toplevel.lisp
index
cd9463c
..
b8fc243
100644
(file)
--- a/
src/code/toplevel.lisp
+++ b/
src/code/toplevel.lisp
@@
-409,8
+409,6
@@
'string
user-home
"/.sbclrc"))))
'string
user-home
"/.sbclrc"))))
- (/show0 "assigned SYSINIT-TRUENAME and USERINIT-TRUENAME")
-
;; We wrap all the pre-REPL user/system customized startup code
;; in a restart.
;; We wrap all the pre-REPL user/system customized startup code
;; in a restart.
@@
-484,20
+482,14
@@
;; way we can convince the GC to just ignore dead areas of the
;; control stack, so that we don't need to rely on this
;; half-measure?
;; way we can convince the GC to just ignore dead areas of the
;; control stack, so that we don't need to rely on this
;; half-measure?
- (/show0 "at head of LOOP")
(scrub-control-stack)
(scrub-control-stack)
- (/show0 "back from SCRUB-CONTROL-STACK")
(unless noprint
(fresh-line)
(unless noprint
(fresh-line)
- (/show0 "back from FRESH-LINE")
(princ (if (functionp *prompt*)
(funcall *prompt*)
*prompt*))
(princ (if (functionp *prompt*)
(funcall *prompt*)
*prompt*))
- (/show0 "back from PRINC")
- (flush-standard-output-streams)
- (/show0 "back from FLUSH-STANDARD-OUTPUT-STREAMS"))
+ (flush-standard-output-streams))
(let ((form (read *standard-input* nil eof-marker)))
(let ((form (read *standard-input* nil eof-marker)))
- (/show0 "back from READ")
(if (eq form eof-marker)
(quit)
(let ((results (multiple-value-list (interactive-eval form))))
(if (eq form eof-marker)
(quit)
(let ((results (multiple-value-list (interactive-eval form))))