Log in / Register
SBCL
Overview
Code
Bugs
Blueprints
Translations
Answers
Bug #1889393
Comment #1
Comment 1 for bug 1889393
Revision history for this message
Stas Boukarev (stassats)
wrote
on 2020-07-29
:
#1
(defun foo (f x)
(let ((l (if x
(list (cons 1 2)))))
(declare (dynamic-extent l))
(funcall f l)))
(defun foo (f x) (let ((l (if x (list (cons 1 2))))) (declare (dynamic-extent l)) (funcall f l)))
(defun foo (f x)
(list (cons 1 2)))))
(let ((l (if x
(declare (dynamic-extent l))
(funcall f l)))