X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e0808c472145fc81e52898bc9ac289e10c4f4f41..2c6153373f927d948a74b283ebb16330af8ee49a:/src/pset-test.lisp

diff --git a/src/pset-test.lisp b/src/pset-test.lisp
index 4218251..c31bd76 100644
--- 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))