From 1c5e5470368a6f20338673ce98c9002bbdebefba Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Fri, 19 Sep 2008 17:40:56 +0000 Subject: [PATCH] New ext::simple-style-warning class for warnings with messages --- src/clos/conditions.lsp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp index 02179c3bc..6760b82e6 100644 --- a/src/clos/conditions.lsp +++ b/src/clos/conditions.lsp @@ -527,6 +527,8 @@ returns with NIL." (define-condition style-warning (warning) ()) +(define-condition simple-style-warning (style-warning simple-condition) ()) + (define-condition simple-error (simple-condition error) ()) (define-condition storage-condition (serious-condition) ())