mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-08 07:16:58 +02:00
Code Issues Projects Releases Wiki Activity

Clarify the code.

Browse Source 
(unless (remove-if-not ...)) reads better as (when (notany ...)) so rewrite
the test that way. For reference and context see #563.
This commit is contained in:
Dimitri Fontaine 2017-06-08 13:39:38 +02:00
parent 776f8fcf6f
commit d74c9625a3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/sources/sqlite/sqlite-schema.lisp
View File

@ -122,7 +122,7 @@
;;; ;;;
(defun add-unlisted-primary-key-index (table) (defun add-unlisted-primary-key-index (table)
"Add to TABLE any unlisted primary key index..." "Add to TABLE any unlisted primary key index..."
(unless (remove-if-not #'index-primary (table-index-list table)) (when (notany #'index-primary (table-index-list table))
(let ((pk-fields (loop :for field :in (table-field-list table) (let ((pk-fields (loop :for field :in (table-field-list table)
:when (< 0 (coldef-pk-id field)) :when (< 0 (coldef-pk-id field))
:collect field))) :collect field)))