Advertisement
Guest User

Untitled

a guest
Mar 26th, 2019
135
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. (with-open-file (stream "test/spigot.x")
  2. (do ((line (read-line stream nil)
  3. (read-line stream nil)))
  4. ((null line))
  5. ;; for each line do
  6. (defvar indent 0)
  7. (loop for c in line
  8. (case c
  9. ((#\SPACE #\TAB) (+ 1 indent))
  10. (print indent)))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement