tests/derived-function-type-casts.lisp

   1 (defun derived-function-type-casts-make-fun () (lambda ()))
   2
   3 (defun derived-function-type-casts ()
   4   (let ((a (derived-function-type-casts-make-fun))
   5         (b (derived-function-type-casts-make-fun)))
   6     (funcall a)
   7     (funcall b)))