From 6d8fa33b97ed6fc960d10299c3f4d0f4be68f1e8 Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Fri, 23 Sep 2022 16:13:26 +0100 Subject: [PATCH] remove get-latest-file-type code from storage package. --- src/storage.lisp | 8 -------- 1 file changed, 8 deletions(-) diff --git a/src/storage.lisp b/src/storage.lisp index a4a8bd2..23e6e44 100644 --- a/src/storage.lisp +++ b/src/storage.lisp @@ -7,7 +7,6 @@ #:file-exists-p #:get-files-in-directory #:get-file-names - #:get-latest-file-type #:make-path #:open-file #:open-binary-file @@ -74,13 +73,6 @@ If the file exists, the full (absolute) path is returned (equates to "" (mapcar #'(lambda (x) (file-namestring x)) filenames)) -(defun get-latest-file-type (old-file new-file) - "NOT IMPLEMENTED! Gets the file type of the specified `FILE', return `NIL' if no file found" - ;; (if (string= "" (cadr new-file)) - ;; (file::content-type-of old-file) - ;; (caddr new-file))) - (format t "[WARNING] get-latest-file-type not implemented.")) - (defun make-path (username subdirectory slug) "Forms the path used to save a file. Storage path: