+;;; If CERROR is given a condition, any remaining arguments are only
+;;; used for the continue format control.
+(let ((x 0))
+ (handler-bind
+ ((simple-error (lambda (c) (incf x) (continue c))))
+ (cerror "Continue from ~A at ~A"
+ (make-condition 'simple-error :format-control "foo"
+ :format-arguments nil)
+ 'cerror (get-universal-time))
+ (assert (= x 1))))
+
+(with-test (:name :malformed-restart-case-clause)
+ (assert (eq :ok
+ (handler-case
+ (macroexpand `(restart-case (error "foo")
+ (foo :report "quux" (quux))))
+ (simple-error (e)
+ (assert (equal '(restart-case (foo :report "quux" (quux)))
+ (simple-condition-format-arguments e)))
+ :ok)))))