Permalink
Browse files

added type specifier to split function

  • Loading branch information...
1 parent 8019a95 commit e211450a1ca9e3c07adb91b2198c01439a98cf59 @sake committed Feb 18, 2010
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/redblack.lisp
View
5 src/redblack.lisp
@@ -324,10 +324,11 @@
-(defmethod split-tree ((tree redblack-tree-map) index)
+(defmethod split-tree ((tree redblack-tree-map) (index integer))
(let ((left-tree (make-tree :test (testfun tree) :type :red-black))
(right-tree (make-tree :test (testfun tree) :type :red-black))
(i 0))
+ (declare (type integer i))
;; function to do the iteration stuff
(labels ((recurse-node (node)
(if node
@@ -361,7 +362,7 @@
(recurse-node (rb-right node))))))
(recurse-node (data second)))
first)
-
+
;;;

0 comments on commit e211450

Please sign in to comment.