diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp index 6eaa705a4d7016bffb39e5d8f6336710aa3c18cb..2e3eb7837415a10065e4ce7ebb6196e0d016644a 100644 --- a/compiler/ir2tran.lisp +++ b/compiler/ir2tran.lisp @@ -1471,7 +1471,7 @@ (ir1-convert start cont (if *converting-for-interpreter* - `(%progv vars vals #'(lambda () ,@body)) + `(%progv ,vars ,vals #'(lambda () ,@body)) (once-only ((n-save-bs '(%primitive current-binding-pointer))) `(unwind-protect (progn