|
|
@@ -85,10 +85,10 @@
|
|
|
(labels ((valid (posting)
|
|
|
(and (or (null predicate)
|
|
|
(funcall predicate entry posting))
|
|
|
- (or (ecase real
|
|
|
+ (or (null real)
|
|
|
+ (ecase real
|
|
|
(:t (null (posting-virtual posting)))
|
|
|
- (:f (posting-virtual posting))
|
|
|
- (nil t))))))
|
|
|
+ (:f (posting-virtual posting)))))))
|
|
|
(remove-if-not #'valid (entry-postings entry))))
|
|
|
|
|
|
(defun account-parents (account &key tree)
|
