0.7.1.2:

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

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 9bdfc37..eb49946 100644 (file)
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -135,7 +135,7 @@
          (declare (type index ,n-supplied))
          ,(if (policy *lexenv* (zerop safety))
               `(declare (ignore ,n-supplied))
-              `(%verify-argument-count ,n-supplied ,nargs))
+              `(%verify-arg-count ,n-supplied ,nargs))
          (%funcall ,fun ,@temps))))
     (optional-dispatch
      (let* ((min (optional-dispatch-min-args fun))
@@ -164,7 +164,7 @@
                            (%more-arg-context ,n-supplied ,max)
                          (%funcall ,more ,@temps ,n-context ,n-count))))))
             (t
-             (%argument-count-error ,n-supplied)))))))))
+             (%arg-count-error ,n-supplied)))))))))
 
 ;;; Make an external entry point (XEP) for FUN and return it. We
 ;;; convert the result of MAKE-XEP-LAMBDA in the correct environment,
@@ -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)