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

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)