mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
5ee931c9d0
lvar-uses may have lists or casts in it, don't assume it to be refs. Patch by Paul Khuong. Fixes lp#1234919
8 lines
236 B
Common Lisp
8 lines
236 B
Common Lisp
(defun derived-function-type-casts-make-fun () (lambda ()))
|
|
|
|
(defun derived-function-type-casts ()
|
|
(let ((a (derived-function-type-casts-make-fun))
|
|
(b (derived-function-type-casts-make-fun)))
|
|
(funcall a)
|
|
(funcall b)))
|