mirror of
https://github.com/open-goal/jak-project
synced 2026-07-01 20:20:35 -04:00
water111
35bdc9b1d3
* also add a new sprite renderer * claaaang * goal build fix * fix tests, add stack singleton option * make all event-message-blocks the same * diskboot
18 lines
478 B
Common Lisp
18 lines
478 B
Common Lisp
(defun stack-addr-test ()
|
|
(let ((vec1 (new 'stack-no-clear 'vector))
|
|
(vec2 (new 'stack-no-clear 'vector))
|
|
(vec3 (new 'stack-singleton-no-clear 'vector))
|
|
(vec4 (new 'stack 'vector))
|
|
(vec5 (new 'stack-singleton-no-clear 'vector))
|
|
)
|
|
(format #t "~A ~A ~A ~A ~A~%"
|
|
(= vec1 vec2)
|
|
(= vec2 vec3)
|
|
(= vec3 vec4)
|
|
(= vec4 vec5)
|
|
(= vec3 vec5)
|
|
)
|
|
)
|
|
)
|
|
|
|
(stack-addr-test) |