From 1a9d63f304e45df8760a0a780377a350be439e58 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Mon, 10 Feb 2014 11:26:40 -0500 Subject: [PATCH] add hopeful fix for ACL issues (cl-testgrid reported error) re AccelerationNet/collectors#3 --- collectors.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collectors.lisp b/collectors.lisp index 72775c0..7f8a758 100644 --- a/collectors.lisp +++ b/collectors.lisp @@ -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)))