Changeset 3730
- Timestamp:
- 08/23/08 01:09:48 (3 months ago)
- Files:
-
- trunk/bknr/web/src/rss/rss.lisp (modified) (1 diff)
- trunk/bknr/web/src/sysclasses/user.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/bknr/web/src/rss/rss.lisp
r3716 r3730 64 64 "When snapshotting, remove items from CHANNEL that are destroyed." 65 65 (setf (slot-value channel 'items) 66 (remove-if #'object-destroyed-p ( rss-channel-items channel))))66 (remove-if #'object-destroyed-p (slot-value channel 'items)))) 67 67 68 68 ;; Mixin for items trunk/bknr/web/src/sysclasses/user.lisp
r3716 r3730 84 84 85 85 (defmethod admin-p ((user user)) 86 (user-has-flag user :admin)) 86 (when (user-has-flag user :admin) 87 t)) 87 88 88 89 (defmethod user-mail-error-p ((user user))
