Changeset 7822

Timestamp:

Dec 5, 2007, 5:46:12 AM (17 years ago)

Author:

Gary Byers

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:

• branches/working-0711/ccl/level-1/l1-dcode.lisp (modified) (3 diffs)

branches/working-0711/ccl/level-1/l1-dcode.lisp

@@ -277 +277 @@
 
 
-; for calls from outside - e.g. stream-reader
-(defun find-1st-arg-combined-method (gf arg)
-  (declare (optimize (speed 3)(safety 0)))
-  (%find-1st-arg-combined-method (%gf-dispatch-table gf) arg))
 
 
@@ -317 +313 @@
                   (setq flag 0 index -2)))
               (setq index (+ 2 index)))))))))
+
+;;; for calls from outside - e.g. stream-reader
+(defun find-1st-arg-combined-method (gf arg)
+  (declare (optimize (speed 3)(safety 0)))
+  (%find-1st-arg-combined-method (%gf-dispatch-table gf) arg))
+
 
 ;;; more PC - it it possible one needs to go round more than once? -
@@ -1755 +1757 @@
           (apply-with-method-context magic (%method.function (car next-methods)) args))))))
 
-; may be simpler to blow another cell so magic looks like
-; (cnm-cm/nil next-methods . args) - done
-; and also use first cell to mean heap-consed if itsa cons
+;;; may be simpler to blow another cell so magic looks like
+;;; (cnm-cm/nil next-methods . args) - done
+;;; and also use first cell to mean heap-consed if itsa cons
 
 (defun %call-next-method-with-args (magic &rest args)