|
Hi,
Can anybody help me with the followig problem?
I use a function to read the answer of the user:
(deffunction frage-stellen (?text ?erlaubte-werte)
(printout t ?text)
(bind ?antwort(read))
(if (lexemep ?antwort) then (bind ?antwort (lowcase
?antwort)))
(while (not (member$ ?antwort ?erlaubte-werte))
(printout t
?text)
(bind
?antwort(read))
(if (lexemep
?antwort) then (bind ?antwort (lowcase ?antwort))))
?antwort)
My problem is that (lowcase ?antwort) returns a string and not
a symbol though ?antwort is a symbol, so member$ doesn't work. I couldn't find a
function for making explicit type-conversion, so I don't know how I can solve
this problem.
Thank you for any help.
|
- Re: JESS: (lowcase <lexeme-expression>) Ludwig Pfefferkorn
- Re: JESS: (lowcase <lexeme-expression>) Ernest Friedman-Hill
