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.
 

Reply via email to