mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
c9b53d51ff
* check on windows * fix windows build * version test * clean up - will it work on windows * fix formatting
17 lines
494 B
Common Lisp
17 lines
494 B
Common Lisp
(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 |