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
27 lines
756 B
Common Lisp
27 lines
756 B
Common Lisp
;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: gkernel.gc
|
|
;; name in dgo: gkernel
|
|
;; dgos: KERNEL
|
|
|
|
(define *kernel-version* (the binteger (logior (ash *kernel-major-version* 16) *kernel-minor-version*)))
|
|
|
|
(defun kernel-dispatcher ()
|
|
"Kernel Dispatcher Function. This gets called from the main loop in kboot.cpp's KernelCheckAndDispatch"
|
|
|
|
;; check if we have a new listener function to run
|
|
(when *listener-function*
|
|
;; we do! enable method-set for debug purposes
|
|
(+! *enable-method-set* 1)
|
|
|
|
;; execute and print result
|
|
(let ((result (*listener-function*)))
|
|
(format #t "~D~%" result)
|
|
)
|
|
(+! *enable-method-set* -1)
|
|
|
|
;; clear the pending function.
|
|
(set! *listener-function* (the (function object) #f))
|
|
)
|
|
) |