X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=OPTIMIZATIONS;h=45b5463330ee21f30352616c48d4d4eaf6c1ded0;hb=62c1c94106fca74b3d191c9576cc635aaf5592bb;hp=631501c154e62064e67e2a87c019127fa03df64d;hpb=bef0d9c1274819ee3fb886401209662bace136ce;p=sbcl.git

diff --git a/OPTIMIZATIONS b/OPTIMIZATIONS
index 631501c..45b5463 100644
--- a/OPTIMIZATIONS
+++ b/OPTIMIZATIONS
@@ -416,3 +416,26 @@ altogether.  The former option is probably easier than the latter.
 Dynamic extent allocation doesn't currently work for one-element lists,
 since there's a source transform from (LIST X) to (CONS X NIL).
 
+--------------------------------------------------------------------------------
+#38
+
+(setf (subseq s1 start1 end1) (subseq s2 start2 end1))
+
+could be transformed into
+
+(let ((#:s2 s2)
+      (#:start2 start2)
+      (#:end2 end2))
+ (replace s1 #:s2 :start1 start1 :end1 end1 :start2 #:start2 :end2 #:end2))
+
+when the return value is unused, avoiding the need to cons up the new sequence.
+
+--------------------------------------------------------------------------------
+#39
+
+(let ((*foo* 42)) ...)
+
+currently compiles to code that ensures the TLS index at runtime, which
+is both a decently large chunk of code and unnecessary, as we could ensure
+the TLS index at load-time as well.
+