First cut at TXR Lisp port.

1 files changed, 5 insertions, 5 deletions

diff --git a/demo2 b/demo2
index f199075..cd757ce 100755
--- a/demo2
+++ b/demo2
@@ -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)))