Changeset 6328


Ignore:
Timestamp:
Apr 22, 2007, 10:43:11 AM (15 years ago)
Author:
gb
Message:

Indentation/comment changes only.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/lib/nfcomp.lisp

    r6239 r6328  
    774774      ;;top-level compiles.
    775775      ;;This assumes the form has been macroexpanded, or at least none of the
    776       ;lnon-evaluated macro arguments could look like functions.
     776      ;;non-evaluated macro arguments could look like functions.
    777777      (let (lfun (args (%cdr form)))
    778778        (while args
     
    783783              (labels ((subst-l (new ptr list)
    784784                         (if (eq ptr list) (cons new (cdr list))
    785                              (cons (car list) (subst-l new ptr (%cdr list))))))
     785                           (cons (car list) (subst-l new ptr (%cdr list))))))
    786786                (setq form (subst-l arg args form))))
    787787            (setq args (%cdr args))))))
Note: See TracChangeset for help on using the changeset viewer.