Index: /branches/x8664-call/ccl/lib/nfcomp.lisp
===================================================================
--- /branches/x8664-call/ccl/lib/nfcomp.lisp	(revision 6327)
+++ /branches/x8664-call/ccl/lib/nfcomp.lisp	(revision 6328)
@@ -774,5 +774,5 @@
       ;;top-level compiles.
       ;;This assumes the form has been macroexpanded, or at least none of the
-      ;lnon-evaluated macro arguments could look like functions.
+      ;;non-evaluated macro arguments could look like functions.
       (let (lfun (args (%cdr form)))
         (while args
@@ -783,5 +783,5 @@
               (labels ((subst-l (new ptr list)
                          (if (eq ptr list) (cons new (cdr list))
-		             (cons (car list) (subst-l new ptr (%cdr list))))))
+                           (cons (car list) (subst-l new ptr (%cdr list))))))
                 (setq form (subst-l arg args form))))
             (setq args (%cdr args))))))