hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-04 17:01:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Replace cl-fad by UIOP.

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lack-middleware-static.asd
View file

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

6
src/app/file.lisp
View file

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