/[gcl]/gcl/pcl/gcl_pcl_dfun.lisp
ViewVC logotype

Diff of /gcl/pcl/gcl_pcl_dfun.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Sat Jul 23 08:55:55 2005 UTC revision 1.4 by camm, Wed Sep 7 03:05:29 2005 UTC
# Line 522  And so, we are saved. Line 522  And so, we are saved.
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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26