Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

event-size -> +event-size+

  • Loading branch information...
commit 66d248d0b7fe2e8b113d727c4a12b016f29f7d28 1 parent 30d060d
@stassats authored
Showing with 3 additions and 3 deletions.
  1. +1 −1  grovel.lisp
  2. +2 −2 inotify.lisp
View
2  grovel.lisp
@@ -38,4 +38,4 @@
(constant (in-all-events "IN_ALL_EVENTS"))
(define "EVENT_SIZE" "(sizeof(struct inotify_event) + NAME_MAX + 1)")
-(constant (event-size "EVENT_SIZE"))
+(constant (+event-size+ "EVENT_SIZE"))
View
4 inotify.lisp
@@ -34,7 +34,7 @@
(defun make-inotify ()
(%make-inotify
:fd (inotify-init)
- :buffer (foreign-alloc :char :count event-size)))
+ :buffer (foreign-alloc :char :count +event-size+)))
(defun close-inotify (inotify)
(isys:close (inotify-fd inotify))
@@ -82,7 +82,7 @@
(defun read-event (inotify)
(let ((buffer (inotify-buffer inotify)))
(isys:repeat-upon-eintr
- (isys:read (inotify-fd inotify) buffer event-size))
+ (isys:read (inotify-fd inotify) buffer +event-size+))
(with-foreign-slots ((watch mask cookie name-length)
buffer inotify-event)
(let ((event (make-event :watch (find-watch inotify watch)
Please sign in to comment.
Something went wrong with that request. Please try again.