Skip to content
Browse files

Improve the loader system.

  • Loading branch information...
Shinmera committed Jul 19, 2019
1 parent e8889fe commit d278881d13a3ada02c34199c679ea3d0d1637c75
Showing with 7 additions and 4 deletions.
  1. +7 −4 loader.lisp
@@ -47,6 +47,9 @@
(defmethod banned-slots append ((object entity))

(defmethod banned-slots append ((object container-unit))

(defmethod compute-resources ((object entity) resources readying cache)
(loop with banned = (banned-slots object)
for slot in (c2mop:class-slots (class-of object))
@@ -114,19 +117,19 @@
(v:debug :trial.loader "Deallocating:~%~a" to-deallocate)
(map NIL #'deallocate to-deallocate)))

(defmethod transition ((from entity) (to scene))
(defmethod transition ((from entity) (to container))
(v:info :trial.loader "Transitioning ~a into ~a." from to)
(multiple-value-bind (to-load to-ready) (compute-resources-for from)
(%transition to-load NIL to-ready)

(defmethod transition ((from null) (to scene))
(defmethod transition ((from null) (to container))
(v:info :trial.loader "Transitioning to ~a" to)
(multiple-value-bind (to-load to-ready) (compute-resources-for to)
(%transition to-load NIL to-ready)

(defmethod transition ((from scene) (to null))
(defmethod transition ((from container) (to null))
(v:info :trial.loader "Transitioning from ~a" from)
(let ((to-deallocate (compute-resources-for to)))
(%transition NIL to-deallocate NIL)
@@ -137,7 +140,7 @@
(loop for item across b do (setf (gethash item table) T))
(remove-if (lambda (item) (gethash item table)) a)))

(defmethod transition ((from scene) (to scene))
(defmethod transition ((from container) (to container))
(v:info :trial.loader "Transitioning from ~a to ~a" from to)
(multiple-value-bind (to to-ready) (compute-resources-for to)
(let* ((from (compute-resources-for from))

0 comments on commit d278881

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