Error: unbound function - EQUALP - Lisp

Формулировка задачи:

Доброго всем вечера. Столкнулась с проблемой, что XLISP-PLUS 3.04 на запрос (equalp 3.0 3) и подобные ему отвечает ошибкой error: unbound function - EQUALP. Хотя, если верить описанию функции, должен возвращать Т. В чем может быть причина такого поведения и как исправить? Заранее спасибо

Решение задачи: «Error: unbound function - EQUALP»

textual
                            Листинг программы 
                        

                            (defun equalp (x y) 
   (COND ((ATOM x) (EQ x y)) 
         ((ATOM y) NIL) 
         ((equalp (CAR x) (CAR y)) (equalp (CDR x) (CDR y))) 
         (T NIL)))
                        