add binding-form for file. Works as WITH-OPEN-FILE.

I think it is making new context that the concept behind metabang-bind.
If so WITH-OPEN-FILE should be integrated in bind.

how to use

(bind:bind(((:file stream)("test" :direction :output 
                                                :if-exists :supersede)))
  (print "something" stream))