projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.48.17: hopefully fix build on win32
[sbcl.git]
/
src
/
code
/
target-format.lisp
diff --git
a/src/code/target-format.lisp
b/src/code/target-format.lisp
index
792e610
..
bbf357d
100644
(file)
--- a/
src/code/target-format.lisp
+++ b/
src/code/target-format.lisp
@@
-51,6
+51,12
@@
(%format destination control-string format-arguments)
nil)))
(%format destination control-string format-arguments)
nil)))
+(define-compiler-macro format (&whole form destination control &rest args)
+ (declare (ignore control args))
+ (when (stringp destination)
+ (warn "Literal string as destination in FORMAT:~% ~S" form))
+ form)
+
(defun %format (stream string-or-fun orig-args &optional (args orig-args))
(if (functionp string-or-fun)
(apply string-or-fun stream args)
(defun %format (stream string-or-fun orig-args &optional (args orig-args))
(if (functionp string-or-fun)
(apply string-or-fun stream args)
@@
-78,8
+84,7
@@
(function
(typecase character
(base-char
(function
(typecase character
(base-char
- (svref *format-directive-interpreters* (char-code character)))
- (character nil)))
+ (svref *format-directive-interpreters* (char-code character)))))
(*default-format-error-offset*
(1- (format-directive-end directive))))
(unless function
(*default-format-error-offset*
(1- (format-directive-end directive))))
(unless function