doc/concepts.tex: Typeset method rôle names as identifiers.

[sod] / src / pset-test.lisp

diff --git a/src/pset-test.lisp b/src/pset-test.lisp
index e10f7ab69685444d075bd1ed53fa991962195228..c31bd76150a75200f45ebc0d1a21f83087880249 100644 (file)
--- 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 @@ (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))