Skip to content
Browse files

Merge branch 'master' of github.com:sfrank/minheap

  • Loading branch information...
2 parents edbefb0 + bfba26a commit 3a949785c09103dea4e1f52f26e263ca67a511ac @sfrank committed Apr 5, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 rank-pairing-heap.lisp
View
2 rank-pairing-heap.lisp
@@ -68,7 +68,7 @@
(declare (dynamic-extent buckets))
(if (zerop (decf (slot-value heap 'size)))
(setf (slot-value heap 'root) nil)
- (let (tree)
+ (let ((tree))
(loop for i = (node-lchild root) then next
for next = (shiftf (node-rchild i) nil)
with result = nil

0 comments on commit 3a94978

Please sign in to comment.
Something went wrong with that request. Please try again.