Changeset 12588


Ignore:
Timestamp:
Aug 15, 2009, 9:32:39 PM (10 years ago)
Author:
gz
Message:

in encode-lambda-list, don't return a vector if no &key, and test for that that when checking defgeneric keys

Location:
branches/working-0711/ccl/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos-boot.lisp

    r12515 r12588  
    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
  • branches/working-0711/ccl/level-1/l1-readloop.lisp

    r12587 r12588  
    588588        (loop for minfo in old-methods
    589589              do (multiple-value-bind (mkeys aok) (def-info-method.keyvect minfo)
    590                    (when (and (not aok)
     590                   (when (and mkeys
     591                              (not aok)
    591592                              (setq mkeys (loop for gk across gfkeys
    592593                                                unless (find gk mkeys) collect gk)))
Note: See TracChangeset for help on using the changeset viewer.