From 870007312644b0f888ece6d188c2edb1f6339083 Mon Sep 17 00:00:00 2001 From: saturn Date: Mon, 22 Mar 2021 01:51:36 -0500 Subject: [PATCH] Fix spelling error. --- src/images.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/images.lisp b/src/images.lisp index 16a8ad81..8de9fb8c 100644 --- a/src/images.lisp +++ b/src/images.lisp @@ -15,7 +15,7 @@ (destructuring-bind (width height) result-list (values (parse-integer width) (parse-integer height) mime-type)))) -(defun image-invertable (image-filename) +(defun image-invertible (image-filename) (let ((histogram-list nil) (background-pixels 0) (background-brightness 0)) @@ -71,7 +71,7 @@ (unless (probe-file pathname) (download-file uri pathname)) (multiple-value-bind (width height mime-type) (image-statistics pathname) - (let* ((inverted-uri (and (image-invertable pathname) (format nil "~A-inverted" proxy-uri))) + (let* ((inverted-uri (and (image-invertible pathname) (format nil "~A-inverted" proxy-uri))) (inverted-pathname (and inverted-uri (format nil "www~A" inverted-uri)))) (when inverted-uri (invert-image pathname inverted-pathname)) (alist :version *current-version* -- 2.11.4.GIT