Commit 9f3eb912 authored by pfdietz's avatar pfdietz

Added check function for simple-warning.

parent 93d92daf
......@@ -1407,4 +1407,6 @@ the condition to go uncaught if it cannot be classified."
(and (typep c 'simple-error)
(apply #'frob-simple-condition c expected-fmt expected-args)))
\ No newline at end of file
(defun frob-simple-warning (c expected-fmt &rest expected-args)
(and (typep c 'simple-warning)
(apply #'frob-simple-condition c expected-fmt expected-args)))
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