mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-02-05 06:21:40 +01:00
Code Issues Projects Releases Wiki Activity

Fix some CCL warnings.

Browse Source 
Those were preventing a buildapp based build.
This commit is contained in:
Dimitri Fontaine 2014-05-03 15:36:30 +02:00
parent 6e58db2994
commit e39788e5cd
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/sources/fixed.lisp
View File

@ -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