Changeset 2949

Timestamp:

04/10/08 23:28:24 (7 months ago)

Author:

ksprotte

Message:

new function: consistent-p

Files:

• branches/bos/projects/bos/m2/m2.lisp (modified) (1 diff)

branches/bos/projects/bos/m2/m2.lisp

@@ -553 +553 @@
-  (format t "~&; Startup der Quadratmeterdatenbank done.~%")
-  (force-output))
+
+(defun consistent-p ()
+  (let ((inconsistent-objs
+         (list
+          (remove-if #'sponsor-consistent-p (class-instances 'sponsor))
+          (remove-if #'contract-consistent-p (class-instances 'contract))
+          (remove-if #'allocation-area-consistent-p (class-instances 'allocation-area)))))
+    (values (every #'null inconsistent-objs)
+            inconsistent-objs)))
-
-;; testing