Revision: 3832 Author: hans URL: http://bknr.net/trac/changeset/3832
Fix REMOVE-ITEM so that it operates on the 'ITEMS slot value, not the result of RSS-CHANNEL-ITEMS.
U trunk/bknr/web/src/rss/rss.lisp
Modified: trunk/bknr/web/src/rss/rss.lisp =================================================================== --- trunk/bknr/web/src/rss/rss.lisp 2008-09-07 15:25:32 UTC (rev 3831) +++ trunk/bknr/web/src/rss/rss.lisp 2008-09-07 16:10:38 UTC (rev 3832) @@ -168,7 +168,7 @@ (:documentation "Remove ITEM from CHANNEL. May only be called within transaction context.") (:method ((channel rss-channel) item) - (setf (slot-value channel 'items) (remove item (rss-channel-items channel)))) + (setf (slot-value channel 'items) (remove item (slot-value channel 'items)))) (:method ((channel string) item) (aif (find-rss-channel channel) (remove-item it item)))