(declare (ignore char arg))
(values (read-line stream))))
-;; Start up swank.
+;; Use double-precision by default.
+(setf *read-default-float-format* 'double-float)
+
+;; Start up Swank.
(export 'crank-swank)
(defun crank-swank (&rest args)
(let ((swank (find-package "SWANK")))