Permalink
Browse files

corrected sample usage

  • Loading branch information...
1 parent 00a6ad3 commit 434fd90ee7e1d0d2cdd994cf0d874e4da5a1e454 @kiuma committed Jun 8, 2011
Showing with 3 additions and 3 deletions.
  1. +3 −3 README
View
@@ -12,9 +12,9 @@ CL-USER> (require :thread-pool)
CL-USER> (let ((out *standard-output*))
(defun make-lazy-fib (n)
- (flet ((fib (n) (if (> n 2)
- (+ (fib (- n 1)) (fib (- n 2)))
- 1)))
+ (labels ((fib (n) (if (> n 2)
+ (+ (fib (- n 1)) (fib (- n 2)))
+ 1)))
(lambda ()
(format out "~%fib ~a = ~a~%" n (fib n))))))

0 comments on commit 434fd90

Please sign in to comment.