cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- refactored code in a function.

Browse Source
This commit is contained in:
cage 2022-12-25 12:47:41 +01:00
parent a18c63f3db
commit 2365707338
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/misc-utils.lisp
View File

@ -503,8 +503,10 @@ to the array"
(accum (make-fresh-array 0
0
'(unsigned-byte 8))))
(flet ((delimiter-position ()
(position delimiter accum :test #'=)))
(labels ((delimiter-position ()
(position delimiter accum :test #'=))
(get-excess ()
(subseq accum (1+ (delimiter-position)))))
(if (delimiter-position)
(values (subseq accum 0 (delimiter-position))
(subseq accum (1+ (delimiter-position))))
@ -515,10 +517,10 @@ to the array"
(not (delimiter-position)))
(error 'delimiter-not-found :delimiter delimiter)
(values (subseq accum 0 (delimiter-position))
(subseq accum (1+ (delimiter-position)))))
(get-excess)))
(if (delimiter-position)
(let* ((delimiter-position (delimiter-position))
(excess (subseq accum (1+ delimiter-position))))
(excess (get-excess)))
(values (subseq accum 0 delimiter-position)
excess))
(read-delimited-into-array stream