From 73dc07ed1dd3462e545a71bbcc388c27185f0279 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 30 Jun 2022 06:09:59 -0500 Subject: [moved] fps functins into wheelwork.lisp --- src/application.lisp | 5 ----- 1 file changed, 5 deletions(-) (limited to 'src/application.lisp') diff --git a/src/application.lisp b/src/application.lisp index 5d8135e..bc94d7c 100644 --- a/src/application.lisp +++ b/src/application.lisp @@ -22,11 +22,6 @@ (fps :with :std 30 :doc "Frames Per Second") (frame-wait :r))) -(defun fps (&optional (app *application*)) - (application-fps app)) - -(defun (setf fps) (new-val &optional (app *application*)) - (setf (application-fps app) new-val)) (defun can-set-projection-p (app) (and (slot-boundp app 'width) -- cgit v1.2.3