X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=OPTIMIZATIONS;h=0308f8507c4e8955d713ea703e1744266bda8f25;hb=9c61930488da84cccaeaaabea55d3ad4e1323fda;hp=47a7e41415ec9258cb7d94e8de184086fef660a6;hpb=6d69dfcc438b3530fa922e518919158ccf1af497;p=sbcl.git diff --git a/OPTIMIZATIONS b/OPTIMIZATIONS index 47a7e41..0308f85 100644 --- a/OPTIMIZATIONS +++ b/OPTIMIZATIONS @@ -162,15 +162,6 @@ through TYPEP UNBOXED-ARRAY, within the compiler itself. rather than either constant-folding or manipulating NIL-VALUE or NULL-TN directly. -------------------------------------------------------------------------------- -#19 - (let ((dx (if (foo) - (list x) - (list y z)))) - (declare (dynamic-extent dx)) - ...) - -DX is not allocated on stack. --------------------------------------------------------------------------------- #20 (defun-with-dx foo (x) (flet ((make (x)