X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=BUGS;h=2ca448f77e12bb385f905d8f0957e087d0fa79c8;hb=e3113504fca73ebd1b992930315386d9d3ae5d18;hp=ddd560b6cc87555d73a46f12117c9e79e26b68cd;hpb=95f17ca63742f8c164309716b35bc25545a849a6;p=sbcl.git

diff --git a/BUGS b/BUGS
index ddd560b..2ca448f 100644
--- a/BUGS
+++ b/BUGS
@@ -1878,22 +1878,5 @@ generally try to check returns in safe code, so we should here too.)
       (setf (aref nodes 0) 2)
       (assert (every #'~= (apply #'concatenate 'list nodes) '(2 3 6 9)))))
 
-430: nested structure constructors do not stack allocate
-
-  (defun nada (x) (declare (ignore x)) nil)
-
-  (declaim (inline make-foo))
-  (defstruct foo bar)
-
-  (defun foo ()
-    (let ((x (list (make-foo))))
-      (declare (dynamic-extent x))
-      (nada x)))
-
- Result of MAKE-FOO not stack allocated in FOO, because the function
- HANDLE-NESTED-DYNAMIC-EXTENT-LVARS sees is not
- %MAKE-STRUCTURE-INSTANCE, but no-yet-eliminated (VARARGS-ENTRY
- MAKE-FOO).
-
 431: alien strucure redefinition doesn't work as expected
   fixed in 1.0.21.29