Replace cl-fad by UIOP.

This commit is contained in:
Eitaro Fukamachi 2015-08-27 08:01:51 +09:00
parent a8e8a70333
commit e25965ec60
2 changed files with 4 additions and 4 deletions

View file

@ -9,7 +9,7 @@
:license "LLGPL"
:depends-on (:trivial-mimes
:local-time
:cl-fad
:uiop
:alexandria)
:components ((:module "src"
:components

View file

@ -6,7 +6,7 @@
(:import-from :local-time
:format-rfc1123-timestring
:universal-to-timestamp)
(:import-from :cl-fad
(:import-from :uiop
:file-exists-p
:directory-exists-p)
(:import-from :alexandria
@ -47,8 +47,8 @@
;; Ignore simple-file-error in a case that
;; the file path contains some special characters like "?".
;; See https://github.com/fukamachi/clack/issues/111
(file-exists-p file))
(not (directory-exists-p file))))
(uiop:file-exists-p file))
(not (uiop:directory-exists-p file))))
(error 'not-found))
(t file))))