怎样判断块是否存在？

lht

一个lisp程序多次运行，第一次运行时程序制作了一个名为bh的块，第二次运行时出现“错误 : 函数被取消是否重定义？[是(Y)/否(N)] <N>:”怎样解决？

我想加一判断函数，如果bh已存在则不再制作块，不知怎样判断bh块的存在？

ZZXXQQ

(IF (/= (TBLSEARCH "BLOCK" "bh") nil) (PROGN

...;块已存在

)

(PROGN

...;块不存在

))