[bknr-cvs] r1983 - branches/xml-class-rework/bknr/src/skip-list

[bknr at bknr.net]

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