projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.16.20:
[sbcl.git]
/
src
/
code
/
target-format.lisp
diff --git
a/src/code/target-format.lisp
b/src/code/target-format.lisp
index
a31bc51
..
26616bc
100644
(file)
--- a/
src/code/target-format.lisp
+++ b/
src/code/target-format.lisp
@@
-76,8
+76,11
@@
(multiple-value-bind (new-directives new-args)
(let* ((character (format-directive-character directive))
(function
(multiple-value-bind (new-directives new-args)
(let* ((character (format-directive-character directive))
(function
+ (typecase character
+ (base-char
(svref *format-directive-interpreters*
(char-code character)))
(svref *format-directive-interpreters*
(char-code character)))
+ (character nil)))
(*default-format-error-offset*
(1- (format-directive-end directive))))
(unless function
(*default-format-error-offset*
(1- (format-directive-end directive))))
(unless function
@@
-835,7
+838,7
@@
(setf args (nthcdr posn orig-args))
(error 'format-error
:complaint "Index ~W is out of bounds. (It should ~
(setf args (nthcdr posn orig-args))
(error 'format-error
:complaint "Index ~W is out of bounds. (It should ~
- have been between 0 and ~W.)"
+ have been between 0 and ~W.)"
:args (list posn (length orig-args))))))
(if colonp
(interpret-bind-defaults ((n 1)) params
:args (list posn (length orig-args))))))
(if colonp
(interpret-bind-defaults ((n 1)) params
@@
-848,7
+851,7
@@
(error 'format-error
:complaint
"Index ~W is out of bounds. (It should
(error 'format-error
:complaint
"Index ~W is out of bounds. (It should
- have been between 0 and ~W.)"
+ have been between 0 and ~W.)"
:args
(list new-posn (length orig-args))))))))
(interpret-bind-defaults ((n 1)) params
:args
(list new-posn (length orig-args))))))))
(interpret-bind-defaults ((n 1)) params