From dce8b7c20eaf1fbf1e7199eb04684a92c217d4d9 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 6 Feb 2019 20:38:14 -0800 Subject: Switch demo2 and demo3 from roman numerals to hex. --- demo2.tl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'demo2.tl') diff --git a/demo2.tl b/demo2.tl index 25bea85..f45baa6 100755 --- a/demo2.tl +++ b/demo2.tl @@ -21,7 +21,9 @@ ; Button number (bn) and button number text (bnt): (defun bn (n) (nth (pred n) '(11 22 33 44 55))) -(defun bnt (n) (format nil (if (eq numar 'a) "~d" "~x") (bn n))) +(defun bnt (n) + (let ((h-or-d (relate '(dec hex) '("~d" "~x")))) + (fmt [h-or-d numar] (bn n)))) (defun togglenumar () (upd numar toggle) -- cgit v1.2.3