Commit 97068ff8 authored by Marco Antoniotti's avatar Marco Antoniotti 💬
Browse files

Fixed a missing PROGN.

parent 83a06cbb
......@@ -218,7 +218,7 @@ ENTER, HANDLE, EXIT, WITH-OPEN-FILE
(progn
(setq ,ctxt-var (enter ,ctxt-expr))
(handler-case
,@body
(progn ,@body)
(error (,error-condition-var)
(handle ,ctxt-var ,error-condition-var))))
(multiple-value-prog1
......@@ -259,7 +259,7 @@ ENTER, HANDLE, EXIT, WITH-OPEN-FILE
(progn
(setq ,ctxt-var (enter ,ctxt-expr))
(handler-case
,@body
(progn ,@body)
(error (,error-condition-var)
(handle ,ctxt-var ,error-condition-var))))
(exit ,ctxt-var) ; See above
......@@ -397,7 +397,7 @@ ENTER, HANDLE, EXIT, WITH-OPEN-FILE
(progn
(setq ,ctxt-var (enter ,ctxt-expr))
(handler-case
,@body
(progn ,@body)
(error (,error-condition-var)
(handle ,ctxt-var ,error-condition-var))))
(multiple-value-prog1
......@@ -438,7 +438,7 @@ ENTER, HANDLE, EXIT, WITH-OPEN-FILE
(progn
(setq ,ctxt-var (enter ,ctxt-expr))
(handler-case
,@body
(progn ,@body)
(error (,error-condition-var)
(handle ,ctxt-var ,error-condition-var))))
(exit ,ctxt-var) ; See above
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment