mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-21 17:47:44 -04:00
17 lines
279 B
Common Lisp
17 lines
279 B
Common Lisp
(defenum test-bitfield :bitfield #t
|
|
(four 2)
|
|
(one 0)
|
|
(two 1)
|
|
)
|
|
|
|
(deftype type-with-bitfield (basic)
|
|
((name basic)
|
|
(thing int32)
|
|
)
|
|
)
|
|
|
|
(let ((obj (new 'global 'type-with-bitfield)))
|
|
(set! (-> obj thing) (test-bitfield one four))
|
|
(the uint (-> obj thing))
|
|
)
|