Fix comment

[jscl.git] / src / lambda-list.lisp

diff --git a/src/lambda-list.lisp b/src/lambda-list.lisp
index 19cc98d..a0ff109 100644 (file)
--- a/src/lambda-list.lisp
+++ b/src/lambda-list.lisp
@@ -15,6 +15,9 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
 
+(/debug "loading lambda-list.lisp!")
+
+
 (defvar !lambda-list-keywords
   '(&optional &rest &key &aux &allow-other-keys &body &optional))
 
@@ -102,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)))
@@ -343,7 +346,7 @@
   (apply #'!expand-destructuring-bind lambda-list expression body))
 
 #+jscl
-(eval-when-compile
+(eval-when (:compile-toplevel)
   (let ((macroexpander
          '#'(lambda (form &optional environment)
               (declare (ignore environment))