読み取り時のデフォルトの浮動小数点の精度を指定する - lisp-cookbook-ja/common-lisp GitHub Wiki

数値

read-default-float-format に型を指定することにより可能です

(let ((*read-default-float-format* 'double-float))
  (read-from-string "(1.0 1.0s0)"))
;=>  (1.0d0 1.0)
;    11


(let ((*read-default-float-format* 'single-float))
  (read-from-string "(1.0 1.0d0)"))
;=>  (1.0 1.0d0)
;    11