(uiop:define-package :binry-hop/debug-util
(:mix :cl)
(:export #:io-open #:io-close)
(:nicknames :debug-util))
(in-package :binry-hop/debug-util)
(defun io-open (&optional (path #p"tmp.data"))
(open path :direction :io :if-exists :supersede
:if-does-not-exist :create))
(defun io-close (stream)
(unwind-protect
(close stream)
(close stream :abort t)))