projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.1.54: dynamic-extent lists and closures on ppc
[sbcl.git]
/
src
/
compiler
/
assem.lisp
diff --git
a/src/compiler/assem.lisp
b/src/compiler/assem.lisp
index
6b68100
..
3dd4a95
100644
(file)
--- a/
src/compiler/assem.lisp
+++ b/
src/compiler/assem.lisp
@@
-1567,7
+1567,7
@@
(push (eval `(list (multiple-value-list
,(sb!disassem:gen-printer-def-forms-def-form
name
(push (eval `(list (multiple-value-list
,(sb!disassem:gen-printer-def-forms-def-form
name
- (format nil "~A[~A]" name args)
+ (format nil "~@:(~A[~A]~)" name args)
(cdr option-spec)))))
pdefs))
(:printer-list
(cdr option-spec)))))
pdefs))
(:printer-list
@@
-1580,7
+1580,7
@@
`(multiple-value-list
,(sb!disassem:gen-printer-def-forms-def-form
',name
`(multiple-value-list
,(sb!disassem:gen-printer-def-forms-def-form
',name
- (format nil "~A[~A]" ',name printer)
+ (format nil "~@:(~A[~A]~)" ',name printer)
printer
nil)))
,(cadr option-spec)))))
printer
nil)))
,(cadr option-spec)))))