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