Skip to content

Commit

Permalink
add hopeful fix for ACL issues (cl-testgrid reported error) re #3
Browse files Browse the repository at this point in the history
  • Loading branch information
bobbysmith007 committed Feb 10, 2014
1 parent 979de18 commit 1a9d63f
Showing 1 changed file with 4 additions and 1 deletion.
5 changes: 4 additions & 1 deletion collectors.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -148,12 +148,15 @@

;;;; ** Reducing

;; ACL was throwing errors about this not being finalized (seems odd) re github #3
;; https://github.com/AccelerationNet/collectors/issues/3
(closer-mop:ensure-finalized (find-class 'closer-mop:funcallable-standard-object))

(defclass value-aggregator (closer-mop:funcallable-standard-object)
((initial-value :accessor initial-value :initarg :initial-value :initform nil)
(place-setter :accessor place-setter :initarg :place-setter :initform nil)
(value :accessor value :initarg :value :initform nil))
(:metaclass closer-mop:funcallable-standard-class))

(defmethod initialize-instance :after ((o value-aggregator) &key &allow-other-keys)
(setf (value o) (typecase (initial-value o)
(list (copy-list (initial-value o)))
Expand Down

0 comments on commit 1a9d63f

Please sign in to comment.