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