Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[wrapper] Since this is a pointer, we will call it that.

Also change the accessor from watcher to ev-pointer.
  • Loading branch information...
commit dfc07512a224fb67118c37f4ed82956b7512ecc0 1 parent fd1e5b2
Sean Bryant authored
Showing with 6 additions and 6 deletions.
  1. +6 −6 src/ev.lisp
View
12 src/ev.lisp
@@ -15,16 +15,16 @@
())
(defclass ev-io-watcher (ev-watcher)
- ((watcher :accessor watcher
- :initform (foreign-alloc 'ev_io))))
+ ((watcher-pointer :accessor ev-pointer
+ :initform (foreign-alloc 'ev_io))))
(defclass ev-timer (ev-watcher)
- ((timer :accessor watcher
- :initform (foreign-alloc 'ev_timer))))
+ ((timer-pointer :accessor ev-pointer
+ :initform (foreign-alloc 'ev_timer))))
(defclass ev-periodic (ev-watcher)
- ((timer :accessor watcher
- :initform (foreign-alloc 'ev_periodic))))
+ ((periodic-pointer :accessor ev-pointer
+ :initform (foreign-alloc 'ev_periodic))))
(defmethod initialize-instance :after ((self ev-loop) &key)
(let ((ptr (event-loop self)))
Please sign in to comment.
Something went wrong with that request. Please try again.