common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

muffle message on sbcl-bin/1.1.8

Browse source
This commit is contained in:
SANO Masatoshi 2015-02-22 01:45:41 +09:00
parent 8bce69ddca
commit ee5a2f52c8
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/lisp/init.lisp
View file

@ -89,12 +89,11 @@
(declare (ignorable cmd rest))
(cl:eval (read-from-string arg)))
(defun quit (cmd &rest rest)
(declare (ignorable cmd rest))
(let ((ret (or (first rest) 0)))
(ignore-errors
(asdf::quit ret))
#+sbcl(cl-user::quit :unix-status ret)))
(defun quit (return-code &rest rest)
(let ((ret (or (and (numberp return-code) return-code) (first rest) 0)))
(ignore-errors(funcall 'asdf::quit ret))
#+sbcl(ignore-errors(cl-user::exit :code ret))
#+sbcl(ignore-errors(funcall (read-from-string "cl-user::quit") :unix-status ret))))
(defun restart (cmd arg &rest rest)
(declare (ignorable cmd rest))