[nongnu] elpa/telephone-line bc999daf13 031/195: More cl -> cl-lib

[ELPA Syncer]

branch: elpa/telephone-line
commit bc999daf13b640d9bff292637b36a46df4a3df86
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>

    More cl -> cl-lib
---
 telephone-line-utils.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index 8e0c93c5b1..3f4ae3036c 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -121,7 +121,7 @@ color1 and color2."
 
 (defun row-pattern (fill total)
   "Make a PBM line that has FILL FG-COLOR bytes out of TOTAL BG-COLOR bytes."
-  (seq-let (intfill rem) (floor* fill)
+  (seq-let (intfill rem) (cl-floor fill)
     (nconc
      (make-list intfill 0) ;Left fill
      (when (< intfill total)
@@ -129,7 +129,7 @@ color1 and color2."
              (make-list (- total intfill 1) 1)))))) ;Right gap
 
 (defun row-pattern-hollow (padding total)
-  (seq-let (intpadding rem) (floor* padding)
+  (seq-let (intpadding rem) (cl-floor padding)
     (nconc
      (make-list intpadding 1) ;Left gap
      (when (< intpadding total)