cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- fixed indentation.

Browse Source
This commit is contained in:
cage 2020-09-18 22:27:11 +02:00
parent 13cb2e810e
commit b10ba55932
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/program-events.lisp
View File

@ -193,8 +193,8 @@
(defmethod initialize-instance :after ((object ask-user-input-string-event)
&key (forced-priority nil) &allow-other-keys)
(if forced-priority
(setf (priority object) forced-priority)
(setf (priority object) (truncate (/ +standard-event-priority+ 2)))))
(setf (priority object) forced-priority)
(setf (priority object) (truncate (/ +standard-event-priority+ 2)))))
(defmethod process-event ((object ask-user-input-string-event))
(with-accessors ((prompt prompt)