Commit 250259bf authored by Eric Timmons's avatar Eric Timmons
Browse files

Remove some commented out test code

parent 1b544069
......@@ -124,10 +124,8 @@
(versions (ql-dist-versions ql-dist))
(modified-p nil))
(dolist (version versions)
(unless (or
;;(string>= version "2017-01-01")
(and latest-version-synced
(string<= version latest-version-synced)))
(unless (and latest-version-synced
(string<= version latest-version-synced))
(ql-version-to-clpi ql-dist version index)
(setf modified-p t)
(setf (clpi:metadata-value index :ql/latest-version-synced) version)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment