Changeset 6328

Timestamp:

Apr 22, 2007, 3:43:11 AM (18 years ago)

Author:

Gary Byers

Message:

Indentation/comment changes only.

File:

• branches/x8664-call/ccl/lib/nfcomp.lisp (modified) (2 diffs)

branches/x8664-call/ccl/lib/nfcomp.lisp

@@ -774 +774 @@
       ;;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 +783 @@
               (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))))))