(defun ash ((value integer) (shift-amount integer))
  (declare (inline))
  (if (> shift-amount 0)
    (shl value shift-amount)
    (sar value (- shift-amount))
    )
  )


(+ (ash (+ 1 2) (/ 6 2)) (ash (- 12) (- 1)))