repo.or.cz
/
sbcl.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Detect some uses of multiple-value-list in LOOP
[sbcl.git]
/
tests
/
bug-414.lisp
blob
d57a30d1b8dec7b555f42fd2003f63a0eda2bda9
1
;;; compiling and disassembling this used to give
2
;;;
3
;;; WARNING: bogus form-number in form! The source file has probably
4
;;; been changed too much to cope with.
5
;;;
6
;;; but the symptoms have disappeared.
7
(
defun
bug-414
(
x
y z
)
8
(
declare
(
optimize
debug
))
9
(
list
x y z
))