File: compiler-output-test.lisp

package info (click to toggle)
sbcl 1%3A0.9.16.0-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 19,960 kB
  • ctags: 16,537
  • sloc: lisp: 231,164; ansic: 19,558; asm: 2,539; sh: 1,925; makefile: 308
file content (16 lines) | stat: -rw-r--r-- 236 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
;;; 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
)