Index: /branches/working-0711/ccl/level-1/l1-dcode.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-dcode.lisp	(revision 7821)
+++ /branches/working-0711/ccl/level-1/l1-dcode.lisp	(revision 7822)
@@ -277,8 +277,4 @@
 
 
-; 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,4 +313,10 @@
                   (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,7 +1757,7 @@
           (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)