(defun doctor-cadr (x) (byte-code "A@" [x] 1)) (defun doctor-caddr (x) (byte-code "AA@" [x] 1)) (defun doctor-cddr (x) (byte-code "AA" [x] 1)) (defun doctor-member (x y) "\ Like memq, but uses equal for comparison" (byte-code " @\"? A " [y x equal] 4)) (defun random-range (top) "\ Return a random nonnegative integer less than TOP." (byte-code " \"W [ )" [tem top % random 0] 4)) (defun // (x) (byte-code "" [x] 1)) (defmacro $ (what) "quoted arg form of doctor-$" (byte-code "DD" [what doctor-$ quote] 3)) (defun doctor-$ (what) "\ Return the car of a list, rotating the list each time" (byte-code " J@A C\" L +" [vv what first ww append] 3)) (defvar doctor-mode-map nil) (if doctor-mode-map nil (setq doctor-mode-map (make-sparse-keymap)) (define-key doctor-mode-map " " (quote doctor-read-print)) (define-key doctor-mode-map " " (quote doctor-ret-or-read))) (defun doctor-mode nil "\ Major mode for running the Doctor (Eliza) program. Like Text mode with Auto Fill mode except that RET when point is after a newline, or LFD at any time, reads the sentence before point, and prints the Doctor's answer." (interactive) (byte-code "È !ljȉ !c" [doctor-mode-map major-mode mode-name nil text-mode make-doctor-variables use-local-map doctor-mode "Doctor" turn-on-auto-fill doctor-type (i am the psychotherapist \. ($ please) ($ describe) your ($ problems) \. each time you are finished talking\, type RET twice \.) " "] 6)) (defun make-doctor-variables nil (byte-code "T !U T !V W X \"T !ÉT !ÉT !ÉT !ÉT !Y T !Z T ![ T !\\ T !] T !^ T !_ T !` T !a T !b T !c T !d T !e T !f T !g T !h T !i T !j T !k T !l T !m T !n T o !p T q !r T !s T !t T !u !T !v \"T !w #T !x $T !y %T !z &T !{ 'T !| (T !} )T !~ *T ! +T ! ,T ! -T ! .T ! /T ! 0T ! 1T ! 2T ! 3T ! 4T ! 5T ! 6T ! 7T ! 8T ! 9T ! :T ! ;T ! <T ! =T ! >T ! ?T @ ! @T A ! AT B ! BT C !ÉCT D !ÉDT E !ÉET F !ÉFT G !ÉGT H ! HT I !ÉIT J !ÉJT K !ÉKT L !ÉLT M ! MT N !ÉNT O ! OT P !ÉPT Q !ÉQT R !ÉRT S !ÉS" [monosyllables typos found nil owner history *debug* inter continue relation fears sure afraidof areyou isrelated arerelated moods maybe whatwhen hello drnk drugs whywant canyou want shortlst famlst huhlst longhuhlst feelings-about random-adjective whysay isee please bye something things describe ibelieve problems bother machlst qlist elist foullst deathlst sexlst neglst beclst shortbeclst thlst remlst toklst states replist stallmanlst schoollst improve elizalst sportslst mathlst zippylst chatlst abuselst abusewords howareyoulst whereoutp subj verb obj feared observation-list repetitive-shortness **mad** rms-flag eliza-flag zippy-flag lover bak lincount *print-upcase* *print-space* howdyflag object make-local-variable " Your attitude at the end of the session was wholly unacceptable. Please try to come back next time with a willingness to speak more freely. If you continue to refuse to talk openly, there is little I can do to help! " mapcar (lambda (x) (byte-code "@!#!!#@" [x put doctor-correction doctor-cadr doctor-expansion doctor-caddr] 8)) ((theyll they\'ll (they will)) (theyre they\'re (they are)) (hes he\'s (he is)) (he7s he\'s (he is)) (im i\'m (you are)) (i7m i\'m (you are)) (isa is\ a (is a)) (thier their (their)) (dont don\'t (do not)) (don7t don\'t (do not)) (you7re you\'re (i am)) (you7ve you\'ve (i have)) (you7ll you\'ll (i will))) ((well\,) (hmmm \.\.\.\ so\,) (so) (\.\.\.and) (then)) ((continue) (proceed) (go on) (keep going)) ((your relationship with) (something you remember about) (your feelings toward) (some experiences you have had with) (how you feel about)) ((($ whysay) you are ($ afraidof) (// feared) \?) (you seem terrified by (// feared) \.) (when did you first feel ($ afraidof) (// feared) \?)) ((sure) (positive) (certain) (absolutely sure)) ((afraid of) (frightened by) (scared of)) ((are you) (have you been) (have you been)) ((has something to do with) (is related to) (could be the reason for) (is caused by) (is because of)) ((have something to do with) (are related to) (could have caused) (could be the reason for) (are caused by) (are because of)) ((($ areyou) (// found) often \?) (what causes you to be (// found) \?) (($ whysay) you are (// found) \?)) ((maybe) (perhaps) (possibly)) ((what happened when) (what would happen if)) ((how do you do \?) (hello \.) (howdy!) (hello \.) (hi \.) (hi there \.)) ((do you drink a lot of (// found) \?) (do you get drunk often \?) (($ describe) your drinking habits \.)) ((do you use (// found) often \?) (($ areyou) addicted to (// found) \?) (do you realize that drugs can be very harmful \?) (($ maybe) you should try to quit using (// found) \.)) ((($ whysay) (// subj) might ($ want) (// obj) \?) (how does it feel to want \?) (why should (// subj) get (// obj) \?) (when did (// subj) first ($ want) (// obj) \?) (($ areyou) obsessed with (// obj) \?) (why should i give (// obj) to (// subj) \?) (have you ever gotten (// obj) \?)) ((of course i can \.) (why should i \?) (what makes you think i would even want to \?) (i am the doctor\, i can do anything i damn please \.) (not really\, it\'s not up to me \.) (depends\, how important is it \?) (i could\, but i don\'t think it would be a wise thing to do \.) (can you \?) (maybe i can\, maybe i can\'t \.\.\.) (i don\'t think i should do that \.)) ((want) (desire) (wish) (want) (hope)) ((can you elaborate on that \?) (($ please) continue \.) (go on\, don\'t be afraid \.) (i need a little more detail please \.) (you\'re being a bit brief\, ($ please) go into detail \.) (can you be more explicit \?) (and \?) (($ please) go into more detail \?) (you aren\'t being very talkative today!) (is that all there is to it \?) (why must you respond so briefly \?)) ((tell me ($ something) about (// owner) family \.) (you seem to dwell on (// owner) family \.) (($ areyou) hung up on (// owner) family \?)) ((($ whysay) (// sent) \?) (is it because of ($ things) that you say (// sent) \?)) ((($ whysay) that \?) (i don\'t understand \.) (($ thlst)) (($ areyou) ($ afraidof) that \?)) feelings ((feelings about) (aprehensions toward) (thoughts on) (emotions toward)) random ((vivid) (emotionally stimulating) (exciting) (boring) (interesting) (recent) (random) (unusual) (shocking) (embarrassing)) ((why do you say) (what makes you believe) (are you sure that) (do you really think) (what makes you think)) ((i see \.\.\.) (yes\,) (i understand \.) (oh \.)) ((please\,) (i would appreciate it if you would) (perhaps you could) (please\,) (would you please) (why don\'t you) (could you)) ((my secretary will send you a bill \.) (bye bye \.) (see ya \.) (ok\, talk to you some other time \.) (talk to you later \.) (ok\, have fun \.) (ciao \.)) ((something) (more) (how you feel)) ((your plans) (your life) (the people you hang around with) (problems at school) (any hobbies you have) (your sex life) (hangups you have) (your inhibitions) (some problems in your childhood) (some problems at home)) ((describe) (tell me about) (talk about) (discuss) (tell me more about) (elaborate on)) ((i believe) (i think) (i have a feeling) (it seems to me that) (it looks like)) ((problems) (inhibitions) (hangups) (difficulties) (anxieties) (frustrations)) ((does it bother you that) (are you annoyed that) (did you ever regret) (are you sorry) (are you satisfied with the fact that)) ((you have your mind on (// found) \, it seems \.) (you think too much about (// found) \.) (you should try taking your mind off of (// found) \.) (are you a computer hacker \?)) ((what do you think \?) (i\'ll ask the questions\, if you don\'t mind!) (i could ask the same thing myself \.) (($ please) allow me to do the questioning \.) (i have asked myself that question many times \.) (($ please) try to answer that question yourself \.)) ((($ please) try to calm yourself \.) (you seem very excited \. relax \. ($ please) ($ describe) ($ things) \.) (you\'re being very emotional \. calm down \.)) ((($ please) watch your tongue!) (($ please) avoid such unwholesome thoughts \.) (($ please) get your mind out of the gutter \.) (such lewdness is not appreciated \.)) ((this is not a healthy way of thinking \.) (($ bother) you\, too\, may die someday \?) (i am worried by your obssession with this topic!) (did you watch a lot of crime and violence on television as a child \?)) ((($ areyou) ($ afraidof) sex \?) (($ describe) ($ something) about your sexual history \.) (($ please) ($ describe) your sex life \.\.\.) (($ describe) your ($ feelings-about) your sexual partner \.) (($ describe) your most ($ random-adjective) sexual experience \.) (($ areyou) satisfied with (// lover) \.\.\. \?)) ((why not \?) (($ bother) i ask that \?) (why not \?) (why not \?) (how come \?) (($ bother) i ask that \?)) ((is it because (// sent) that you came to me \?) (($ bother) (// sent) \?) (when did you first know that (// sent) \?) (is the fact that (// sent) the real reason \?) (does the fact that (// sent) explain anything else \?) (($ areyou) ($ sure) (// sent) \?)) ((($ bother) i ask you that \?) (that\'s not much of an answer!) (($ inter) why won\'t you talk about it \?) (speak up!) (($ areyou) ($ afraidof) talking about it \?) (don\'t be ($ afraidof) elaborating \.) (($ please) go into more detail \.)) ((($ maybe) ($ things) ($ arerelated) this \.) (is it because of ($ things) that you are going through all this \?) (how do you reconcile ($ things) \?) (($ maybe) this ($ isrelated) ($ things) \?)) ((earlier you said ($ history) \?) (you mentioned that ($ history) \?) (($ whysay) ($ history) \?)) ((is this how you relax \?) (how long have you been smoking grass \?) (($ areyou) ($ afraidof) of being drawn to using harder stuff \?)) ((do you get (// found) often \?) (do you enjoy being (// found) \?) (what makes you (// found) \?) (how often ($ areyou) (// found) \?) (when were you last (// found) \?)) ((i you) (my your) (me you) (you me) (your my) (mine yours) (yours mine) (our your) (ours yours) (we you) (dunno do not know) (no\,) (yes\,) (ya i) (aint am not) (wanna want to) (gimme give me) (gotta have to) (gonna going to) (never not ever) (doesn\'t does not) (don\'t do not) (aren\'t are not) (isn\'t is not) (won\'t will not) (can\'t cannot) (haven\'t have not) (i\'m you are) (ourselves yourselves) (myself yourself) (yourself myself) (you\'re i am) (you\'ve i have) (i\'ve you have) (i\'ll you will) (you\'ll i shall) (i\'d you would) (you\'d i would) (here there) (please) (eh\,) (eh) (oh\,) (oh) (shouldn\'t should not) (wouldn\'t would not) (won\'t will not) (hasn\'t has not)) ((($ describe) your ($ feelings-about) him \.) (($ areyou) a friend of Stallman \?) (($ bother) Stallman is ($ random-adjective) \?) (($ ibelieve) you are ($ afraidof) him \.)) ((($ describe) your (// found) \.) (($ bother) your grades could ($ improve) \?) (($ areyou) ($ afraidof) (// found) \?) (($ maybe) this ($ isrelated) to your attitude \.) (($ areyou) absent often \?) (($ maybe) you should study ($ something) \.)) ((improve) (be better) (be improved) (be higher)) ((($ areyou) ($ sure) \?) (($ ibelieve) you have ($ problems) with (// found) \.) (($ whysay) (// sent) \?)) ((tell me ($ something) about (// found) \.) (($ describe) ($ relation) (// found) \.) (do you find (// found) ($ random-adjective) \?)) ((($ describe) ($ something) about math \.) (($ maybe) your ($ problems) ($ arerelated) (// found) \.) (i do\'nt know much (// found) \, but ($ continue) anyway \.)) ((($ areyou) Zippy \?) (($ ibelieve) you have some serious ($ problems) \.) (($ bother) you are a pinhead \?)) ((($ maybe) we could chat \.) (($ please) ($ describe) ($ something) about chat mode \.) (($ bother) our discussion is so ($ random-adjective) \?)) ((($ please) try to be less abusive \.) (($ describe) why you call me (// found) \.) (i\'ve had enough of you!)) (boring bozo clown clumsy cretin dumb dummy fool foolish gnerd gnurd idiot jerk lose loser louse lousy luse luser moron nerd nurd oaf oafish reek stink stupid tool toolish twit) ((how are you) (hows it going) (hows it going eh) (how\'s it going) (how\'s it going eh) (how goes it) (whats up) (whats new) (what\'s up) (what\'s new) (howre you) (how\'re you) (how\'s everything) (how is everything) (how do you do) (how\'s it hanging) (que pasa) (how are you doing) (what do you say)) (huh remem rthing) (0 . 0) (your partner) 0] 86)) (defun doctor-meaning (x) (byte-code "N" [x doctor-meaning] 2)) (defmacro doctor-put-meaning (symb val) "Store the base meaning of a word on the property list" (byte-code "D F" [symb val put quote (quote doctor-meaning)] 4)) (doctor-put-meaning howdy (quote howdy)) (doctor-put-meaning hi (quote howdy)) (doctor-put-meaning greetings (quote howdy)) (doctor-put-meaning hello (quote howdy)) (doctor-put-meaning tops20 (quote mach)) (doctor-put-meaning tops-20 (quote mach)) (doctor-put-meaning tops (quote mach)) (doctor-put-meaning pdp11 (quote mach)) (doctor-put-meaning computer (quote mach)) (doctor-put-meaning unix (quote mach)) (doctor-put-meaning machine (quote mach)) (doctor-put-meaning computers (quote mach)) (doctor-put-meaning machines (quote mach)) (doctor-put-meaning pdp11s (quote mach)) (doctor-put-meaning foo (quote mach)) (doctor-put-meaning foobar (quote mach)) (doctor-put-meaning multics (quote mach)) (doctor-put-meaning macsyma (quote mach)) (doctor-put-meaning teletype (quote mach)) (doctor-put-meaning la36 (quote mach)) (doctor-put-meaning vt52 (quote mach)) (doctor-put-meaning zork (quote mach)) (doctor-put-meaning trek (quote mach)) (doctor-put-meaning startrek (quote mach)) (doctor-put-meaning advent (quote mach)) (doctor-put-meaning pdp (quote mach)) (doctor-put-meaning dec (quote mach)) (doctor-put-meaning commodore (quote mach)) (doctor-put-meaning vic (quote mach)) (doctor-put-meaning bbs (quote mach)) (doctor-put-meaning modem (quote mach)) (doctor-put-meaning baud (quote mach)) (doctor-put-meaning macintosh (quote mach)) (doctor-put-meaning vax (quote mach)) (doctor-put-meaning vms (quote mach)) (doctor-put-meaning ibm (quote mach)) (doctor-put-meaning pc (quote mach)) (doctor-put-meaning bitching (quote foul)) (doctor-put-meaning shit (quote foul)) (doctor-put-meaning bastard (quote foul)) (doctor-put-meaning damn (quote foul)) (doctor-put-meaning damned (quote foul)) (doctor-put-meaning hell (quote foul)) (doctor-put-meaning suck (quote foul)) (doctor-put-meaning sucking (quote foul)) (doctor-put-meaning sux (quote foul)) (doctor-put-meaning ass (quote foul)) (doctor-put-meaning whore (quote foul)) (doctor-put-meaning bitch (quote foul)) (doctor-put-meaning asshole (quote foul)) (doctor-put-meaning shrink (quote foul)) (doctor-put-meaning pot (quote toke)) (doctor-put-meaning grass (quote toke)) (doctor-put-meaning weed (quote toke)) (doctor-put-meaning marijuana (quote toke)) (doctor-put-meaning acapulco (quote toke)) (doctor-put-meaning columbian (quote toke)) (doctor-put-meaning tokin (quote toke)) (doctor-put-meaning joint (quote toke)) (doctor-put-meaning toke (quote toke)) (doctor-put-meaning toking (quote toke)) (doctor-put-meaning tokin\' (quote toke)) (doctor-put-meaning toked (quote toke)) (doctor-put-meaning roach (quote toke)) (doctor-put-meaning pills (quote drug)) (doctor-put-meaning dope (quote drug)) (doctor-put-meaning acid (quote drug)) (doctor-put-meaning lsd (quote drug)) (doctor-put-meaning speed (quote drug)) (doctor-put-meaning heroin (quote drug)) (doctor-put-meaning hash (quote drug)) (doctor-put-meaning cocaine (quote drug)) (doctor-put-meaning uppers (quote drug)) (doctor-put-meaning downers (quote drug)) (doctor-put-meaning loves (quote loves)) (doctor-put-meaning love (quote love)) (doctor-put-meaning loved (quote love)) (doctor-put-meaning hates (quote hates)) (doctor-put-meaning dislikes (quote hates)) (doctor-put-meaning hate (quote hate)) (doctor-put-meaning hated (quote hate)) (doctor-put-meaning dislike (quote hate)) (doctor-put-meaning stoned (quote state)) (doctor-put-meaning drunk (quote state)) (doctor-put-meaning drunken (quote state)) (doctor-put-meaning high (quote state)) (doctor-put-meaning horny (quote state)) (doctor-put-meaning blasted (quote state)) (doctor-put-meaning happy (quote state)) (doctor-put-meaning paranoid (quote state)) (doctor-put-meaning wish (quote desire)) (doctor-put-meaning wishes (quote desire)) (doctor-put-meaning want (quote desire)) (doctor-put-meaning desire (quote desire)) (doctor-put-meaning like (quote desire)) (doctor-put-meaning hope (quote desire)) (doctor-put-meaning hopes (quote desire)) (doctor-put-meaning desires (quote desire)) (doctor-put-meaning wants (quote desire)) (doctor-put-meaning desires (quote desire)) (doctor-put-meaning likes (quote desire)) (doctor-put-meaning needs (quote desire)) (doctor-put-meaning need (quote desire)) (doctor-put-meaning frustrated (quote mood)) (doctor-put-meaning depressed (quote mood)) (doctor-put-meaning annoyed (quote mood)) (doctor-put-meaning upset (quote mood)) (doctor-put-meaning unhappy (quote mood)) (doctor-put-meaning excited (quote mood)) (doctor-put-meaning worried (quote mood)) (doctor-put-meaning lonely (quote mood)) (doctor-put-meaning angry (quote mood)) (doctor-put-meaning mad (quote mood)) (doctor-put-meaning pissed (quote mood)) (doctor-put-meaning jealous (quote mood)) (doctor-put-meaning afraid (quote fear)) (doctor-put-meaning terrified (quote fear)) (doctor-put-meaning fear (quote fear)) (doctor-put-meaning scared (quote fear)) (doctor-put-meaning frightened (quote fear)) (doctor-put-meaning virginity (quote sexnoun)) (doctor-put-meaning virgins (quote sexnoun)) (doctor-put-meaning virgin (quote sexnoun)) (doctor-put-meaning cock (quote sexnoun)) (doctor-put-meaning cocks (quote sexnoun)) (doctor-put-meaning dick (quote sexnoun)) (doctor-put-meaning dicks (quote sexnoun)) (doctor-put-meaning cunt (quote sexnoun)) (doctor-put-meaning cunts (quote sexnoun)) (doctor-put-meaning prostitute (quote sexnoun)) (doctor-put-meaning condom (quote sexnoun)) (doctor-put-meaning sex (quote sexnoun)) (doctor-put-meaning rapes (quote sexnoun)) (doctor-put-meaning wife (quote family)) (doctor-put-meaning family (quote family)) (doctor-put-meaning brothers (quote family)) (doctor-put-meaning sisters (quote family)) (doctor-put-meaning parent (quote family)) (doctor-put-meaning parents (quote family)) (doctor-put-meaning brother (quote family)) (doctor-put-meaning sister (quote family)) (doctor-put-meaning father (quote family)) (doctor-put-meaning mother (quote family)) (doctor-put-meaning husband (quote family)) (doctor-put-meaning siblings (quote family)) (doctor-put-meaning grandmother (quote family)) (doctor-put-meaning grandfather (quote family)) (doctor-put-meaning maternal (quote family)) (doctor-put-meaning paternal (quote family)) (doctor-put-meaning stab (quote death)) (doctor-put-meaning murder (quote death)) (doctor-put-meaning murders (quote death)) (doctor-put-meaning suicide (quote death)) (doctor-put-meaning suicides (quote death)) (doctor-put-meaning kill (quote death)) (doctor-put-meaning kills (quote death)) (doctor-put-meaning die (quote death)) (doctor-put-meaning dies (quote death)) (doctor-put-meaning died (quote death)) (doctor-put-meaning dead (quote death)) (doctor-put-meaning death (quote death)) (doctor-put-meaning deaths (quote death)) (doctor-put-meaning pain (quote symptoms)) (doctor-put-meaning ache (quote symptoms)) (doctor-put-meaning fever (quote symptoms)) (doctor-put-meaning sore (quote symptoms)) (doctor-put-meaning aching (quote symptoms)) (doctor-put-meaning stomachache (quote symptoms)) (doctor-put-meaning headache (quote symptoms)) (doctor-put-meaning hurts (quote symptoms)) (doctor-put-meaning disease (quote symptoms)) (doctor-put-meaning virus (quote symptoms)) (doctor-put-meaning vomit (quote symptoms)) (doctor-put-meaning vomiting (quote symptoms)) (doctor-put-meaning barf (quote symptoms)) (doctor-put-meaning toothache (quote symptoms)) (doctor-put-meaning hurt (quote symptoms)) (doctor-put-meaning rum (quote alcohol)) (doctor-put-meaning gin (quote alcohol)) (doctor-put-meaning vodka (quote alcohol)) (doctor-put-meaning alcohol (quote alcohol)) (doctor-put-meaning bourbon (quote alcohol)) (doctor-put-meaning beer (quote alcohol)) (doctor-put-meaning wine (quote alcohol)) (doctor-put-meaning whiskey (quote alcohol)) (doctor-put-meaning scotch (quote alcohol)) (doctor-put-meaning fuck (quote sexverb)) (doctor-put-meaning fucked (quote sexverb)) (doctor-put-meaning screw (quote sexverb)) (doctor-put-meaning screwing (quote sexverb)) (doctor-put-meaning fucking (quote sexverb)) (doctor-put-meaning rape (quote sexverb)) (doctor-put-meaning raped (quote sexverb)) (doctor-put-meaning kiss (quote sexverb)) (doctor-put-meaning kissing (quote sexverb)) (doctor-put-meaning kisses (quote sexverb)) (doctor-put-meaning screws (quote sexverb)) (doctor-put-meaning fucks (quote sexverb)) (doctor-put-meaning because (quote conj)) (doctor-put-meaning but (quote conj)) (doctor-put-meaning however (quote conj)) (doctor-put-meaning besides (quote conj)) (doctor-put-meaning anyway (quote conj)) (doctor-put-meaning that (quote conj)) (doctor-put-meaning except (quote conj)) (doctor-put-meaning why (quote conj)) (doctor-put-meaning how (quote conj)) (doctor-put-meaning until (quote when)) (doctor-put-meaning when (quote when)) (doctor-put-meaning whenever (quote when)) (doctor-put-meaning while (quote when)) (doctor-put-meaning since (quote when)) (doctor-put-meaning rms (quote rms)) (doctor-put-meaning stallman (quote rms)) (doctor-put-meaning school (quote school)) (doctor-put-meaning schools (quote school)) (doctor-put-meaning skool (quote school)) (doctor-put-meaning grade (quote school)) (doctor-put-meaning grades (quote school)) (doctor-put-meaning teacher (quote school)) (doctor-put-meaning teachers (quote school)) (doctor-put-meaning classes (quote school)) (doctor-put-meaning professor (quote school)) (doctor-put-meaning prof (quote school)) (doctor-put-meaning profs (quote school)) (doctor-put-meaning professors (quote school)) (doctor-put-meaning mit (quote school)) (doctor-put-meaning emacs (quote eliza)) (doctor-put-meaning eliza (quote eliza)) (doctor-put-meaning liza (quote eliza)) (doctor-put-meaning elisa (quote eliza)) (doctor-put-meaning weizenbaum (quote eliza)) (doctor-put-meaning doktor (quote eliza)) (doctor-put-meaning atheletics (quote sports)) (doctor-put-meaning baseball (quote sports)) (doctor-put-meaning basketball (quote sports)) (doctor-put-meaning football (quote sports)) (doctor-put-meaning frisbee (quote sports)) (doctor-put-meaning gym (quote sports)) (doctor-put-meaning gymnastics (quote sports)) (doctor-put-meaning hockey (quote sports)) (doctor-put-meaning lacrosse (quote sports)) (doctor-put-meaning soccer (quote sports)) (doctor-put-meaning softball (quote sports)) (doctor-put-meaning sports (quote sports)) (doctor-put-meaning swimming (quote sports)) (doctor-put-meaning swim (quote sports)) (doctor-put-meaning tennis (quote sports)) (doctor-put-meaning volleyball (quote sports)) (doctor-put-meaning math (quote math)) (doctor-put-meaning mathematics (quote math)) (doctor-put-meaning mathematical (quote math)) (doctor-put-meaning theorem (quote math)) (doctor-put-meaning axiom (quote math)) (doctor-put-meaning lemma (quote math)) (doctor-put-meaning algebra (quote math)) (doctor-put-meaning algebraic (quote math)) (doctor-put-meaning trig (quote math)) (doctor-put-meaning trigonometry (quote math)) (doctor-put-meaning trigonometric (quote math)) (doctor-put-meaning geometry (quote math)) (doctor-put-meaning geometric (quote math)) (doctor-put-meaning calculus (quote math)) (doctor-put-meaning arithmetic (quote math)) (doctor-put-meaning zippy (quote zippy)) (doctor-put-meaning zippy (quote zippy)) (doctor-put-meaning pinhead (quote zippy)) (doctor-put-meaning chat (quote chat)) (defun doctor nil "\ Switch to *doctor* buffer and start giving psychotherapy." (interactive) (byte-code "! " [nil switch-to-buffer "*doctor*" doctor-mode] 3)) (defun doctor-ret-or-read (arg) "\ Insert a newline if preceding character is not a newline, Otherwise call the Doctor to parse preceding sentence" (interactive "*p") (byte-code "hU !" [arg nil 10 doctor-read-print newline] 3)) (defun doctor-read-print nil "\ top level loop" (interactive) (byte-code "È c T!c)" [sent lincount bak nil doctor-readin " " doctor-doc] 4)) (defun doctor-readin nil "\ Read a sentence. Return it as a list of words" (byte-code "!m? C\" )" [sentence nil backward-sentence 1 append doctor-read-token] 6)) (defun doctor-read-token nil "\ read one word from buffer" (byte-code "`!`\"!!!" [intern downcase buffer-substring forward-word 1 re-search-forward "\\Sw*"] 7)) (defun doctor-doc (sent) (byte-code "\" !\\ \" !\\\"% @>0 !!\\@=<