954 |
(doctor-type '(are you (doc$ afraidof) that \?))) |
(doctor-type '(are you (doc$ afraidof) that \?))) |
955 |
((zerop (random 2)) |
((zerop (random 2)) |
956 |
(doctor-type '(don\'t tell me what to do \. i am the |
(doctor-type '(don\'t tell me what to do \. i am the |
957 |
psychiatrist here!)) |
doctor here!)) |
958 |
(doctor-rthing)) |
(doctor-rthing)) |
959 |
(t |
(t |
960 |
(doctor-type '((doc$ whysay) that i shouldn\'t |
(doctor-type '((doc$ whysay) that i shouldn\'t |
1552 |
(t (doctor-type '((doc$ whysay)(list subj verb obj)))))) |
(t (doctor-type '((doc$ whysay)(list subj verb obj)))))) |
1553 |
|
|
1554 |
(defun doctor-symptoms () |
(defun doctor-symptoms () |
1555 |
(doctor-type '((doc$ maybe) you should consult a doctor of medicine\, |
(doctor-type '((doc$ maybe) you should consult a medical doctor\; |
1556 |
i am a psychiatrist \.))) |
i am a psychotherapist. \.))) |
1557 |
|
|
1558 |
(defun doctor-hates () |
(defun doctor-hates () |
1559 |
(doctor-svo sent found 1 t) |
(doctor-svo sent found 1 t) |