Ignore:
Timestamp:
Oct 15, 2009, 6:48:26 PM (11 years ago)
Author:
rme
Message:

Trunk changes r12910 through r13030 (need to update interfaces separately).

File:
1 edited

Legend:

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

    r12761 r13031  
    360360        (when aokp (setq bits (%ilogior (%ilsl $lfbits-aok-bit 1) bits)))
    361361        (if return-keys?
    362           (values bits (apply #'vector (nreverse key-list)))
     362          (values bits (and keyp (apply #'vector (nreverse key-list))))
    363363          bits)))))
    364364
Note: See TracChangeset for help on using the changeset viewer.