[bknr-cvs] hans changed trunk/bknr/web/src/rss/rss.lisp

[BKNR Commits]

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)))