(defun diagnosis ()
(format t "%Welcome to AI Symptom Checker!%")
(format t "Please enter your symptoms (e.g., fever, cough, headache).~%")
(format t "Type 'exit' to quit.~%")
(loop
(format t "~%Your Symptoms: ")
(force-output) ;; Force flush to display prompt before input
(let* ((input (read-line))
(symptoms (string-downcase input))) ;; Normalize input to lowercase
(cond
((string= symptoms "exit")
(format t "Goodbye! Take care.~%")
(return))
((and (search "fever" symptoms)
(search "cough" symptoms)
(search "body pain" symptoms))
(format t "Diagnosis: You may have the flu.~%"))
((and (search "fever" symptoms)
(search "headache" symptoms))
(format t "Diagnosis: You may have a viral fever.~%"))
((and (search "cough" symptoms)
(search "sore throat" symptoms))
(format t "Diagnosis: You may have a common cold.~%"))
((and (search "sneezing" symptoms)
(search "itchy eyes" symptoms))
(format t "Diagnosis: You may have an allergy.~%"))
((search "headache" symptoms)
(format t "Diagnosis: You might be dehydrated or stressed.~%"))
((search "fever" symptoms)
(format t "Diagnosis: You may be experiencing a mild fever or infection.~%"))
((search "cough" symptoms)
(format t "Diagnosis: You might have a throat infection or irritation.~%"))
(t
(format t "Diagnosis: Symptoms unclear. Please consult a doctor.~%"))))))
(diagnosis)
