Give the temporary value in assure a more helpful name

ruricolist · Mar 8, 2024 · da8ee8a · da8ee8a
1 parent ad22beb
commit da8ee8a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/types.lisp b/types.lisp
@@ -203,11 +203,11 @@ From ISLISP."
      #+sbcl
      ;; For SBCL, create a temporary binding so SBCL will print a
      ;; warning if it can infer the declared type is wrong.
-     (with-unique-names (temp)
-       `(let ((,temp ,form))
-          (declare (type ,type-spec ,temp))
+     (with-unique-names (assure-temp)
+       `(let ((,assure-temp ,form))
+          (declare (type ,type-spec ,assure-temp))
           ;; `values' is hand-holding for SBCL.
-          (the ,type-spec (values (require-type ,temp ',type-spec)))))
+          (the ,type-spec (values (require-type ,assure-temp ',type-spec)))))
      #-sbcl
      `(the ,type-spec (require-type ,form ',type-spec)))))