Static instance support.

[sod] / src / pset-test.lisp

diff --git a/src/pset-test.lisp b/src/pset-test.lisp
index 4218251..c31bd76 100644 (file)
--- a/src/pset-test.lisp
+++ b/src/pset-test.lisp
@@ -65,10 +65,9 @@
     (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))