mirror of
https://github.com/dimitri/pgloader.git
synced 2026-05-05 10:56:10 +02:00
Improve nil handling of transformation functions, fix #81.
Several transformation functions where not handling nil value specifically, preventing the compiler to do its best and producing WARNING at pgloader run time.
This commit is contained in:
parent
63e6b506be
commit
899f0a3291
@ -145,21 +145,25 @@
|
||||
"Transform a Common Lisp float value into its string representation as
|
||||
accepted by PostgreSQL, that is 100.0 rather than 100.0d0."
|
||||
(declare (type (or null float) float))
|
||||
(let ((*read-default-float-format* 'double-float))
|
||||
(princ-to-string float)))
|
||||
(when float
|
||||
(let ((*read-default-float-format* 'double-float))
|
||||
(princ-to-string float))))
|
||||
|
||||
(defun set-to-enum-array (set-string)
|
||||
"Transform a MySQL SET value into a PostgreSQL ENUM Array"
|
||||
(format nil "{~a}" set-string))
|
||||
(when set-string
|
||||
(format nil "{~a}" set-string)))
|
||||
|
||||
(defun empty-string-to-null (string)
|
||||
"MySQL ENUM sometimes return an empty string rather than a NULL."
|
||||
(if (string= string "") nil string))
|
||||
(when string
|
||||
(if (string= string "") nil string)))
|
||||
|
||||
(defun right-trim (string)
|
||||
"Remove whitespaces at end of STRING."
|
||||
(declare (type (or null simple-string) string))
|
||||
(string-right-trim '(#\Space) string))
|
||||
(when string
|
||||
(string-right-trim '(#\Space) string)))
|
||||
|
||||
(defun byte-vector-to-bytea (vector)
|
||||
"Transform a simple array of unsigned bytes to the PostgreSQL bytea
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user