[bknr-cvs] r1983 - branches/xml-class-rework/bknr/src/skip-list - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

15 Sep 2006

Author: hhubner
Date: 2006-09-15 10:21:24 -0400 (Fri, 15 Sep 2006)
New Revision: 1983
Modified:
   branches/xml-class-rework/bknr/src/skip-list/skip-list.lisp
Log:
Workaround for Kamen Tomov's problem with multiple inheritance.
Modified: branches/xml-class-rework/bknr/src/skip-list/skip-list.lisp
===================================================================

--- branches/xml-class-rework/bknr/src/skip-list/skip-list.lisp	2006-08-18 16:38:52 UTC (rev 1982)
+++ branches/xml-class-rework/bknr/src/skip-list/skip-list.lisp	2006-09-15 14:21:24 UTC (rev 1983)
@@ -159,7 +159,7 @@
   (multiple-value-bind (update node)
       (make-update sl key)
-    (when (= (node-key node) key)
+    (when (and node (= (node-key node) key))
       (do ((level 0 (1+ level)))
      ((= level (skip-list-level sl)))
    (let ((next (node-forward update level)))

    