src/**/*.lisp: Use convenience functions to invoke restarts.

[sod] / src / pset-test.lisp

diff --git a/src/pset-test.lisp b/src/pset-test.lisp
index 42182517360260bcf740dd5fa1f8d84acd55cf19..c31bd76150a75200f45ebc0d1a21f83087880249 100644 (file)
--- a/src/pset-test.lisp
+++ b/src/pset-test.lisp
@@ -65,10 +65,9 @@ (defun check-pset-parse (string pset)
     (with-parser-context (token-scanner-context :scanner scanner)
       (multiple-value-bind (result winp consumedp)
          (handler-bind ((error (lambda (cond)
-                                 (declare (ignore cond))
                                  (setf errors t)
-                                 (if (find-restart 'continue)
-                                     (invoke-restart 'continue)
+                                 (if (find-restart 'continue cond)
+                                     (continue cond)
                                      :decline))))
            (parse-property-set scanner))
        (declare (ignore consumedp))