通过下面查询
cond((booleanp(A) axlUIWPrint(nil "A is a boolean.\n" ) )
(integerp(A) axlUIWPrint(nil "A is an integer.\n" ) )
(realp(A) axlUIWPrint(nil "A is a real.\n" ) )
(listp(A) axlUIWPrint(nil "A is an list.\n" ) )
(stringp(A) axlUIWPrint(nil "A is a string.\n" ) )
(symstrpA) axlUIWPrint(nil "A is an symbol.\n" ) )
(t axlUIWPrint(nil "A is other type.\n" ) )
)