diff options
Diffstat (limited to 'demo2')
| -rwxr-xr-x | demo2 | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -17,13 +17,13 @@ (defparameter numar 'a) ; 'r = I II II IV V. 'a = 1 2 3 4 5. ; Button number (bn) and button number text (bnt): -(defun bn (n) (nth (1- n) '(11 22 33 44 55))) +(defun bn (n) (nth (pred n) '(11 22 33 44 55))) (defun bnt (n) (format nil (if (eq numar 'a) "~d" "~@R") (bn n))) (defun togglenumar () - (setq numar (if (eq numar 'a) 'r 'a)) - (loop as button in (list b21 b22 b23 b24 b25) - as n from 1 to 5 - do (xlabel button (bnt n)))) + (set numar (if (eq numar 'a) 'r 'a)) + (each ((button (list b21 b22 b23 b24 b25)) + (n (range 1 5))) + (xlabel button (bnt n)))) (defun xnum (n) (xtext num2 (format nil "~R" n))) |