0.7.1.4:

[sbcl.git] / src / compiler / locall.lisp

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index ac1f0e0..35def44 100644 (file)
--- 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)