mirror of
https://codeberg.org/cage/tinmop/
synced 2025-02-12 07:30:34 +01:00
- fixed indentation.
This commit is contained in:
parent
13cb2e810e
commit
b10ba55932
@ -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)
|
||||
|
Loading…
x
Reference in New Issue
Block a user