Mercurial > emacs
comparison lisp/play/doctor.el @ 66342:a4fe475f3c8b
(doctor-doc): Don't say "psychiatrist".
(doctor-symptoms): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 23 Oct 2005 18:19:47 +0000 |
| parents | 46d503c20412 |
| children | 3a3f5ed673b0 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 66341:8ad92df59512 | 66342:a4fe475f3c8b |
|---|---|
| 952 (if (and (eq (car sent) 'do) (eq (cadr sent) 'not)) | 952 (if (and (eq (car sent) 'do) (eq (cadr sent) 'not)) |
| 953 (cond ((zerop (random 3)) | 953 (cond ((zerop (random 3)) |
| 954 (doctor-type '(are you (doc$ afraidof) that \?))) | 954 (doctor-type '(are you (doc$ afraidof) that \?))) |
| 955 ((zerop (random 2)) | 955 ((zerop (random 2)) |
| 956 (doctor-type '(don\'t tell me what to do \. i am the | 956 (doctor-type '(don\'t tell me what to do \. i am the |
| 957 psychiatrist here!)) | 957 doctor here!)) |
| 958 (doctor-rthing)) | 958 (doctor-rthing)) |
| 959 (t | 959 (t |
| 960 (doctor-type '((doc$ whysay) that i shouldn\'t | 960 (doctor-type '((doc$ whysay) that i shouldn\'t |
| 961 (cddr sent) | 961 (cddr sent) |
| 962 \?)))) | 962 \?)))) |
| 1550 ((equal subj 'you) | 1550 ((equal subj 'you) |
| 1551 (doctor-type '(why do you (doc// verb)(doc// obj) \?))) | 1551 (doctor-type '(why do you (doc// verb)(doc// obj) \?))) |
| 1552 (t (doctor-type '((doc$ whysay)(list subj verb obj)))))) | 1552 (t (doctor-type '((doc$ whysay)(list subj verb obj)))))) |
| 1553 | 1553 |
| 1554 (defun doctor-symptoms () | 1554 (defun doctor-symptoms () |
| 1555 (doctor-type '((doc$ maybe) you should consult a doctor of medicine\, | 1555 (doctor-type '((doc$ maybe) you should consult a medical doctor\; |
| 1556 i am a psychiatrist \.))) | 1556 i am a psychotherapist. \.))) |
| 1557 | 1557 |
| 1558 (defun doctor-hates () | 1558 (defun doctor-hates () |
| 1559 (doctor-svo sent found 1 t) | 1559 (doctor-svo sent found 1 t) |
| 1560 (doctor-hates1)) | 1560 (doctor-hates1)) |
| 1561 | 1561 |