code does not work as expected

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