Changeset 8863


Ignore:
Timestamp:
Mar 22, 2008, 4:53:30 AM (11 years ago)
Author:
gb
Message:

ENCODE-LAMBDA-LIST: don't bother creating empty keyword vector.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r8667 r8863  
    322322        (when aokp (setq bits (%ilogior (%ilsl $lfbits-aok-bit 1) bits)))
    323323        (if return-keys?
    324           (values bits (apply #'vector (nreverse key-list)))
    325           bits)))))
     324          (values bits (if key-list (apply #'vector (nreverse key-list)) #()))
     325          (values bits nil))))))
    326326
    327327(defun pair-arg-p (thing &optional lambda-list-ok supplied-p-ok keyword-nesting-ok)
Note: See TracChangeset for help on using the changeset viewer.