diff --git a/compiler/locall.lisp b/compiler/locall.lisp index cb721700c654eee9831e9f242338b7f62ad931ff..427e39330962e0934a9041e6373fff2416f82b3e 100644 --- a/compiler/locall.lisp +++ b/compiler/locall.lisp @@ -494,8 +494,8 @@ (let ((info (lambda-var-arg-info var))) (when (eq (arg-info-keyword info) name) (ignores dummy) - (supplied (cons var val))) - (return)))))) + (supplied (cons var val)) + (return))))))) (when (and loser (not (optional-dispatch-allowp fun))) (compiler-warning "Function called with unknown argument keyword ~S."