Verified Commit b734520e authored by Vladimir Sedach's avatar Vladimir Sedach
Browse files

Fix unneeded expressionization of RETURN of LOCALLY

parent cf4cab20
...@@ -299,7 +299,7 @@ invocations or not.") ...@@ -299,7 +299,7 @@ invocations or not.")
,@declarations ,@declarations
,@(butlast body) ,@(butlast body)
(return-from ,tag ,(car (last body)))))) (return-from ,tag ,(car (last body))))))
(progn ((progn locally)
`(progn ,@(butlast (cdr form)) `(progn ,@(butlast (cdr form))
(return-from ,tag ,(car (last (cdr form)))))) (return-from ,tag ,(car (last (cdr form))))))
(switch (switch
......
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