3 ;; grep '^#define CLS_[^(]*$' /usr/include/objc/objc-class.h | tr "\t" " " | sed -e 's/#define \([^ ]*\).*0x\([^L]*\).*/(defconstant \1 #x\2)/'
4 (defconstant CLS_CLASS
#x1
)
5 (defconstant CLS_META
#x2
)
6 (defconstant CLS_INITIALIZED
#x4
)
7 (defconstant CLS_POSING
#x8
)
8 (defconstant CLS_MAPPED
#x10
)
9 (defconstant CLS_FLUSH_CACHE
#x20
)
10 (defconstant CLS_GROW_CACHE
#x40
)
11 (defconstant CLS_NEED_BIND
#x80
)
12 (defconstant CLS_METHOD_ARRAY
#x100
)
13 (defconstant CLS_JAVA_HYBRID
#x200
)
14 (defconstant CLS_JAVA_CLASS
#x400
)
15 (defconstant CLS_INITIALIZING
#x800
)
16 (defconstant CLS_FROM_BUNDLE
#x1000
)
17 (defconstant CLS_HAS_CXX_STRUCTORS
#x2000
)
18 (defconstant CLS_NO_METHOD_ARRAY
#x4000
)
20 (defun cls-get-info (cls infomask
)
21 (logtest cls infomask
))
