X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=inotify.lisp;h=ebeadfc33f665f30caa1c622f7ff1d7fab1c38fb;hb=8505fc396a872cfc4622714f4eab73b3a30523ae;hp=be9d9c6dd5862e3f1dcea391d4b293d79040c27c;hpb=4cbfae2fed24e80276fff550f4080750bc38c213;p=cl-inotify.git

diff --git a/inotify.lisp b/inotify.lisp
index be9d9c6..ebeadfc 100644
--- a/inotify.lisp
+++ b/inotify.lisp
@@ -109,7 +109,7 @@ NAME optionally identifies a file relative to a watched directory."
 
 ;;;; basic wrapping of the API
 
-(defun read-raw-event (stream)
+(defun read-raw-event-from-stream (stream)
   "Reads a raw event from the inotify stream."
   (let* ((event (binary-types:read-binary 'inotify-event stream))
 	 (len (binary-types:read-binary 'binary-types:u32 stream)))
@@ -122,7 +122,7 @@ NAME optionally identifies a file relative to a watched directory."
 
 (defun read-event-from-stream (stream)
   "Reads a event from the inotify stream and converts bitmasks on reading."
-  (let ((event (read-raw-event stream)))
+  (let ((event (read-raw-event-from-stream stream)))
     (with-slots (mask) event
       (setf mask (foreign-bitfield-symbols 'inotify-flag mask)))
     event))