anchor.diff:  (defmethod clip-password ((password-interface keepassxc-interface) &key password-name service)
     (declare (ignore service))
     (with-input-from-string (st (master-password password-interface))
  -    (uiop:run-program (list *keepassxc-cli-program*
  +    (uiop:run-program (list (executable password-interface)
                               "clip"
                               (password-file password-interface)
                               password-name
                               ;; Timeout for password
  -                            (format nil "~a" *sleep-timer*))
  +                            (format nil "~a" (sleep-timer password-interface)))
                         :input st :output '(:string :stripped t))))
   
   (defmethod save-password ((password-interface keepassxc-interface) &key password-name password service)
  
positive.code: (eval-when (:compile-toplevel :load-toplevel :execute)
    (export 'make-keepassxc-interface))
  (defun make-keepassxc-interface ()
    (unless *keepassxc-cli-program*
      (setf *keepassxc-cli-program* (executable-find "keepassxc-cli")))
    (when *keepassxc-cli-program*
      (make-instance 'keepassxc-interface)))
  (push #'make-keepassxc-interface interface-list)
  
  (defmethod list-passwords ((password-interface keepassxc-interface))
    (let* ((st (make-string-input-stream (master-password password-interface)))
           (output (uiop:run-program (list *keepassxc-cli-program*
                                           "ls" (password-file password-interface))
                                     :input st :output '(:string :stripped t))))
      (remove "Recycle Bin/" (rest (cl-ppcre:split "\\n" output)) :test #'equal)))
  
negative.code:   (when (master-password password-interface)
      (handler-case
          (let* ((st (make-string-input-stream (master-password password-interface)))
                 (output (uiop:run-program (list (executable password-interface)
                                                 "ls" (password-file password-interface))
                                           :input st :output '(:string :stripped t))))
            (remove "Recycle Bin/" (rest (cl-ppcre:split "\\n" output)) :test #'equal))
  