id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
882	[patch] (restart-case (warn ... ))	jlawrence	rme	"{{{
(handler-bind ((warning (lambda (w)
                          (declare (ignore w))
                          (invoke-restart 'eleven))))
  (restart-case (warn ""foo"")
    (eleven () 11)))
}}}
=>
{{{
value #<SIMPLE-CONDITION #x302000E8041D> is not of the expected type WARNING.
   [Condition of type TYPE-ERROR]
}}}
A {{{simple-error}}} is created by {{{error}}}, but a {{{simple-warning}}} is not created by {{{warning}}} :)
{{{
--- ccl/lib/macros.lisp	(revision 15001)
+++ ccl/lib/macros.lisp	(working copy)
@@ -409,7 +409,7 @@
           ((signal error warn)
            (destructuring-bind
              (cond &rest args) expansion
-             (setq condform `(condition-arg ,cond (list ,@args) ,(if (eq head 'warning)
+             (setq condform `(condition-arg ,cond (list ,@args) ,(if (eq head 'warn)
                                                                    ''simple-warning
                                                                    (if (eq head 'error)
                                                                      ''simple-error

}}}
"	defect	closed	normal		ANSI CL Compliance	trunk	fixed	restart-case restart-case-form