test.lisp

(defun write-raw-bytes (bytes)
  (with-open-file (s "temp-bytes" 
                     :direction :output
                     :if-exists :append
                     :element-type '(unsigned-byte 8))
    (loop for byte in bytes do (write-byte byte s))))