DEFUN/DEFMACRO(NULL): #<PACKAGE COMMON-LISP> заблокирован

[Michael N. Kuleshov]

Добрый день!

Сlisp-2.41:

>
> (DEFUN null (x) (COND
> ((EQ x (QUOTE Nil)) (QUOTE T))
> ((QUOTE T) (QUOTE Nil))
> )
> )
> ** - Continuable Error
> DEFUN/DEFMACRO(NULL): #<PACKAGE COMMON-LISP> заблокирован
> Если вы продолжите (введя 'continue'): Игнорировать блокировку и продолжать
> Имеются следующие варианты продолжения:
> ABORT :R1 ABORT
> Break 1 [10]> continue
> WARNING: DEFUN/DEFMACRO: redefining функция NULL in top-level, was
> defined in
> C
> NULL

Подскажите, плз, что это и как побороть.

Спасибо!

Михаил

[Alex Mizrahi]

MNK> Сlisp-2.41:

??>> (DEFUN null (x) (COND
??>> ((EQ x (QUOTE Nil)) (QUOTE T))
??>> ((QUOTE T) (QUOTE Nil))
??>> )
??>> )
??>> ** - Continuable Error
??>> DEFUN/DEFMACRO(NULL): #<PACKAGE COMMON-LISP> заблокирован
??>> Если вы продолжите (введя 'continue'): Игнорировать блокировку и
??>> продолжать Имеются следующие варианты продолжения: ABORT :R1
??>> ABORT Break 1 [10]> continue WARNING: DEFUN/DEFMACRO: redefining
??>> функция NULL in top-level, was defined in C NULL

MNK> Подскажите, плз, что это и как побороть.

оно же тебе русским языком пишет -- введи continue и оно будет игнорировать
блокировку.

а вообще, лучше не называть свои функции так же как стандартные. назови
функцию "null." или "my-null"

либо создай свой package, пропиши там shadow этого символа и наслаждайся..