From 2d0b3ca25e04906dce0053a520d2f4d8cdd7b2f6 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Fri, 12 May 2017 23:38:10 +0200 Subject: [PATCH] cosmetic: fix indent --- src/lsp/format.lsp | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/src/lsp/format.lsp b/src/lsp/format.lsp index e02dd74dc..409eb0a0d 100644 --- a/src/lsp/format.lsp +++ b/src/lsp/format.lsp @@ -114,14 +114,11 @@ (declare (type float x)) (if (zerop x) ;; Zero is a special case which FLOAT-STRING cannot handle. - (cond ((null fdigits) - (values ".0" 2 t nil 0)) - ((zerop fdigits) - (values "0." 2 nil t 1)) - (T - (let ((s (make-string (1+ fdigits) :initial-element #\0))) - (setf (schar s 0) #\.) - (values s (length s) t nil 0)))) + (cond ((null fdigits) (values ".0" 2 t nil 0)) + ((zerop fdigits) (values "0." 2 nil t 1)) + (T (let ((s (make-string (1+ fdigits) :initial-element #\0))) + (setf (schar s 0) #\.) + (values s (length s) t nil 0)))) (multiple-value-bind (e string zero?) (cond (fdigits (float-to-digits* nil x