aboutsummaryrefslogtreecommitdiff
path: root/mendeleev.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'mendeleev.lisp')
-rw-r--r--mendeleev.lisp4
1 files changed, 2 insertions, 2 deletions
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))