--- a/lisp/cl/cl.el	Mon Aug 13 09:55:30 2007 +0200
+++ b/lisp/cl/cl.el	Mon Aug 13 09:56:28 2007 +0200
@@ -665,7 +665,7 @@
 		      (or (get func 'edebug-form-spec)
 			  (put func 'edebug-form-spec (nth 2 entry)))))
 		   (car entry))))
-	'(((defun* defmacro*) 2)
+	'(((defun* defmacro*) defun)
 	  ((function*) nil
 	   (&or symbolp ([&optional 'macro] 'lambda (&rest sexp) &rest form)))
 	  ((eval-when) 1 (sexp &rest form))
@@ -693,7 +693,7 @@
 	  ((letf letf*) 1 ((&rest (&rest form)) &rest form))
 	  ((callf destructuring-bind) 2 (sexp form &rest form))
 	  ((callf2) 3 (sexp form form &rest form))
-	  ((loop) nil (&rest &or symbolp form))
+	  ((loop) defun (&rest &or symbolp form))
 	  ((ignore-errors) 0 (&rest form))))