Skip to content

Instantly share code, notes, and snippets.

View kjetilho's full-sized avatar

Kjetil Torgrim Homme kjetilho

  • Redpill Linpro AS
  • Oslo, Norway
View GitHub Profile
cat > /tmp/storeid.lisp <<EOF
#!/usr/bin/sbcl --script
(loop
(let* ((parts (list ""))
(_ (loop for c across (read-line) do
(cond
((equal c #\Space)
(setf parts (cons "" parts)))
('t