From 1feb6093af9417a611ecd57c25f3f69cc9dff73b Mon Sep 17 00:00:00 2001 From: Alfredo Beaumont Date: Tue, 23 Apr 2013 16:14:32 +0200 Subject: [PATCH] Fix spacing in !parse-integer --- ecmalisp.lisp | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/ecmalisp.lisp b/ecmalisp.lisp index fbbdbb1..21ef044 100644 --- a/ecmalisp.lisp +++ b/ecmalisp.lisp @@ -1132,31 +1132,31 @@ (defun !parse-integer (string junk-allow) (block nil (let ((value 0) - (index 0) - (size (length string)) - (sign 1)) + (index 0) + (size (length string)) + (sign 1)) (when (zerop size) (return (values nil 0))) ;; Optional sign (case (char string 0) - (#\+ (incf index)) - (#\- (setq sign -1) - (incf index))) + (#\+ (incf index)) + (#\- (setq sign -1) + (incf index))) ;; First digit (unless (and (< index size) - (setq value (digit-char-p (char string index)))) - (return (values nil index))) + (setq value (digit-char-p (char string index)))) + (return (values nil index))) (incf index) ;; Other digits (while (< index size) - (let ((digit (digit-char-p (char string index)))) - (unless digit (return)) - (setq value (+ (* value 10) digit)) - (incf index))) + (let ((digit (digit-char-p (char string index)))) + (unless digit (return)) + (setq value (+ (* value 10) digit)) + (incf index))) (if (or junk-allow - (= index size) - (char= (char string index) #\space)) - (values (* sign value) index) - (values nil index))))) + (= index size) + (char= (char string index) #\space)) + (values (* sign value) index) + (values nil index))))) #+ecmalisp (defun parse-integer (string) -- 1.7.10.4