It lives!

[sod] / pset.lisp

diff --git a/pset.lisp b/pset.lisp
index 9db8c4f..a9bbde9 100644 (file)
--- a/pset.lisp
+++ b/pset.lisp
@@ -269,7 +269,8 @@
                (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)))
 
 ;;;--------------------------------------------------------------------------