remove * from function types

stylewarning · Nov 2, 2021 · 20c10e9 · 20c10e9
1 parent a0416a6
commit 20c10e9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/minkwitz.lisp b/src/minkwitz.lisp
@@ -145,7 +145,7 @@ The arguments are:
 "
   (declare (optimize (speed 0) safety debug))
   ;;(declare (optimize speed (safety 0) (debug 0)))
-  (declare (type (function (*) *) simplifier))
+  (declare (type (function (t) t) simplifier))
 
   ;; Deviations from Minkwitz's paper, and other implementation notes:
   ;;
@@ -229,7 +229,7 @@ The arguments are:
      (declare (type double-float length-limit)
               (type unsigned-byte order)
               (type (and fixnum unsigned-byte) k improve-every)
-              (type (function (*) *) ϕ)
+              (type (function (t) t) ϕ)
               (type simple-vector ν)
               (type simple-vector base)))