X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=blobdiff_plain;f=src%2Flambda-list.lisp;fp=src%2Flambda-list.lisp;h=a0ff10964274c08b2d44507512f7bcc39def3856;hp=799e72770f9255ba029cc2a1a10dfd20fe63d96c;hb=d0e2cc2ea3ae036fba1d085b9c88a5ffe24de956;hpb=2263cb727254e671571e19638a12cac9b5522062

diff --git a/src/lambda-list.lisp b/src/lambda-list.lisp
index 799e727..a0ff109 100644
--- a/src/lambda-list.lisp
+++ b/src/lambda-list.lisp
@@ -105,13 +105,13 @@
                     :initform initform)))))
 
 (defun parse-destructuring-lambda-list (lambda-list)
-  (let (;; Destructured lambda list structure where we accumulate the
+  (let (;; Destructure lambda list structure where we accumulate the
         ;; results of the parsing.
         (ll (make-lambda-list))
         ;; List of lambda list keywords which we have already seen.
         (lambda-keywords nil))
     (flet (;; Check if we are in the beginning of the section NAME in
-           ;; the lambda list. It checks also if the section is in the
+           ;; the lambda list. It also checks if the section is in the
            ;; proper place and it is new.
            (lambda-section (name)
              (let ((section (first lambda-list)))