X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=35def4490af4e563cc767f549068a339d793de77;hb=6e7e59adb6f6c30f84b31695b48cb51e2c519d75;hp=ac1f0e0b505b1432bc40bf8e811a5d814ef574bb;hpb=80304981972c91c1b3f3fca75f36dacf1fecf307;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index ac1f0e0..35def44 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -363,7 +363,7 @@
 
 ;;; Dispatch to the appropriate function to attempt to convert a call.
 ;;; REF must be a reference to a FUNCTIONAL. This is called in IR1
-;;; optimize as well as in local call analysis. If the call is is
+;;; optimization as well as in local call analysis. If the call is is
 ;;; already :LOCAL, we do nothing. If the call is already scheduled
 ;;; for deletion, also do nothing (in addition to saving time, this
 ;;; also avoids some problems with optimizing collections of functions
@@ -697,9 +697,9 @@
 	(join-components component clambda-component)))
     (let ((*current-component* component))
       (node-ends-block call))
-    ;; FIXME: Use PROPER-LIST-OF-LENGTH-P here, and look for other
+    ;; FIXME: Use DESTRUCTURING-BIND here, and grep for other 
     ;; uses of '=.*length' which could also be converted to use
-    ;; PROPER-LIST-OF-LENGTH-P.
+    ;; DESTRUCTURING-BIND or PROPER-LIST-OF-LENGTH-P.
     (aver (= (length (block-succ call-block)) 1))
     (let ((next-block (first (block-succ call-block))))
       (unlink-blocks call-block next-block)