diff options
Diffstat (limited to 'src/wheelwork.lisp')
-rw-r--r-- | src/wheelwork.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
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)) |