Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
cf88c531
Commit
cf88c531
authored
Sep 05, 1992
by
wlott
Browse files
When printing a frame, ignore errors that occur while looking for the
source.
parent
fb0d5b6d
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/debug.lisp
View file @
cf88c531
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.3
2
1992/0
8
/0
3
1
3:55:14 ram
Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.3
3
1992/0
9
/0
5
1
9:42:52 wlott
Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -610,7 +610,8 @@ See the CMU Common Lisp User's Manual for more information.
(
di:code-location-debug-block
loc
)
(
format
t
"~%Source: "
)
(
print-code-location-source-form
loc
0
))
(
di:debug-condition
(
ignore
)
ignore
)))))
(
di:debug-condition
(
ignore
)
ignore
)
(
error
(
cond
)
(
format
t
"Error finding source: ~A"
cond
))))))
;;;; Invoke-debugger.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment