Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
A
asdf
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Container Registry
Model registry
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Didier Verna
asdf
Commits
574e5247
Commit
574e5247
authored
10 years ago
by
Robert P. Goldman
Browse files
Options
Downloads
Patches
Plain Diff
Fix docstring. No code change.
parent
2d731c41
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
uiop/image.lisp
+20
-20
20 additions, 20 deletions
uiop/image.lisp
with
20 additions
and
20 deletions
uiop/image.lisp
+
20
−
20
View file @
574e5247
...
@@ -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.
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment