Revision: 3730 Author: hans URL: http://bknr.net/trac/changeset/3730

Minor tweaks for QuickHoney 2.0

U trunk/bknr/web/src/rss/rss.lisp U trunk/bknr/web/src/sysclasses/user.lisp

Modified: trunk/bknr/web/src/rss/rss.lisp =================================================================== --- trunk/bknr/web/src/rss/rss.lisp 2008-08-19 11:49:23 UTC (rev 3729) +++ trunk/bknr/web/src/rss/rss.lisp 2008-08-22 23:09:48 UTC (rev 3730) @@ -63,7 +63,7 @@ (defmethod prepare-for-snapshot ((channel rss-channel)) "When snapshotting, remove items from CHANNEL that are destroyed." (setf (slot-value channel 'items) - (remove-if #'object-destroyed-p (rss-channel-items channel)))) + (remove-if #'object-destroyed-p (slot-value channel 'items))))

;; Mixin for items

Modified: trunk/bknr/web/src/sysclasses/user.lisp =================================================================== --- trunk/bknr/web/src/sysclasses/user.lisp 2008-08-19 11:49:23 UTC (rev 3729) +++ trunk/bknr/web/src/sysclasses/user.lisp 2008-08-22 23:09:48 UTC (rev 3730) @@ -83,7 +83,8 @@ (set-smb-password (user-login user) plaintext-password)))

(defmethod admin-p ((user user)) - (user-has-flag user :admin)) + (when (user-has-flag user :admin) + t))

(defmethod user-mail-error-p ((user user)) (and (slot-boundp user 'mail-error)