/ src / libsmoke /
/src/libsmoke/stack.lisp
1 (in-package #:smoke)
2
3 (defcunion smoke-stack-item
4 "A variable on the Smoke stack"
5 (voidp :pointer)
6 (bool cxx-bool)
7 (char :char)
8 (uchar :unsigned-char)
9 (short :short)
10 (ushort :unsigned-short)
11 (int :int)
12 (uint :unsigned-int)
13 (long :long)
14 (ulong :unsigned-long)
15 (float :float)
16 (double :double)
17 (enum-value :long)
18 (class :pointer))
19
20 (defctype smoke-stack (:pointer smoke-stack-item)
21 "A Smoke call stack.")