projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
disassemble: New customization variable sb-ext:*disassemble-annotate*.
[sbcl.git]
/
contrib
/
sb-aclrepl
/
repl.lisp
diff --git
a/contrib/sb-aclrepl/repl.lisp
b/contrib/sb-aclrepl/repl.lisp
index
9f7dcdc
..
7997a79
100644
(file)
--- a/
contrib/sb-aclrepl/repl.lisp
+++ b/
contrib/sb-aclrepl/repl.lisp
@@
-328,7
+328,7
@@
(map nil #'sb-thread:destroy-thread threads)
(sleep 0.2))
(return-from exit-cmd)))))
(map nil #'sb-thread:destroy-thread threads)
(sleep 0.2))
(return-from exit-cmd)))))
- (sb-ext:quit :unix-status status)
+ (sb-ext:exit :code status)
(values))
(defun package-cmd (&optional pkg)
(values))
(defun package-cmd (&optional pkg)
@@
-553,7
+553,7
@@
(sb-debug::error-debug-command)))))
(defun frame-cmd ()
(sb-debug::error-debug-command)))))
(defun frame-cmd ()
- (sb-debug::print-frame-call sb-debug::*current-frame*))
+ (sb-debug::print-frame-call sb-debug::*current-frame* t))
(defun zoom-cmd ()
)
(defun zoom-cmd ()
)
@@
-783,7
+783,7
@@
;; command
(cond ((eq user-cmd *eof-cmd*)
(when *exit-on-eof*
;; command
(cond ((eq user-cmd *eof-cmd*)
(when *exit-on-eof*
- (sb-ext:quit))
+ (sb-ext:exit))
(format *output* "EOF~%")
t)
((eq user-cmd *null-cmd*)
(format *output* "EOF~%")
t)
((eq user-cmd *null-cmd*)