Skip to content
Browse files

Fix pool and name not being initialised before shared-initialize prim…

…ary hits.
  • Loading branch information...
Shinmera committed Mar 31, 2019
1 parent 19afe4a commit bdfd3be9dc532b9ae3410164137561d5fbca6a48
Showing with 3 additions and 2 deletions.
  1. +3 −2 asset.lisp
@@ -11,14 +11,15 @@
(name :initform NIL :accessor name)
(input :initarg :input :accessor input)))

(defmethod initialize-instance :after ((asset asset) &key pool name)
(defmethod initialize-instance ((asset asset) &key pool name)
(check-type name symbol)
(setf (name asset) name)
(when pool
(setf (pool asset) (etypecase pool
(symbol (find-pool pool T))
(pool pool)))
(setf (asset pool name) asset)))
(setf (asset pool name) asset))

(defmethod reinitialize-instance :after ((asset asset) &key)
(when (allocated-p asset)

0 comments on commit bdfd3be

Please sign in to comment.
You can’t perform that action at this time.