repos
/
smoke
/ headblob
summary
|
shortlog
|
log
|
tree
|
annotate
|
headblob
|
filehistory
plain
/
src
/
libsmoke
/
src/libsmoke/type.lisp
1
(in-package #:smoke)
2
3
(defcenum smoke-type-flags
4
"Type properties"
5
(:type-id #x0F)
6
7
(:stack #x10)
8
(:pointer #x20)
9
(:reference #x30)
10
11
(:const #x40))
12
13
(defcstruct smoke-type
14
(name :string)
15
(class smoke-index)
16
(flags :unsigned-short))
17
18
(defcfun (smoke-find-type "cl_smoke_find_type") smoke-index
19
(smoke :pointer)
20
(name :string))