с использованием COND по необязательным аргументам в общем lisp

Question

У меня возникла проблема с записью функции LISP. Функция определяется как

(defun foo (arg1 &optional cont)) 
    (cond ((null arg1) nil) 
     ((= 0 cont) arg1) 
     ((do_something)) 
     ((recursive call)))) 

Когда я вызвать функцию с cont все работает отлично, но когда я называю это только с arg1 ошибки возвращаемые:

Error: in ZEROP of (NIL) arguments should be of type NUMBER 

Я предполагаю, что-то не так в условие ((= 0 cont) arg1), вы можете помочь мне решить эту проблему? Thanks

Answer 1

Функция =, а также некоторые другие, ожидают только цифры.

Вам необходимо использовать EQL или более общее сравнение равенства (равное, equalp), если вы ожидаете, что NIL будет действительным входом; здесь ожидается NIL, поскольку это значение по умолчанию необязательного аргумента.

Вы также мог бы обеспечить численное значение по умолчанию cont:

... &optional (cont 0) ... 

... что может быть правильным подходом, если cont не имеет никаких оснований, чтобы быть ничем иным, кроме числа.