[graphic-forms-cvs] r160 - trunk/src/demos/unblocked

[junrue at common-lisp.net]

Author: junrue
Date: Sun Jun 25 19:31:00 2006
New Revision: 160

Modified:
   trunk/src/demos/unblocked/unblocked-model.lisp
Log:
fixed a glitch in usage of loop that manifested itself under LW

Modified: trunk/src/demos/unblocked/unblocked-model.lisp
==============================================================================
--- trunk/src/demos/unblocked/unblocked-model.lisp	(original)
+++ trunk/src/demos/unblocked/unblocked-model.lisp	Sun Jun 25 19:31:00 2006
@@ -44,8 +44,8 @@
 
 (defun lookup-level-reached (score)
   (loop for entry in *points-needed-table*
-        until (> entry score)
         for level from 1
+        until (> entry score)
         finally (return level)))
 
 (defun revise-tiles (active-tiles orig-tiles shape-data)