Commit d2224b05 authored by Eric Timmons's avatar Eric Timmons
Browse files

Update style warning in WITH-TEMPORARY-FILE

parent fcddc97e
Pipeline #3989 passed with stages
in 62 minutes and 49 seconds
......@@ -665,7 +665,7 @@ Upon success, the KEEP form is evaluated and the file is is deleted unless it ev
(beforef (gensym "BEFORE"))
(afterf (gensym "AFTER")))
(when (eql afterp 0)
(style-warn ":CLOSE-STREAM should not be the first form of BODY. Instead, do not provide a STREAM."))
(style-warn ":CLOSE-STREAM should not be the first form of BODY in WITH-TEMPORARY-FILE. Instead, do not provide a STREAM."))
`(flet (,@(when before
`((,beforef (,@(when streamp `(,stream)) ,@(when pathnamep `(,pathname)))
,@(when after `((declare (ignorable ,pathname))))
......
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