Permalink
Browse files

Add README with an example.

  • Loading branch information...
1 parent 8247cca commit 2179a45d836e6e763f8b5d27212acb2fd2762d96 @stassats committed May 4, 2010
Showing with 17 additions and 1 deletion.
  1. +16 −0 README
  2. +1 −1 inotify.lisp
View
16 README
@@ -0,0 +1,16 @@
+Example:
+
+(with-inotify (inot `((,(user-homedir-pathname) ,in-create)))
+ (read-event inot))
+
+blocks
+
+ $ touch ~/file
+
+ =>
+ #S(EVENT
+ :WATCH #<WATCH pathname: "/home/stas/" mask: 256>
+ :MASK 256
+ :COOKIE 0
+ :NAME "file")
+
View
@@ -53,7 +53,7 @@
(defmethod print-object ((watch watch) stream)
(print-unreadable-object (watch stream :type t)
- (format stream "pathname: ~a mask: ~a"
+ (format stream "pathname: ~s mask: ~a"
(watch-pathname watch)
(watch-mask watch))))

0 comments on commit 2179a45

Please sign in to comment.