From 73dc07ed1dd3462e545a71bbcc388c27185f0279 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 30 Jun 2022 06:09:59 -0500
Subject: [moved] fps functins into wheelwork.lisp

---
 src/wheelwork.lisp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/wheelwork.lisp')

diff --git a/src/wheelwork.lisp b/src/wheelwork.lisp
index 15975fc..2932520 100644
--- a/src/wheelwork.lisp
+++ b/src/wheelwork.lisp
@@ -251,6 +251,11 @@ ASSET-ARGS is a plist to pass to make-instance for the given resource.
                     :path (uiop:merge-pathnames* asset-id (asset-root app))
                     asset-args)))))
 
+(defun fps (&optional (app *application*))
+  (application-fps app))
+
+(defun (setf fps) (new-val &optional (app *application*))
+  (setf (application-fps app) new-val))
 
 
 
-- 
cgit v1.2.3