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