Fix CCL compat where nil can't be a plist key.

This commit is contained in:
Dimitri Fontaine 2014-07-18 12:49:14 +02:00
parent 4aa8b0946f
commit a090f2fe3d

View File

@ -2119,7 +2119,7 @@ load database
(:lambda (command)
(destructuring-bind (source target before commands finally) command
(destructuring-bind (&key before commands finally)
(alexandria:alist-plist (list before commands finally))
(alexandria:alist-plist (remove-if #'null (list before commands finally)))
(list source target
:before before
:commands commands