[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv6197/Drei

Modified Files:
	drei.lisp 
Log Message:
Only delete cursor output records if they have a parent.


--- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2008/01/27 09:36:07	1.31
+++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2008/01/27 10:23:05	1.32
@@ -358,7 +358,8 @@
   ;; Delete the old cursors, then add the new ones, provided the
   ;; setting of the view is successful.
   (dolist (cursor (cursors drei))
-    (delete-output-record cursor (output-record-parent cursor) nil))
+    (when (output-record-parent cursor)
+      (delete-output-record cursor (output-record-parent cursor) nil)))
   (add-view-cursors drei))
 
 (defmethod esa-current-buffer ((drei drei))