(progn ,@body)
(simple-condition (,cond)
(apply #'die
- (simple-condition-format-control ,cond)
- (simple-condition-format-arguments ,cond)))
+ (simple-condition-format-control ,cond)
+ (simple-condition-format-arguments ,cond)))
(error (,cond)
(die "~A" ,cond)))))
(setf (get ',name 'opthandler) ',func)
(defun ,func (,var ,arg ,@args)
,@docs ,@decls
+ (declare (ignorable ,arg))
(with-locatives ,var
- (declare (ignorable ,arg))
,@body))
',name))))