projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.12.36:
[sbcl.git]
/
src
/
code
/
late-format.lisp
diff --git
a/src/code/late-format.lisp
b/src/code/late-format.lisp
index
b9b3c85
..
1a3be5c
100644
(file)
--- a/
src/code/late-format.lisp
+++ b/
src/code/late-format.lisp
@@
-286,14
+286,10
@@
`(progn
(defun ,defun-name (,directive ,directives)
,@(if lambda-list
`(progn
(defun ,defun-name (,directive ,directives)
,@(if lambda-list
- `((let ,(mapcar #'(lambda (var)
- `(,var
- (,(intern (concatenate
- 'string
- "FORMAT-DIRECTIVE-"
- (symbol-name var))
- (symbol-package 'foo))
- ,directive)))
+ `((let ,(mapcar (lambda (var)
+ `(,var
+ (,(symbolicate "FORMAT-DIRECTIVE-" var)
+ ,directive)))
(butlast lambda-list))
,@body))
`((declare (ignore ,directive ,directives))
(butlast lambda-list))
,@body))
`((declare (ignore ,directive ,directives))