X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Floop.lisp;h=b3a79aeae850fb2930adb4a4e1cfdcf2515cb4e1;hb=aa61c7571b33b86981301f34d3acdb66666f53a3;hp=6b7ce2cf80aad63f222f66388e7cad78259c9c81;hpb=bf6093e08c8375f9f3ec09f50af343b3e9520c4a;p=sbcl.git

diff --git a/src/code/loop.lisp b/src/code/loop.lisp
index 6b7ce2c..b3a79ae 100644
--- a/src/code/loop.lisp
+++ b/src/code/loop.lisp
@@ -1785,7 +1785,7 @@ code to be loaded.
 ||#
 
 (defun loop-hash-table-iteration-path (variable data-type prep-phrases
-				       &key (which (required-argument)))
+				       &key (which (missing-arg)))
   (declare (type (member :hash-key :hash-value) which))
   (cond ((or (cdr prep-phrases) (not (member (caar prep-phrases) '(:in :of))))
 	 (loop-error "too many prepositions!"))