| | 719 | |
|---|
| | 720 | |
|---|
| | 721 | (defun allocation-area-consistent-p (allocation-area) |
|---|
| | 722 | (let ((total (calculate-total-m2-count allocation-area)) |
|---|
| | 723 | (allocated (calculate-allocated-m2-count allocation-area)) |
|---|
| | 724 | (consistent-p t)) |
|---|
| | 725 | (unless (= total (allocation-area-total-m2s allocation-area)) |
|---|
| | 726 | (warn "~s's total count is ~d but should be ~d" |
|---|
| | 727 | allocation-area (allocation-area-total-m2s allocation-area) total) |
|---|
| | 728 | (setf consistent-p nil)) |
|---|
| | 729 | (unless (= (- total allocated) (allocation-area-free-m2s allocation-area)) |
|---|
| | 730 | (warn "~s's free count is ~d but should be ~d" |
|---|
| | 731 | allocation-area (allocation-area-free-m2s allocation-area) (- total allocated)) |
|---|
| | 732 | (setf consistent-p nil)) |
|---|
| | 733 | consistent-p)) |
|---|
| | 734 | |
|---|
