Parse raw slot data when printing structures in LDB
[sbcl.git] / tests / compiler-output-test.lisp
blobb9a28849da8f939e21f30b8cbee2e9838f962289
1 ;;; compiled by compiler.impure.lisp
3 (defun square (x)
4 (declare (optimize speed))
5 (* x x))
7 (defun unused-var (x)
8 1)
10 (defun style-thing (&optional x &key y)
11 (cons x y))
13 (defun (bad name) ())
15 ;; "fatal error" from this one