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

diff --git a/OPTIMIZATIONS b/OPTIMIZATIONS
index 50d3417..d8d018f 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.
 --------------------------------------------------------------------------------
@@ -204,16 +204,17 @@ a. Iterations on &REST lists, returning them as VALUES could be
    rewritten with &MORE vectors.
 b. Implement local unknown-values mv-call (useful for fast type checking).
 --------------------------------------------------------------------------------
-#25
-EQL is implemented generically in situations where this isn't necessary.
+#26
+SBCL cannot derive upper bound for I and uses generic arithmetic here:
 
-(defun f (x y)
-  (declare (type (or symbol fixnum) x)
-	   (optimize speed (safety 0) (debug 0)))
-  (eql x y))
+(defun foo (l)
+  (declare (vector l))
+  (dotimes (i (length l))
+    (if (block nil
+          (map-foo (lambda (x) (if x (return t)))
+                   l))
+        t
+        nil)))
 
-SUBTYPEP is smart enough to determine that this type is a subtype
-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.
+(So the constraint propagator or a possible future SSA-convertor
+should know the connection between an NLE and its CLEANUP.)