From e39788e5cd9ded75be31e3c33e9edf769cb232cb Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Sat, 3 May 2014 15:36:30 +0200 Subject: [PATCH] Fix some CCL warnings. Those were preventing a buildapp based build. --- src/sources/fixed.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/sources/fixed.lisp b/src/sources/fixed.lisp index 1aad1d3..204d90a 100644 --- a/src/sources/fixed.lisp +++ b/src/sources/fixed.lisp @@ -29,15 +29,15 @@ (slot-value fixed 'target))))) (unless transforms (setf (slot-value fixed 'transforms) - (loop for c in columns collect nil))))) + (loop :repeat (length columns) :collect nil))))) (declaim (inline parse-row)) (defmethod parse-row ((fixed copy-fixed) line) "Parse a single line of FIXED input file and return a row of columns." - (loop for (name . opts) in (fields fixed) - collect (destructuring-bind (&key start length &allow-other-keys) opts - (subseq line start (+ start length))))) + (loop :for (nil . opts) :in (fields fixed) + :collect (destructuring-bind (&key start length &allow-other-keys) opts + (subseq line start (+ start length))))) (defmethod map-rows ((fixed copy-fixed) &key process-row-fn) "Load data from a text file in Fixed Columns format. @@ -47,12 +47,12 @@ Returns how many rows where read and processed." (let ((filenames (case (source-type fixed) - (:stdin (list (source csv))) + (:stdin (list (source fixed))) (:inline (list (car (source fixed)))) (:regex (source fixed)) (t (list (source fixed)))))) - (loop for filename in filenames - do + (loop :for filename :in filenames + :do (with-open-file-or-stream ;; we just ignore files that don't exist (input filename