Changeset 7822


Ignore:
Timestamp:
Dec 5, 2007, 1:46:12 PM (13 years ago)
Author:
gb
Message:

Move the definition of FIND-1ST-ARG-COMBINED-METHOD after the
definition of %FIND-1ST-ARG-COMBINED-METHOD, since the latter
is inlined.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-dcode.lisp

    r7319 r7822  
    277277
    278278
    279 ; for calls from outside - e.g. stream-reader
    280 (defun find-1st-arg-combined-method (gf arg)
    281   (declare (optimize (speed 3)(safety 0)))
    282   (%find-1st-arg-combined-method (%gf-dispatch-table gf) arg))
    283279
    284280
     
    317313                  (setq flag 0 index -2)))
    318314              (setq index (+ 2 index)))))))))
     315
     316;;; for calls from outside - e.g. stream-reader
     317(defun find-1st-arg-combined-method (gf arg)
     318  (declare (optimize (speed 3)(safety 0)))
     319  (%find-1st-arg-combined-method (%gf-dispatch-table gf) arg))
     320
    319321
    320322;;; more PC - it it possible one needs to go round more than once? -
     
    17551757          (apply-with-method-context magic (%method.function (car next-methods)) args))))))
    17561758
    1757 ; may be simpler to blow another cell so magic looks like
    1758 ; (cnm-cm/nil next-methods . args) - done
    1759 ; and also use first cell to mean heap-consed if itsa cons
     1759;;; may be simpler to blow another cell so magic looks like
     1760;;; (cnm-cm/nil next-methods . args) - done
     1761;;; and also use first cell to mean heap-consed if itsa cons
    17601762
    17611763(defun %call-next-method-with-args (magic &rest args)
Note: See TracChangeset for help on using the changeset viewer.