(defun get-last-modified-file (dir &key (pattern "*") (number 1))
  (unless (directory-p dir) (return-from get-last-modified-file (values nil :dir-failure)))
  (let ((files (directory (format nil "~A/~A" dir pattern))))
    (setq files (sort files #'> :key #'file-write-date))
    (mapcar #'file-namestring (subseq files 0 number))
    )
  )