X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=OPTIMIZATIONS;h=f17f2ee1e930ff8bd1f48a6d72919ead35ecc3c3;hb=428b60fff4247e34ff601810f33976908f22bbc0;hp=50d3417bead8b8b8e1d755af8e66ed6b27ace877;hpb=9afd3958cf7b5ad829c61a4a85956cf783e500f5;p=sbcl.git

diff --git a/OPTIMIZATIONS b/OPTIMIZATIONS
index 50d3417..f17f2ee 100644
--- a/OPTIMIZATIONS
+++ b/OPTIMIZATIONS
@@ -187,9 +187,9 @@ stack-allocation of structures is impossible.
 --------------------------------------------------------------------------------
 #21
 (defun-with-dx foo ()
-  (let ((dx (list (list 1 2) (list 3 4)
+  (let ((dx (list (list 1 2) (list 3 4))))
     (declare (dynamic-extent dx))
-    ...)))))
+    ...))
 
 External list in DX is allocated on stack, but internal are not.
 --------------------------------------------------------------------------------
@@ -217,3 +217,18 @@ of (and (or (not number) fixnum) (not character))
 
 This sitation where the type is (OR NULL FIXNUM) comes up
 in cl-bench, for example in the value returned by POSITION.
+--------------------------------------------------------------------------------
+#26
+SBCL cannot derive upper bound for I and uses generic arithmetic here:
+
+(defun foo (l)
+  (declare (vector l))
+  (dotimes (i (length l))
+    (if (block nil
+          (map-foo (lambda (x) (if x (return t)))
+                   l))
+        t
+        nil)))
+
+(So the constraint propagator or a possible future SSA-convertor
+should know the connection between an NLE and its CLEANUP.)