|
@@ -12,4 +12,11 @@
|
|
|
(incf (constraint-checks (problem constraint))))
|
|
|
result))
|
|
|
|
|
|
+(defmethod check-constraint ((constraint <constraint-combined>) vvps &key &allow-other-keys)
|
|
|
+ (let ((value t))
|
|
|
+ (do* ((constraints (constraints constraint) (rest constraints))
|
|
|
+ (constr (first constraints) (first constraints)))
|
|
|
+ ((or (not value) (null constr)) value)
|
|
|
+ (setf value (check-constraint constr vvps :suppress-cc-update-p t)))))
|
|
|
+
|
|
|
;;; End lcsp
|