1.0.39: will be tagged as sbcl_1_0_39
[sbcl.git] / tests / compiler-output-test.lisp
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 )