X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/048d0b2d143b6a491ac73eed6ab972e97774391c..d5fdd49e70b734b791eb907706f92da5775e2a8b:/src/pset-test.lisp?ds=sidebyside

diff --git a/src/pset-test.lisp b/src/pset-test.lisp
index e10f7ab..c31bd76 100644
--- a/src/pset-test.lisp
+++ b/src/pset-test.lisp
@@ -7,7 +7,7 @@
 
 ;;;----- Licensing notice ---------------------------------------------------
 ;;;
-;;; This file is part of the Sensble Object Design, an object system for C.
+;;; This file is part of the Sensible Object Design, an object system for C.
 ;;;
 ;;; SOD is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -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))