Changeset 10115


Ignore:
Timestamp:
Jul 19, 2008, 2:00:20 AM (11 years ago)
Author:
rme
Message:

Indentation fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/arglist.lisp

    r9839 r10115  
    185185              (when restp
    186186                (push (if lexprp '&lexpr '&rest) res)
    187                 (push (if (> idx 0) (elt map (decf idx)) 'the-rest) res))                  (when nkeys
     187                (push (if (> idx 0) (elt map (decf idx)) 'the-rest) res))
     188              (when nkeys
    188189                (push '&key res)
    189190                (let ((keyvect (lfun-keyvect lfun)))
     
    219220                    (opt (if (> idx 0) (elt map (decf idx)) (make-arg "OPT" x)))))
    220221                (when (or restp lexprp)
    221                   (setq rest (if (> idx 0) (elt map (decf idx)) 'the-rest)))                (when nkeys
    222                                                                                               (dotimes (i (the fixnum nkeys))
     222                  (setq rest (if (> idx 0) (elt map (decf idx)) 'the-rest)))
     223                (when nkeys
     224                  (dotimes (i (the fixnum nkeys))
    223225                    (keys (if (> idx 0) (elt map (decf idx)) (make-arg "KEY" i)))))))))
    224226        (values (not (null map)) (req) (opt) rest (keys))))))
Note: See TracChangeset for help on using the changeset viewer.