It lives!

[sod] / pset.lisp

diff --git a/pset.lisp b/pset.lisp
index 9db8c4ffee40f0899b18a8f45dabc5e801ce3cb3..a9bbde90dc83551b138a30894be42712894dbce6 100644 (file)
--- a/pset.lisp
+++ b/pset.lisp
@@ -269,7 +269,8 @@ (defun check-unused-properties (pset)
                (unless (p-seenp prop)
                  (cerror*-with-location (p-location prop)
                                         "Unknown property `~A'"
                (unless (p-seenp prop)
                  (cerror*-with-location (p-location prop)
                                         "Unknown property `~A'"

-                                        (p-name prop))))
+                                        (p-name prop))
+                 (setf (p-seenp prop) t)))

              pset)))
 
 ;;;--------------------------------------------------------------------------
              pset)))
 
 ;;;--------------------------------------------------------------------------