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 )