(let ((result (apply 'call-process slp-program nil t nil
(append slp-program-arguments (delq nil args)))))
(unless (zerop result)
(let ((result (apply 'call-process slp-program nil t nil
(append slp-program-arguments (delq nil args)))))
(unless (zerop result)