Hey, #CommonLisp would I have anything to gain by doing this: #ProgrammingQuestion #lisp
(with-open-file (io #p"file.ext" :direction :io)
(let* ((before (read-sequence (make-array (file-length io)) io)))
(file-position io :start)
(write-sequence *changed-sequence* io)
(unless (equal *changed-sequence* (read-sequence (make-array (file-length io)) io))
(error "write seems not to've happened"))))
;; the standard requires a lock on file writing already.

#McCLIM #CommonLisp #ProgrammingQuestion #ECL @jackdaniel
When I run the superapp example at the start of the McCLIM User Guide which I have in a package named :eg I still have the #<cl-ttf-port> process running. Is this intended?