Changeset 9177


Ignore:
Timestamp:
Apr 17, 2008, 11:36:36 PM (11 years ago)
Author:
gz
Message:

arg-names-from-map: it's valid for argless fn to have no map

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/arglist.lisp

    r8421 r9177  
    226226                  (dotimes (i (the fixnum nkeys))
    227227                    (keys (if (> idx 0) (elt map (decf idx)) (make-arg "KEY" i)))))))))
    228         (values (not (null map)) (req) (opt) rest (keys))))))
     228        (values (or (not (null map))
     229                    (and (eql 0 nreq) (eql 0 nopt) (not restp) (null nkeys)))
     230                (req) (opt) rest (keys))))))
    229231             
    230232             
Note: See TracChangeset for help on using the changeset viewer.