Changeset 8666


Ignore:
Timestamp:
Mar 5, 2008, 8:35:55 PM (12 years ago)
Author:
gb
Message:

INNERMOST-LFUN-BITS-KEYVECT: don't punt on generic functions.

File:
1 edited

Legend:

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

    r8646 r8666  
    19631963
    19641964(defun innermost-lfun-bits-keyvect (def)
    1965  (declare (notinline innermost-lfun-bits-keyvect))
    1966   (let* ((gf-p (standard-generic-function-p def)))
    1967     (unless gf-p
    1968       (let ((inner-def (closure-function (find-unencapsulated-definition def))))
    1969         (values (lfun-bits inner-def)(lfun-keyvect inner-def))))))
     1965  (declare (notinline innermost-lfun-bits-keyvect))
     1966  (let ((inner-def (closure-function (find-unencapsulated-definition def))))
     1967    (values (lfun-bits inner-def)(lfun-keyvect inner-def))))
    19701968
    19711969
Note: See TracChangeset for help on using the changeset viewer.