Ignore:
Timestamp:
Mar 30, 2006, 10:18:31 AM (15 years ago)
Author:
gb
Message:

Comments and formatting changes only.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-dcode.lisp

    r3898 r3967  
    864864(defun compute-1st-arg-combined-method (gf arg &optional
    865865                                           (wrapper (arg-wrapper arg)))
    866   (declare (resident))
    867   ;#-bccl (setq gf (require-type gf 'standard-generic-function)) 
    868866  (let* ((methods (%gf-dispatch-table-methods (%gf-dispatch-table gf)))
    869867         (cpl (%inited-class-cpl (%wrapper-class wrapper)))
     
    871869         applicable-methods eql-methods specializer)
    872870    (dolist (method methods)
    873       ;#-bccl (setq method (require-type method 'standard-method))   ; for debugging.
    874871      (setq specializer (%car (%method.specializers method)))
    875872      (if (typep specializer 'eql-specializer)
     
    14201417      (when (>= argnum args-len)(signal-program-error "Too few args to ~s." (%method-gf (cddr stuff))))
    14211418      (let* ((arg (%lexpr-ref args args-len argnum))
    1422              (thing (assq arg (cadr stuff)))) ; are these things methods or method-functions? - fns   
     1419             (thing (assq arg (cadr stuff))))
    14231420        (if thing
    14241421          (%apply-lexpr (cdr thing) args)
Note: See TracChangeset for help on using the changeset viewer.