projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.10.76:
[sbcl.git]
/
src
/
compiler
/
ir1-translators.lisp
diff --git
a/src/compiler/ir1-translators.lisp
b/src/compiler/ir1-translators.lisp
index
0bd6161
..
eb93a2e
100644
(file)
--- a/
src/compiler/ir1-translators.lisp
+++ b/
src/compiler/ir1-translators.lisp
@@
-430,7
+430,7
@@
'(lambda named-lambda instance-lambda lambda-with-lexenv))
(ir1-convert-lambdalike
thing
'(lambda named-lambda instance-lambda lambda-with-lexenv))
(ir1-convert-lambdalike
thing
- :debug-name (debug-namify "#'~S" thing)
+ :debug-name (debug-namify "#'" thing)
:allow-debug-catch-tag t))
((legal-fun-name-p thing)
(find-lexically-apparent-fun
:allow-debug-catch-tag t))
((legal-fun-name-p thing)
(find-lexically-apparent-fun
@@
-544,8
+544,8
@@
(processing-decls (decls vars nil next result)
(let ((fun (ir1-convert-lambda-body
forms vars
(processing-decls (decls vars nil next result)
(let ((fun (ir1-convert-lambda-body
forms vars
- :debug-name (debug-namify "LET ~S"
- bindings))))
+ :debug-name (debug-namify "LET "
+ bindings))))
(reference-leaf start ctran fun-lvar fun))
(values next result))))
(ir1-convert-combination-args fun-lvar ctran next result values))))))
(reference-leaf start ctran fun-lvar fun))
(values next result))))
(ir1-convert-combination-args fun-lvar ctran next result values))))))
@@
-625,7
+625,7
@@
(ir1-convert-lambda d
:source-name n
:debug-name (debug-namify
(ir1-convert-lambda d
:source-name n
:debug-name (debug-namify
- "FLET ~S" n)
+ "FLET " n)
:allow-debug-catch-tag t))
names defs)))
(processing-decls (decls nil fvars next result)
:allow-debug-catch-tag t))
names defs)))
(processing-decls (decls nil fvars next result)
@@
-647,7
+647,7
@@
(make-functional
:%source-name name
:%debug-name (debug-namify
(make-functional
:%source-name name
:%debug-name (debug-namify
- "LABELS placeholder ~S"
+ "LABELS placeholder "
name)))
names))
;; (like PAIRLIS but guaranteed to preserve ordering:)
name)))
names))
;; (like PAIRLIS but guaranteed to preserve ordering:)
@@
-660,7
+660,7
@@
(ir1-convert-lambda def
:source-name name
:debug-name (debug-namify
(ir1-convert-lambda def
:source-name name
:debug-name (debug-namify
- "LABELS ~S" name)
+ "LABELS " name)
:allow-debug-catch-tag t))
names defs))))
:allow-debug-catch-tag t))
names defs))))
@@
-833,7
+833,7
@@
(let ((fun (ir1-convert-lambda
`(lambda ()
(return-from ,tag (%unknown-values)))
(let ((fun (ir1-convert-lambda
`(lambda ()
(return-from ,tag (%unknown-values)))
- :debug-name (debug-namify "escape function for ~S" tag))))
+ :debug-name (debug-namify "escape function for " tag))))
(setf (functional-kind fun) :escape)
(reference-leaf start next result fun)))
(setf (functional-kind fun) :escape)
(reference-leaf start next result fun)))