(defun unsigned->signed (int size)
  (if (logbitp (1- size) int)
      (- (1+ (logxor int (1- (expt 2 size)))))
      int))