From 7031a9ea16438ec8546fc043999dfbc8410d0fee Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Tue, 13 Dec 2022 21:29:30 +0200
Subject: Rename divide to split

---
 mendeleev.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'mendeleev.lisp')

diff --git a/mendeleev.lisp b/mendeleev.lisp
index bdb35ab..a7e7945 100644
--- a/mendeleev.lisp
+++ b/mendeleev.lisp
@@ -41,7 +41,7 @@
                 (setf l (1+ m))))
         (setf (cdr range) (- u (car range))) (return)))
 
-(defun divide (tail)
+(defun split (tail)
   (prog ((range (cons 1 +nelems+))
          (sh 0)
          (r ()))
@@ -57,7 +57,7 @@
         (return (reverse r))))
 
 (defun explode (tail)
-  (let ((sibs (divide tail))
+  (let ((sibs (split tail))
         (next (lambda (x)
                 (cons (car x)
                       (when (string/= "" (cdr x))
-- 
cgit v1.2.3