Slime stacktrace, read parameters

gistfile1.txt

(defun parse-file (file-stream)
  (let (locations forms)
    (do ((form (read file-stream nil :eof )
	       (read file-stream nil :eof )))
	((eq form :eof)
	 forms)
      (push (list :form form
		  :end-position (file-position file-stream))
	    forms))))



end of file on #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}>
   [Condition of type END-OF-FILE]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {1009F107B3}>)

Backtrace:
  0: (SB-INT:FAST-READ-CHAR-REFILL #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}> T)
  1: (SB-IMPL::FLUSH-WHITESPACE #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}>)
  2: (SB-IMPL::READ-LIST #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}> #<unused argument>)
  3: (SB-IMPL::READ-MAYBE-NOTHING #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}> #\()
  4: (SB-IMPL::READ-LIST #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}> #<unused argument>)
  5: (SB-IMPL::READ-MAYBE-NOTHING #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}> #\()
  6: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}> NIL (NIL) T)
  7: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}> NIL (NIL) NIL)
  8: (READ #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}> NIL :EOF NIL)
  9: (PARSE-FILE #<SB-SYS:FD-STREAM for "file /home/rett/dev/common-lisp/dwim/dwim-git/ti-tv/window-mx/definitions.lisp" {100A243613}>)
 10: (ASSESS-CONDITION)
 11: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASSESS-CONDITION) #<NULL-LEXENV>)
 12: (EVAL (ASSESS-CONDITION))
 --more--