(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)))