Changeset 8708


Ignore:
Timestamp:
Mar 11, 2008, 5:01:38 PM (11 years ago)
Author:
gb
Message:

In INNERMOST-LFUN-BITS-KEYVECT (only used to get information about
arglists for compile-time checking), treat gfs that assert &KEY
to also assert &ALLOW-OTHER-KEYS.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r8706 r8708  
    19841984(defun innermost-lfun-bits-keyvect (def)
    19851985  (declare (notinline innermost-lfun-bits-keyvect))
    1986   (let ((inner-def (closure-function (find-unencapsulated-definition def))))
    1987     (values (lfun-bits inner-def)(lfun-keyvect inner-def))))
     1986  (let* ((inner-def (closure-function (find-unencapsulated-definition def)))
     1987         (bits (lfun-bits inner-def))
     1988         (keys (lfun-keyvect inner-def)))
     1989    (declare (fixnum bits))
     1990    (when (and (eq (ash 1 $lfbits-gfn-bit)
     1991                   (logand bits (logior (ash 1 $lfbits-gfn-bit)
     1992                                        (ash 1 $lfbits-method-bit))))
     1993               (logbitp $lfbits-keys-bit bits))
     1994      (setq bits (logior (ash 1 $lfbits-aok-bit) bits)
     1995            keys nil))
     1996    (values bits keys)))
    19881997
    19891998
Note: See TracChangeset for help on using the changeset viewer.