Index: /branches/working-0711/ccl/level-1/l1-dcode.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-dcode.lisp	(revision 7836)
+++ /branches/working-0711/ccl/level-1/l1-dcode.lisp	(revision 7837)
@@ -788,8 +788,4 @@
 
 
-;;; arg passed is dispatch table - add a slot to it containing gf? -
-;;; later or pass the gf instead of the dispatch table (means adding
-;;; another constant to gf to contain the dispatch table- above is
-;;; clearer)
 
 (defun %%1st-arg-dcode (dt  args)