From d74c9625a3cf405a79cb2e9ef2b44f0aea7ca610 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 8 Jun 2017 13:39:38 +0200 Subject: [PATCH] Clarify the code. (unless (remove-if-not ...)) reads better as (when (notany ...)) so rewrite the test that way. For reference and context see #563. --- src/sources/sqlite/sqlite-schema.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sources/sqlite/sqlite-schema.lisp b/src/sources/sqlite/sqlite-schema.lisp index 619a309..5d071f2 100644 --- a/src/sources/sqlite/sqlite-schema.lisp +++ b/src/sources/sqlite/sqlite-schema.lisp @@ -122,7 +122,7 @@ ;;; (defun add-unlisted-primary-key-index (table) "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) :when (< 0 (coldef-pk-id field)) :collect field)))