diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2022-12-13 21:29:30 +0200 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2022-12-13 21:31:37 +0200 |
| commit | 7031a9ea16438ec8546fc043999dfbc8410d0fee (patch) | |
| tree | dcacd809130a4536da31ee582c71856824cacf40 /mendeleev.lisp | |
| parent | 1ac772400a6a3aea8d006ac46337440600017e4b (diff) | |
| download | mendeleev-7031a9ea16438ec8546fc043999dfbc8410d0fee.tar.gz | |
Rename divide to split
Diffstat (limited to 'mendeleev.lisp')
| -rw-r--r-- | mendeleev.lisp | 4 |
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)) |