Changeset 7972


Ignore:
Timestamp:
Jan 1, 2008, 1:36:49 AM (12 years ago)
Author:
gb
Message:

Fix &rest &key case, yet again.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2-devel/ccl/lib/arglist.lisp

    r7254 r7972  
    185185              (when restp
    186186                (push (if lexprp '&lexpr '&rest) res)
    187                 (when nkeys
    188                   (when (> idx nkeys) (decf idx nkeys)))
    189187                (push (if (> idx 0) (elt map (decf idx)) 'the-rest) res))                  (when nkeys
    190188                (push '&key res)
Note: See TracChangeset for help on using the changeset viewer.