mirror of
https://github.com/open-goal/jak-project
synced 2026-06-15 14:31:58 -04:00
Tyler Wilding
10 lines
218 B
Common Lisp
10 lines
218 B
Common Lisp
(defun ash ((value integer) (shift-amount integer))
|
|
(declare (inline))
|
|
(if (> shift-amount 0)
|
|
(shlv value shift-amount)
|
|
(sarv value (- shift-amount))
|
|
)
|
|
)
|
|
|
|
|
|
(+ (ash (+ 1 2) (/ 6 2)) (ash (- 12) (- 1))) |