rotate works

stylewarning · Nov 15, 2012 · 928fb77 · 928fb77
1 parent 874d7e0
commit 928fb77
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cl-puyopuyo.lisp b/cl-puyopuyo.lisp
@@ -122,8 +122,8 @@
       ((> fy sy)(= fx sx)
        (progn
 	 (format t "~%4th")
-	 (setf (slot-value s 'y) (- sy 1))
-	 (setf (slot-value s 'x) (+ sy 1))))))	 	
+	 (setf (slot-value s 'y) (+ sy 1))
+	 (setf (slot-value f 'x) (- sx 1))))))	 	
     (setf *state* 'unpause))
 
 (defun getOffset (x y)