Win 66
Win 35
Win 55
Win 25
Win 44
Stacy Su Lizzy
Hydra Dutch Su
#stacy #z #su #lizzy

Suuuuu...
Lizzy....
#z #su #lizzy

Suuuuu...
Lizzy....
#z #su #lizzy

THE
US US US US
SU SU SU SU
Magnetic Doll House
Lesbian Stacy 25
#z #lizzy

TAKE OVER WASHINGTON
SEATTLE WA
SEATAC WA
DES MOINES WA

SCOOBY DOO
SCORPION BLOOD
MOODY COW
SPONGEBOB
SQUARE PANTS
SEGWAY
SCOOTER
VAN WAR
WHATS THE FICO SCORE
WHATS THE SCORE

"Nightmare"
"Score"
Scooby Doo
NASCAR VAN

Scooby Doo
SpongeBob
Nascar
Score Van

SAVE MAMMA
SAVE BABY
SAVE FAMILY
Magnetic Doll House
Lesbian Stacy 25
#z #lizzy

Magnetic Doll House
Lesbian Stacy 25
#z #lizzy

Magnetic Doll House
Lesbian Stacy 25
#z #lizzy

Lesbian Stacy 25
#z #lizzy

Peggy & Stacy
Ostrich 25
"Potstickers"

#z #lizzy

Time Travelers 33
Journalists 33
Historians 33

Automatic ET 55
UFO COOKIES 44
AutoZone 99

Cat 33
Ostrich 33
Kangaroo 33

Waffle House 55
Hells Angels 55
Lesbien Family 55
Peggy & Stacy 25

#z #lizzy

<"/>
CL-USER> (scan-file "test.sexp" #'read-line)
#Z("foo bar" "" "baz" "" "buz frob ulous" "ly")

With an input format as simple as that you may want to call instead `read-delimited-list' in a loop with a readtable where the definition of right parenthesis is copied to newline.
With more complex formats like CSV simple splitting of sequences won't be enough.

#CommonLisp

@screwlisp @hairylarry @8arrow @jdevoo @jakimfett @psvensson @t73fde @khinsen @bassethorn @vindarel @swrogers

Hells Angels
Cats
Save Sky 44
Save Earthquakes 99
Score XXX 55
Waffle House 55
Velvet Cake
ET SU SU SU SU SU 55
USDA ORGANIC KIWI
UNLIMITED WATER WORLD
Sara Kaye 25
Peggy Sandra 25
Brandon Adolfa 25
Master Raw Tee
Tarzan Blood
Red Truck
Rainbow Escalade
Double Rainbow
Double Jeopardy
Rodger Rabbit
Kangaroo UFO COOKIES
Yoyo U3 4K Forklift
Tay 68
Lesbien Family
Stacy Ostrich 25

Auto Atomic ET 55
Lesbian Family
Peggy & Stacy
Cat & Ostrich
25

#z #lizzy

@hairylarry
CL-USER> (defparameter *list* (split-sequence #\space "one fish two fish"))
*LIST*
CL-USER> (let* ((ser (scan *list*))
(bools (#Mmember ser (series '("one" "two")) (series :test) (series 'equal)))
(replacements #Z("red" "blue")))
(alter (choose bools ser) replacements))
NIL
CL-USER> *list*
("red" "fish" "blue" "fish")

spam complete
@8arrow @jdevoo @jakimfett @psvensson @t73fde @khinsen @bassethorn @vindarel @swrogers

@hairylarry
CL-USER> (collect-file "~/my-file.lisp" #z(1 2 3))
T

Series is a strange duck because as a pure macro package, what you are using is native common lisp (admittedly, using a PROG feature..). Though you would probably regenerate the lisp code in general whenever you build something using it. https://gitlab.common-lisp.net/rtoy/cl-series/-/wikis/Series-User's-Guide

I don't like regex, so. But I do like lazy series::SCAN-LISTS-OF-LISTS-FRINGE

@8arrow @jdevoo @jakimfett @psvensson @t73fde @khinsen @bassethorn @vindarel @swrogers

@hairylarry
I think that cl-series is really important for working with files:
CL-USER> (require :series)
("SERIES")
CL-USER> (series::install)
T
CL-USER> (scan-file "test.sexp" #'read-line)
#Z("foo bar" "" "baz" "" "buz frob ulous" "ly")
CL-USER> (asdf:load-system :split-sequence)
T
CL-USER> (use-package :split-sequence)
T
CL-USER> (split-sequence #\space "foo bar")
("foo" "bar")

@8arrow @jdevoo @jakimfett @psvensson @t73fde @khinsen @bassethorn @vindarel @swrogers

Brandon 25
Sara 25
346 807 8693
346 213 2672
Parrot Drill
Squids
Black Cats
Lizzy
#z

Sandra 25
Sandra 55
Sandra 56
Sandra 66
Sandra 44
Sandra 666
Sandra 644
Sandra 744
Sandra 101
Sandra 12
Sandra 13
Sandra 14
Sandra 15
Sandra Dragonfly
Diva Venus

Victory Score
Victory Sandra
Victory K4
Victory Cave

Brandon 25
Sara 25
346 807 8693
346 213 2672
Parrot Drill
Squids
Black Cats
Lizzy
#z

Sandra 25
Sandra 55
Sandra 56
Sandra 66
Sandra 44
Sandra 666
Sandra 644
Sandra 744
Sandra 101
Sandra 12
Sandra 13
Sandra 14
Sandra 15
Sandra Dragonfly
Diva Venus

Brandon 25
Sara 25
346 807 8693
346 213 2672
Parrot Drill
Squids
Black Cats
Lizzy
#z

WAAHERTONGUE
Jew Wa
Jew Wa
Jew Wa
Jew Wa
Snare Gun...
Flare Gun...
Scotland Score

Brandon 25
Sara Kaye 25
346 807 8693
346 213 2672
Fat Guts
Cooooo Fay 55
Starcraft
Vegan
Score
Scotland
Germany
Cats
Lizard
Snake
Alligator
Snail
Blood Type W
Magic ETÙ
Diva Venus 99.9
Hydra 55
Hydra 25
Hydra Flask
Hydra Medusa
Ya Way
Crystal
#z

Yarmish
German
Jew
Scotland
French
Say Love V
c'est la vie

FICO SCORE
BMW
Baby Momma World

Let's just become cats
Luv u
💚💚💚💚💚
🖤🖤🖤🖤🖤
🐈‍⬛🐈‍⬛🐈‍⬛🐈‍⬛🐈‍⬛
#z #cats #black #scotland