mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
4099112d8e
* print "caught FOO" messages and error summaries to *ERROR-OUTPUT*, not to *STANDARD-OUTPUT*. * wrap EVAL guts in WITH-COMPILATION-UNIT so that multiple subforms requiring compilation have their output condenced. * clean up compilation summary newline handling.
17 lines
236 B
Common Lisp
17 lines
236 B
Common Lisp
;;; compiled by compiler.impure.lisp
|
|
|
|
(defun square (x)
|
|
(declare (optimize speed))
|
|
(* x x))
|
|
|
|
(defun unused-var (x)
|
|
1)
|
|
|
|
(defun style-thing (&optional x &key y)
|
|
(cons x y))
|
|
|
|
(defun (bad name) ())
|
|
|
|
;; "fatal error" from this one
|
|
)
|