mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-21 17:47:44 -04:00
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)))
|