Skip to content
Snippets Groups Projects
Commit 574e5247 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Fix docstring. No code change.

parent 2d731c41
No related branches found
No related tags found
No related merge requests found
...@@ -95,8 +95,8 @@ This is designed to abstract away the implementation specific quit forms." ...@@ -95,8 +95,8 @@ This is designed to abstract away the implementation specific quit forms."
(declare (ignorable stream count condition)) (declare (ignorable stream count condition))
#+abcl #+abcl
(loop :for i :from 0 (loop :for i :from 0
:for frame :in (sys:backtrace (or count most-positive-fixnum)) :do :for frame :in (sys:backtrace (or count most-positive-fixnum)) :do
(safe-format! stream "~&~D: ~A~%" i frame)) (safe-format! stream "~&~D: ~A~%" i frame))
#+allegro #+allegro
(let ((*terminal-io* stream) (let ((*terminal-io* stream)
(*standard-output* stream) (*standard-output* stream)
...@@ -120,20 +120,20 @@ This is designed to abstract away the implementation specific quit forms." ...@@ -120,20 +120,20 @@ This is designed to abstract away the implementation specific quit forms."
(debug:backtrace (or count most-positive-fixnum) stream)) (debug:backtrace (or count most-positive-fixnum) stream))
#+(or ecl mkcl) #+(or ecl mkcl)
(let* ((top (si:ihs-top)) (let* ((top (si:ihs-top))
(repeats (if count (min top count) top)) (repeats (if count (min top count) top))
(backtrace (loop :for ihs :from 0 :below top (backtrace (loop :for ihs :from 0 :below top
:collect (list (si::ihs-fun ihs) :collect (list (si::ihs-fun ihs)
(si::ihs-env ihs))))) (si::ihs-env ihs)))))
(loop :for i :from 0 :below repeats (loop :for i :from 0 :below repeats
:for frame :in (nreverse backtrace) :do :for frame :in (nreverse backtrace) :do
(safe-format! stream "~&~D: ~S~%" i frame))) (safe-format! stream "~&~D: ~S~%" i frame)))
#+gcl #+gcl
(let ((*debug-io* stream)) (let ((*debug-io* stream))
(ignore-errors (ignore-errors
(with-safe-io-syntax () (with-safe-io-syntax ()
(if condition (if condition
(conditions::condition-backtrace condition) (conditions::condition-backtrace condition)
(system::simple-backtrace))))) (system::simple-backtrace)))))
#+lispworks #+lispworks
(let ((dbg::*debugger-stack* (let ((dbg::*debugger-stack*
(dbg::grab-stack nil :how-many (or count most-positive-fixnum))) (dbg::grab-stack nil :how-many (or count most-positive-fixnum)))
...@@ -147,8 +147,8 @@ This is designed to abstract away the implementation specific quit forms." ...@@ -147,8 +147,8 @@ This is designed to abstract away the implementation specific quit forms."
stream) stream)
#+xcl #+xcl
(loop :for i :from 0 :below (or count most-positive-fixnum) (loop :for i :from 0 :below (or count most-positive-fixnum)
:for frame :in (extensions:backtrace-as-list) :do :for frame :in (extensions:backtrace-as-list) :do
(safe-format! stream "~&~D: ~S~%" i frame))) (safe-format! stream "~&~D: ~S~%" i frame)))
(defun print-backtrace (&rest keys &key stream count condition) (defun print-backtrace (&rest keys &key stream count condition)
"Print a backtrace" "Print a backtrace"
...@@ -248,14 +248,14 @@ if we are not called from a directly executable image." ...@@ -248,14 +248,14 @@ if we are not called from a directly executable image."
;; SBCL and Allegro already separate user arguments from implementation arguments. ;; SBCL and Allegro already separate user arguments from implementation arguments.
#-(or sbcl allegro) #-(or sbcl allegro)
(unless (eq *image-dumped-p* :executable) (unless (eq *image-dumped-p* :executable)
;; LispWorks command-line processing isn't transparent to the user ;; LispWorks command-line processing isn't transparent to the user
;; unless you create a standalone executable; in that case, ;; unless you create a standalone executable; in that case,
;; we rely on cl-launch or some other script to set the arguments for us. ;; we rely on cl-launch or some other script to set the arguments for us.
#+lispworks (return *command-line-arguments*) #+lispworks (return *command-line-arguments*)
;; On other implementations, on non-standalone executables, ;; On other implementations, on non-standalone executables,
;; we trust cl-launch or whichever script starts the program ;; we trust cl-launch or whichever script starts the program
;; to use -- as a delimiter between implementation arguments and user arguments. ;; to use -- as a delimiter between implementation arguments and user arguments.
#-lispworks (setf arguments (member "--" arguments :test 'string-equal))) #-lispworks (setf arguments (member "--" arguments :test 'string-equal)))
(rest arguments))) (rest arguments)))
(defun argv0 () (defun argv0 ()
...@@ -290,7 +290,7 @@ immediately to the surrounding restore process if allowed to continue. ...@@ -290,7 +290,7 @@ immediately to the surrounding restore process if allowed to continue.
Then, comes the restore process itself: Then, comes the restore process itself:
First, call each function in the RESTORE-HOOK, First, call each function in the RESTORE-HOOK,
in the order they were registered with REGISTER-RESTORE-HOOK. in the order they were registered with REGISTER-IMAGE-RESTORE-HOOK.
Second, evaluate the prelude, which is often Lisp text that is read, Second, evaluate the prelude, which is often Lisp text that is read,
as per EVAL-INPUT. as per EVAL-INPUT.
Third, call the ENTRY-POINT function, if any is specified, with no argument. Third, call the ENTRY-POINT function, if any is specified, with no argument.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment