From 6a45aa57cbdca1ea26af7bbbf2e573d67b28649e Mon Sep 17 00:00:00 2001 From: Shinmera Date: Wed, 24 Jul 2024 14:50:12 +0200 Subject: [PATCH] Dumb --- asset.lisp | 2 ++ harmony/asset.lisp | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/asset.lisp b/asset.lisp index a75dbe999..43d4e6c5f 100644 --- a/asset.lisp +++ b/asset.lisp @@ -199,6 +199,8 @@ (let ((base (pool-path pool #p"")) (default-options (rest (find T attributes :key #'first))) (exclude (enlist exclude))) + (when debug + (print (pool-path pool pathname))) (loop for path in (directory (pool-path pool pathname) :resolve-symlinks NIL) unless (loop for exclusion in exclude thereis (pathname-match-p path exclusion)) diff --git a/harmony/asset.lisp b/harmony/asset.lisp index 0093f6ed0..c1d226ab2 100644 --- a/harmony/asset.lisp +++ b/harmony/asset.lisp @@ -211,7 +211,7 @@ (defmethod trial:play ((voice voice) target) (harmony:play voice :location target)) -(defmethod trial:play ((voice voice) (target entity)) +(defmethod trial:play ((voice voice) (target trial:entity)) (let ((vec (vec3))) (declare (dynamic-extent vec)) (trial:global-location target vec) @@ -230,7 +230,7 @@ (mixed:seek (voice voice) to :by :second)) (defmethod trial:fade-to (volume (voice voice) &rest args &key &allow-other-keys) - (apply #'harony:transition (voice voice) volume args)) + (apply #'harmony:transition (voice voice) volume args)) (defmethod trial:clone ((voice voice) &key) (error "FIXME: implement this."))