Added MAKE-OUTPUT

package.lisp

@@ -93,6 +93,7 @@
    #:device-default-name)
   ;; wrapper.lisp
   (:export
+   #:make-output
    #:output
    #:handle
    #:playing

wrapper.lisp

@@ -12,6 +12,9 @@
     (cl-out123-cffi:close handle)
     (cl-out123-cffi:del handle)))
 
+(defun make-output (driver &rest args &key &allow-other-keys)
+  (apply #'make-instance 'output :driver driver args))
+
 (defclass output ()
   ((handle :initform NIL :reader handle)
    (playing :initform NIL :reader playing :writer set-playing)