repo.or.cz
/
sbcl
/
tcr.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
1.0.23.58: bug 405 has been fixed a while now
[sbcl/tcr.git]
/
tests
/
compiler-output-test.lisp
blob
b9a28849da8f939e21f30b8cbee2e9838f962289
1
;;; compiled by compiler.impure.lisp
2
3
(
defun
square
(
x
)
4
(
declare
(
optimize
speed
))
5
(*
x x
))
6
7
(
defun
unused-var
(
x
)
8
1
)
9
10
(
defun
style-thing
(&
optional x
&
key y
)
11
(
cons
x y
))
12
13
(
defun
(
bad
name
) ())
14
15
;; "fatal error" from this one
16
)