mirror of
https://github.com/open-goal/jak-project
synced 2026-08-21 06:38:33 -04:00
Tyler Wilding
19 lines
519 B
Common Lisp
19 lines
519 B
Common Lisp
(define format _format)
|
|
|
|
(deftype self-test-type (basic)
|
|
((self basic))
|
|
)
|
|
|
|
(defmethod new self-test-type ((allocation symbol) (type-to-make type))
|
|
(let ((obj (object-new)))
|
|
;; here the register of obj is used both as a "real" pointer and a GOAL pointer in the same instruction.
|
|
;; this was a tricky thing to get right in the old compiler, so its worth testing.
|
|
(set! (-> obj self) obj)
|
|
obj
|
|
)
|
|
)
|
|
|
|
(let ((temp (new 'global 'self-test-type)))
|
|
(format #t "~A~%" (eq? temp (-> temp self)))
|
|
)
|
|
0 |