mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
8faded6400
* fix 64-bit fields in 128-bit bitfields * support sound-name * fix merge * support some more sound stuff in overlord
13 lines
443 B
Common Lisp
13 lines
443 B
Common Lisp
|
|
(let ((sound-name-1 (static-sound-name "asdfghjkzxcvn,."))
|
|
(sound-name-2 (string->sound-name "asdfghjkzxcvn,."))
|
|
(sound-name-3 (string->sound-name "asdfghjkzxcvnn,."))
|
|
(sound-name-4 (string->sound-name "asddghjkzxcvnm,."))
|
|
)
|
|
(format #t "~A ~A ~A~%"
|
|
(sound-name= sound-name-1 sound-name-2)
|
|
(sound-name= sound-name-1 sound-name-3)
|
|
(sound-name= sound-name-1 sound-name-4)
|
|
)
|
|
)
|