Permalink
Browse files

Fix some embarrassing oversights

  • Loading branch information...
Shinmera committed Dec 3, 2017
1 parent 5109313 commit cccc9c76a263742a083a6f9887cd9d7a98a3bfe4
Showing with 3 additions and 3 deletions.
  1. +1 −1 array-container.lisp
  2. +2 −2 event-loop.lisp
View
@@ -29,7 +29,7 @@
(defmethod clear ((container array-container))
(let ((objects (objects container)))
(loop for i from 0 below (length objects)
do (setf (aref i objects) NIL))
do (setf (aref objects i) NIL))
(adjust-array objects 0 :fill-pointer 0))
container)
View
@@ -71,7 +71,7 @@
(apply #'make-instance event-type args)))))
(vector-push-extend event (queue loop))))
(define-compiler-macro issue (&whole whole &environment env loop event-type &rest args)
(define-compiler-macro issue (&environment env loop event-type &rest args)
(cond ((and (constantp event-type env)
(listp event-type)
(eql (first event-type) 'quote)
@@ -83,7 +83,7 @@
(,eventg (etypecase ,eventg
(event ,eventg)
((or class symbol)
(apply #'make-instance ,eventg ,@args)))))
(make-instance ,eventg ,@args)))))
(vector-push-extend ,eventg (queue ,loop)))))))
;; FIXME: This will forget events if PROCESS or DISCARD-EVENTS is called

0 comments on commit cccc9c7

Please sign in to comment.