projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2263cb7
)
Fix comment
master
author
David Vázquez
<davazp@gmail.com>
Mon, 10 Mar 2014 16:15:16 +0000
(17:15 +0100)
committer
David Vázquez
<davazp@gmail.com>
Mon, 10 Mar 2014 16:15:16 +0000
(17:15 +0100)
src/lambda-list.lisp
patch
|
blob
|
history
diff --git
a/src/lambda-list.lisp
b/src/lambda-list.lisp
index
799e727
..
a0ff109
100644
(file)
--- a/
src/lambda-list.lisp
+++ b/
src/lambda-list.lisp
@@
-105,13
+105,13
@@
:initform initform)))))
(defun parse-destructuring-lambda-list (lambda-list)
: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
;; 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)))
;; proper place and it is new.
(lambda-section (name)
(let ((section (first lambda-list)))