mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-04 18:36:12 +02:00
Code Issues Projects Releases Wiki Activity

Simplify some loop constructs, per stassats gripe.

Browse Source
This commit is contained in:
Dimitri Fontaine 2014-12-26 22:13:25 +01:00
parent 13992121b3
commit f922392341
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/parsers/command-parser.lisp
View File

@ -40,8 +40,8 @@
(typep s-exp 'fixed-connection))
(slot-boundp s-exp 'specs)
(eq :inline (first (csv-specs s-exp))))
:collect (progn (setf (second (csv-specs s-exp)) position)
s-exp)
:do (setf (second (csv-specs s-exp)) position)
:and :collect s-exp
:else :collect (if (and (consp s-exp) (listp (cdr s-exp)))
(inject-inline-data-position s-exp position)
@ -60,12 +60,11 @@
((and (typep s-exp 'fd-connection)
(slot-boundp s-exp 'pgloader.connection::path))
(if (uiop:relative-pathname-p (fd-path s-exp))
(progn (setf (fd-path s-exp)
(uiop:merge-pathnames* (fd-path s-exp)
filename))
s-exp)
s-exp))
(when (uiop:relative-pathname-p (fd-path s-exp))
(setf (fd-path s-exp)
(uiop:merge-pathnames* (fd-path s-exp)
filename)))
s-exp)
((and (or (typep s-exp 'csv-connection)
(typep s-exp 'fixed-connection))