From c0f9569ddd515ce05186e19a7a369bc412ecb89d Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Mon, 23 Jan 2017 21:49:42 +0100 Subject: [PATCH] In passing aesthetic concerns. --- src/sources/common/casting-rules.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/sources/common/casting-rules.lisp b/src/sources/common/casting-rules.lisp index d0640b0..3a668be 100644 --- a/src/sources/common/casting-rules.lisp +++ b/src/sources/common/casting-rules.lisp @@ -109,7 +109,9 @@ :type-name type-name :type-mod (when (and source-typemod (not drop-typemod)) pg-typemod) - :nullable (and (not set-not-null) (or (not source-not-null) drop-not-null)) + :nullable (and (not set-not-null) + (or (not source-not-null) + drop-not-null)) :default (when (and source-default (not drop-default)) source-default) :transform using))) @@ -151,7 +153,7 @@ (setf first-match-using using)) :until target :finally (let ((coldef (make-pgsql-type source target using))) - (log-message :info "CAST ~a.~a ~a [~s, ~:[NULL~;NOT NULL~]~:[~*~;, ~a~]] TO ~s~@[ USING ~a~]" + (log-message :info "CAST ~a.~a ~a [~s, ~:[NULL~;NOT NULL~]~:[~*~;, ~a~]] TO ~a~@[ USING ~a~]" table-name column-name ctype default (string= "NO" nullable) (string/= "" extra) extra