error-test.lisp 323 Bytes
Newer Older
ram's avatar
ram committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
(defun raz (foo)
  (let ((x (case foo
	     (:this 13)
	     (:that 9)
	     (:the-other 42))))
    (declare (fixnum x))
    (+ x 55 x)))

(defun bar (x)
  (let (a)
    (declare (fixnum a))
    (setq a (foo x))
    a))

(defstruct (foo (:print-function fnord))
  (a (make-symbol "FOO") :type float)
  (b nil :type fixnum))