522 |
(default '(unknown))) |
(default '(unknown))) |
523 |
(and (null applyp) |
(and (null applyp) |
524 |
(or (not (eq *boot-state* 'complete)) |
(or (not (eq *boot-state* 'complete)) |
525 |
(compute-applicable-methods-emf-std-p gf)) |
(and (compute-applicable-methods-emf-std-p gf) |
526 |
|
(eq (generic-function-method-combination gf) |
527 |
|
*standard-method-combination*))) |
528 |
(notany #'(lambda (method) |
(notany #'(lambda (method) |
529 |
(or (and (eq *boot-state* 'complete) |
(or (and (eq *boot-state* 'complete) |
530 |
(some #'eql-specializer-p |
(or (some #'eql-specializer-p (method-specializers method)) |
531 |
(method-specializers method))) |
(method-qualifiers method))) |
532 |
(let ((value (method-function-get |
(let ((value (method-function-get |
533 |
(if early-p |
(if early-p |
534 |
(or (third method) (second method)) |
(or (third method) (second method)) |
535 |
(or (method-fast-function method) |
(or (method-fast-function method) |
536 |
(method-function method))) |
(method-function method))) |
537 |
:constant-value default))) |
:constant-value default))) |
538 |
(if boolean-values-p |
(or (eq value default) |
539 |
(not (or (eq value 't) (eq value nil))) |
(when boolean-values-p (not (member value '(t nil)))))))) |
|
(eq value default))))) |
|
540 |
methods))))) |
methods))))) |
541 |
|
|
542 |
(defun make-constant-value-dfun (generic-function &optional cache) |
(defun make-constant-value-dfun (generic-function &optional cache) |