7 lines
221 B
Common Lisp
7 lines
221 B
Common Lisp
|
(defun do-prompting ()
|
||
|
|
(capi:popup-confirmer
|
||
|
|
(make-instance 'string/integer-prompt)
|
||
|
|
"Enter some values:"
|
||
|
|
:value-function 'string/integer-prompt-value
|
||
|
|
:ok-check #'(lambda (result) (eql (cdr result) 75000))))
|