Fix LOOP for-as-hash syntax

Ignore-this: c090fe6549d874d9ffc557a6d4eea33e

Patch by Jochen Schmidt.

darcs-hash:0bceb2626546752d81e937b1080e83aa398f9105

profile.lisp

@@ -203,7 +203,7 @@
        (incf (second accum) real)
        (incf (third accum)))
     (loop
-       for key being each hash-key using (hash-value accum) in table
+       for key being each hash-key in table using (hash-value accum)
        if (and (consp key) (eq (car key) 'pattern))
        collect (cons key accum) into patterns
        else collect (cons key accum) into expressions