Re: code does not work as expected

It prints "twelve" for me. Maybe you are operating on an older version 
of TEENS-ALIST, which didn't get redefined due to DEFVAR's semantics?

W dniu 2026-04-10 19:14, Igor Denisov (as defun-var at yandex dot ru) 
napisał(a):

> Hello there,
> 
> I wrote a prototype in emacs lisp and it works fine and when i tried to 
> translate it into lispworks I stumbled on
> 
> (defvar teens-alist
> '((0 . "") (10 . "ten") (11 . "eleven") (12 . "twelve")
> (13 . "thirteen") (14 . "fourteen") (15 . "fifteen")
> (16 . "sixteen") (17 . "seventeen") (18 . "eighteen") (19 . 
> "nineteen")))
> 
> (defun get-num (alist n)
> (if (= n 0)
> (car alist)
> (get-num (cdr alist) (- n 1))))
> 
> (format t "~a" (cdr (assoc (+ (* (get-num '(1 2) 0) 10) (get-num '(1 2) 
> 1)) teens-alist))) ;;=> NIL
> 
> format return must be twelve not NIL. Where is a mistake?
> 
> Thank you,
> Regards,
> Igor
> _______________________________________________ Lisp Hug - the mailing 
> list for LispWorks users [email protected] 
> http://www.lispworks.com/support/lisp-hug.html