Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

corrected sample usage

  • Loading branch information...
commit 434fd90ee7e1d0d2cdd994cf0d874e4da5a1e454 1 parent 00a6ad3
@kiuma authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 README
View
6 README
@@ -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))))))
Please sign in to comment.
Something went wrong with that request. Please try again.