mccad 发表于 2012-9-2 19:55:59

atom 验证一个项是否是原子

<P id=crleadin class=cr_leadin>验证一个项是否是原子</P><PRE class=prog_in_end>(atom item)</PRE>
<P class=Heading-2>参数</P>
<P class=define_head>item</P>
<P class=define_text>任意 AutoLISP 项。</P>
<P class=body>某些版本的 LISP 对 atom（原子）的解释有些不同，所以在使用移植的代码时应加以注意。</P>
<P class=Heading-2>返回值</P>
<P class=body>如果 item 是表，则为 nil，否则为 T。任何不是表的变量都认为是元素原子。</P>
<P class=Heading-2>示例</P>
<P class=prompt_end>命令： <SPAN class=CharSansBold>(setq a '(x y z))</SPAN> </P>
<P class=prompt_end>(X Y Z)</P>
<P class=prompt_end>命令： <SPAN class=CharSansBold>(setq b 'a)</SPAN> </P>
<P class=prompt_end>A</P>
<P class=prompt_end>命令： <SPAN class=CharSansBold>(atom 'a)</SPAN> </P>
<P class=prompt_end>T</P>
<P class=prompt_end>命令： <SPAN class=CharSansBold>(atom a)</SPAN> </P>
<P class=prompt_end>nil</P>
<P class=prompt_end>命令： <SPAN class=CharSansBold>(atom 'b)</SPAN> </P>
<P class=prompt_end>T</P>
<P class=prompt_end>命令： <SPAN class=CharSansBold>(atom b)</SPAN> </P>
<P class=prompt_end>T</P>
<P class=prompt_end>命令： <SPAN class=CharSansBold>(atom '(a b c))</SPAN> </P>
<P class=prompt_end>nil</P>

mccad 发表于 2012-9-2 19:56:11

示例预留
页: [1]
查看完整版本: atom 验证一个项是否是原子