(float (read-from-string "-1") 1d0)
 ; => -1.0d0 (-100.0d0%)

(let ((string "-1"))
  (float (read-from-string string) 1d0))
 ; => -1 (0 bits)