数値を16bitにキャストして正負判断するコードを考えています。

(short) n

lispではどのように書くのでしょうか?