(deffunction preguntar-valor (?msg  ?tipo $?values)
 
(if (eq ?tipo symbol) then
 
(printout t ?msg $?values crlf)
(bind ?r (read))
 
(while (not (member$ ?r $?values))
do (printout t "No valida" crlf)
(printout t ?msg $?values)
(bind ?r (read)))
 
else (printout t ?msg   crlf)
(bind ?r (read))
 
(while (not (numberp ?r))
do (printout t "No valida" crlf)
(printout t ?msg  )
(bind ?r (read))))
 
(return ?r))
CLIPS> (preguntar-valor ("S1" number nil))

KGRlZmZ1bmN0aW9uIHByZWd1bnRhci12YWxvciAoP21zZyAgP3RpcG8gJD92YWx1ZXMpCiAgICAKKGlmIChlcSA/dGlwbyBzeW1ib2wpIHRoZW4KICAgIAoocHJpbnRvdXQgdCA/bXNnICQ/dmFsdWVzIGNybGYpCihiaW5kID9yIChyZWFkKSkKCih3aGlsZSAobm90IChtZW1iZXIkID9yICQ/dmFsdWVzKSkKZG8gKHByaW50b3V0IHQgIk5vIHZhbGlkYSIgY3JsZikKKHByaW50b3V0IHQgP21zZyAkP3ZhbHVlcykKKGJpbmQgP3IgKHJlYWQpKSkKCmVsc2UgKHByaW50b3V0IHQgP21zZyAgIGNybGYpCihiaW5kID9yIChyZWFkKSkKCih3aGlsZSAobm90IChudW1iZXJwID9yKSkKZG8gKHByaW50b3V0IHQgIk5vIHZhbGlkYSIgY3JsZikKKHByaW50b3V0IHQgP21zZyAgKQooYmluZCA/ciAocmVhZCkpKSkKCihyZXR1cm4gP3IpKQpDTElQUz4gKHByZWd1bnRhci12YWxvciAoIlMxIiBudW1iZXIgbmlsKSk=