From 7314f263288fa4dd5c7e44206ce2973913e38df8 Mon Sep 17 00:00:00 2001 From: David O'Toole Date: Tue, 8 Dec 2009 06:34:42 -0500 Subject: [PATCH] tutorial --- xong/xong.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/xong/xong.lisp b/xong/xong.lisp index 37d16fb..581a189 100644 --- a/xong/xong.lisp +++ b/xong/xong.lisp @@ -1909,8 +1909,10 @@ the player gets too close.")) [orient chevron-2 :west] [drop-cell self chevron-1 10 10] [drop-cell self chevron-2 10 20] - (dotimes (n 5) + (dotimes (n 9) [drop-cell self (clone =hole= :nospew t) 20 (+ n 11)]) + (dotimes (n 9) + [drop-cell self (clone =hole= :nospew t) 5 (+ n 11)]) (dotimes (n 5) (let ((diamond (clone =diamond=))) [drop-cell self diamond (+ 20 (random 5)) (+ 30 (random 10))]