remove get-latest-file-type code from storage package.

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: