made stream-here a function, since sbcl claims it doesn't exist

audio-streams.lisp

@@ -39,8 +39,10 @@
     (setf vect nil)))
 
 ;;; finding out current file position is so common, we also
-;;; provide a macro
-(defmacro stream-here (stream) `(index ,stream))
+;;; provide a macro.  For some reason, SBCL claims this
+;;; macro doesn't exist, so I just defun'ed it.
+#+CCL (defmacro stream-here (stream) `(index ,stream))
+#-CCL (defun stream-here (stream) (index stream))
 
 (defmethod stream-seek ((stream mem-stream) &optional (offset 0) (from :current))
   "Set INDEX to requested value.  No error checking done here, but subsequent reads will fail if INDEX is out-of-bounds.