comment out the 'covert' function in storage package.

This is tag-along code from porting the storage package over from another
project. It's never got in the way so it's never caused any errors -- hence no
deletion/dealing with it until now. I've commented it out with the intention of
deleting if no use for it develops as it the site gets closer to going into
production.

src/storage.lisp

@@ -305,13 +305,13 @@ Before calling this function, make sure the file exists. You should have
 ;;; This function requires ImageMagick so you will need to install it
 ;;; with 'sudo apt install imagemagick' (assuming you are on a
 ;;; Debian-based system).
-(defun convert (id subdirectory original-file converted-file)
-  (let ((command (format nil "convert -geometry ~A ~A ~A"
-			 (file-size converted-file)
-			 (make-storage-pathname id subdirectory original-file)
-			 (make-storage-pathname id subdirectory converted-file))))
-    (let ((message (nth-value 1
-			      (uiop:run-program command
-						:ignore-error-status t
-						:error-output :string))))
-      (when message (error message)))))
+;; (defun convert (id subdirectory original-file converted-file)
+;;   (let ((command (format nil "convert -geometry ~A ~A ~A"
+;; 			 (file-size converted-file)
+;; 			 (make-storage-pathname id subdirectory original-file)
+;; 			 (make-storage-pathname id subdirectory converted-file))))
+;;     (let ((message (nth-value 1
+;; 			      (uiop:run-program command
+;; 						:ignore-error-status t
+;; 						:error-output :string))))
+;;       (when message (error message)))))