|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ d ┃
Length: 43447 (0xa9b7)
Names: »doctor.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/doctor.elc«
0x0000…0020 0a 28 64 65 66 75 6e 20 63 61 64 72 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 40 ┆ (defun cadr (x) (byte-code " A@┆
0x0020…0040 87 22 20 5b 78 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 63 61 64 64 72 20 28 78 29 20 28 62 79 ┆ " [x] 1)) (defun caddr (x) (by┆
0x0040…0060 74 65 2d 63 6f 64 65 20 22 08 41 41 40 87 22 20 5b 78 5d 20 31 29 29 0a 0a 28 64 65 66 75 6e 20 ┆te-code " AA@ " [x] 1)) (defun ┆
0x0060…0080 63 64 64 72 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 41 87 22 20 5b 78 5d 20 31 ┆cddr (x) (byte-code " AA " [x] 1┆
0x0080…00a0 29 29 0a 0a 28 64 65 66 75 6e 20 6d 65 6d 62 65 72 20 28 78 20 79 29 20 22 5c 0a 4c 69 6b 65 20 ┆)) (defun member (x y) "\ Like ┆
0x00a0…00c0 6d 65 6d 71 2c 20 62 75 74 20 75 73 65 73 20 20 65 71 75 61 6c 20 20 66 6f 72 20 63 6f 6d 70 61 ┆memq, but uses equal for compa┆
0x00c0…00e0 72 69 73 6f 6e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 85 0a 00 c2 09 08 40 5c 22 3f 85 15 ┆rison" (byte-code " @\"? ┆
0x00e0…0100 00 08 41 89 10 88 82 00 00 88 08 87 22 20 5b 79 20 78 20 65 71 75 61 6c 5d 20 34 29 29 0a 0a 28 ┆ A " [y x equal] 4)) (┆
0x0100…0120 64 65 66 75 6e 20 72 61 6e 64 6f 6d 2d 72 61 6e 67 65 20 28 74 6f 70 29 20 22 5c 0a 52 65 74 75 ┆defun random-range (top) "\ Retu┆
0x0120…0140 72 6e 20 61 20 72 61 6e 64 6f 6d 20 6e 6f 6e 6e 65 67 61 74 69 76 65 20 69 6e 74 65 67 65 72 20 ┆rn a random nonnegative integer ┆
0x0140…0160 6c 65 73 73 20 74 68 61 6e 20 54 4f 50 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 20 09 ┆less than TOP." (byte-code " ┆
0x0160…0180 5c 22 18 08 c4 57 83 11 00 08 5b 82 12 00 08 29 87 22 20 5b 74 65 6d 20 74 6f 70 20 25 20 72 61 ┆\" W [ ) " [tem top % ra┆
0x0180…01a0 6e 64 6f 6d 20 30 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 2f 2f 20 28 78 29 20 28 62 79 74 65 ┆ndom 0] 4)) (defun // (x) (byte┆
0x01a0…01c0 2d 63 6f 64 65 20 22 08 87 22 20 5b 78 5d 20 31 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 24 20 ┆-code " " [x] 1)) (defmacro $ ┆
0x01c0…01e0 28 77 68 61 74 29 20 22 71 75 6f 74 65 64 20 61 72 67 20 66 6f 72 6d 20 6f 66 20 64 6f 63 74 6f ┆(what) "quoted arg form of docto┆
0x01e0…0200 72 2d 24 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 44 44 87 22 20 5b 77 68 61 74 20 64 ┆r-$" (byte-code " DD " [what d┆
0x0200…0220 6f 63 74 6f 72 2d 24 20 71 75 6f 74 65 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 64 6f 63 74 6f ┆octor-$ quote] 3)) (defun docto┆
0x0220…0240 72 2d 24 20 28 77 68 61 74 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 61 72 20 6f 66 20 ┆r-$ (what) "\ Return the car of ┆
0x0240…0260 61 20 6c 69 73 74 2c 20 72 6f 74 61 74 69 6e 67 20 74 68 65 20 6c 69 73 74 20 65 61 63 68 20 74 ┆a list, rotating the list each t┆
0x0260…0280 69 6d 65 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 4a 18 08 40 1a c4 08 41 0a 43 5c 22 1b 09 ┆ime" (byte-code " J @ A C\" ┆
0x0280…02a0 0b 4c 88 0a 2b 87 22 20 5b 76 76 20 77 68 61 74 20 66 69 72 73 74 20 77 77 20 61 70 70 65 6e 64 ┆ L + " [vv what first ww append┆
0x02a0…02c0 5d 20 33 29 29 0a 0a 28 64 65 66 76 61 72 20 64 6f 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 70 20 6e ┆] 3)) (defvar doctor-mode-map n┆
0x02c0…02e0 69 6c 29 0a 0a 28 69 66 20 64 6f 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 28 73 65 ┆il) (if doctor-mode-map nil (se┆
0x02e0…0300 74 71 20 64 6f 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d ┆tq doctor-mode-map (make-sparse-┆
0x0300…0320 6b 65 79 6d 61 70 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 6f 63 74 6f 72 2d 6d 6f 64 65 ┆keymap)) (define-key doctor-mode┆
0x0320…0340 2d 6d 61 70 20 22 0a 22 20 28 71 75 6f 74 65 20 64 6f 63 74 6f 72 2d 72 65 61 64 2d 70 72 69 6e ┆-map " " (quote doctor-read-prin┆
0x0340…0360 74 29 29 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 64 6f 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 70 20 ┆t)) (define-key doctor-mode-map ┆
0x0360…0380 22 0d 22 20 28 71 75 6f 74 65 20 64 6f 63 74 6f 72 2d 72 65 74 2d 6f 72 2d 72 65 61 64 29 29 29 ┆" " (quote doctor-ret-or-read)))┆
0x0380…03a0 0a 0a 28 64 65 66 75 6e 20 64 6f 63 74 6f 72 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f ┆ (defun doctor-mode nil "\ Majo┆
0x03a0…03c0 72 20 6d 6f 64 65 20 66 6f 72 20 72 75 6e 6e 69 6e 67 20 74 68 65 20 44 6f 63 74 6f 72 20 28 45 ┆r mode for running the Doctor (E┆
0x03c0…03e0 6c 69 7a 61 29 20 70 72 6f 67 72 61 6d 2e 0a 4c 69 6b 65 20 54 65 78 74 20 6d 6f 64 65 20 77 69 ┆liza) program. Like Text mode wi┆
0x03e0…0400 74 68 20 41 75 74 6f 20 46 69 6c 6c 20 6d 6f 64 65 0a 65 78 63 65 70 74 20 74 68 61 74 20 52 45 ┆th Auto Fill mode except that RE┆
0x0400…0420 54 20 77 68 65 6e 20 70 6f 69 6e 74 20 69 73 20 61 66 74 65 72 20 61 20 6e 65 77 6c 69 6e 65 2c ┆T when point is after a newline,┆
0x0420…0440 20 6f 72 20 4c 46 44 20 61 74 20 61 6e 79 20 74 69 6d 65 2c 0a 72 65 61 64 73 20 74 68 65 20 73 ┆ or LFD at any time, reads the s┆
0x0440…0460 65 6e 74 65 6e 63 65 20 62 65 66 6f 72 65 20 70 6f 69 6e 74 2c 20 61 6e 64 20 70 72 69 6e 74 73 ┆entence before point, and prints┆
0x0460…0480 20 74 68 65 20 44 6f 63 74 6f 72 27 73 20 61 6e 73 77 65 72 2e 22 20 28 69 6e 74 65 72 61 63 74 ┆ the Doctor's answer." (interact┆
0x0480…04a0 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 20 88 c5 20 88 c6 08 21 88 c7 89 11 ┆ive) (byte-code " ! ┆
0x04a0…04c0 88 c8 89 12 88 c9 20 88 ca cb 21 88 cc 63 87 22 20 5b 64 6f 63 74 6f 72 2d 6d 6f 64 65 2d 6d 61 ┆ ! c " [doctor-mode-ma┆
0x04c0…04e0 70 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6e 69 6c 20 74 65 78 74 2d ┆p major-mode mode-name nil text-┆
0x04e0…0500 6d 6f 64 65 20 6d 61 6b 65 2d 64 6f 63 74 6f 72 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c ┆mode make-doctor-variables use-l┆
0x0500…0520 6f 63 61 6c 2d 6d 61 70 20 64 6f 63 74 6f 72 2d 6d 6f 64 65 20 22 44 6f 63 74 6f 72 22 20 74 75 ┆ocal-map doctor-mode "Doctor" tu┆
0x0520…0540 72 6e 2d 6f 6e 2d 61 75 74 6f 2d 66 69 6c 6c 20 64 6f 63 74 6f 72 2d 74 79 70 65 20 28 69 20 61 ┆rn-on-auto-fill doctor-type (i a┆
0x0540…0560 6d 20 74 68 65 20 70 73 79 63 68 6f 74 68 65 72 61 70 69 73 74 20 5c 2e 20 28 24 20 70 6c 65 61 ┆m the psychotherapist \. ($ plea┆
0x0560…0580 73 65 29 20 28 24 20 64 65 73 63 72 69 62 65 29 20 79 6f 75 72 20 28 24 20 70 72 6f 62 6c 65 6d ┆se) ($ describe) your ($ problem┆
0x0580…05a0 73 29 20 5c 2e 20 65 61 63 68 20 74 69 6d 65 20 79 6f 75 20 61 72 65 20 66 69 6e 69 73 68 65 64 ┆s) \. each time you are finished┆
0x05a0…05c0 20 74 61 6c 6b 69 6e 67 5c 2c 20 74 79 70 65 20 52 45 54 20 74 77 69 63 65 20 5c 2e 29 20 22 0a ┆ talking\, type RET twice \.) " ┆
0x05c0…05e0 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 6d 61 6b 65 2d 64 6f 63 74 6f 72 2d 76 61 72 69 61 ┆"] 6)) (defun make-doctor-varia┆
0x05e0…0600 62 6c 65 73 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 81 54 00 c0 21 88 81 55 00 89 10 ┆bles nil (byte-code " T ! U ┆
0x0600…0620 88 81 54 00 c1 21 88 81 56 00 81 57 00 81 58 00 5c 22 89 11 88 81 54 00 c2 21 88 c3 89 12 88 81 ┆ T ! V W X \" T ! ┆
0x0620…0640 54 00 c4 21 88 c3 89 14 88 81 54 00 c5 21 88 c3 89 15 88 81 54 00 c6 21 88 c3 89 16 06 88 81 54 ┆T ! T ! T ! T┆
0x0640…0660 00 c7 21 88 81 59 00 89 16 07 88 81 54 00 c8 21 88 81 5a 00 89 16 08 88 81 54 00 c9 21 88 81 5b ┆ ! Y T ! Z T ! [┆
0x0660…0680 00 89 16 09 88 81 54 00 ca 21 88 81 5c 5c 00 89 16 0a 88 81 54 00 cb 21 88 81 5d 00 89 16 0b 88 ┆ T ! \\ T ! ] ┆
0x0680…06a0 81 54 00 cc 21 88 81 5e 00 89 16 0c 88 81 54 00 cd 21 88 81 5f 00 89 16 0d 88 81 54 00 ce 21 88 ┆ T ! ^ T ! _ T ! ┆
0x06a0…06c0 81 60 00 89 16 0e 88 81 54 00 cf 21 88 81 61 00 89 16 0f 88 81 54 00 d0 21 88 81 62 00 89 16 10 ┆ ` T ! a T ! b ┆
0x06c0…06e0 88 81 54 00 d1 21 88 81 63 00 89 16 11 88 81 54 00 d2 21 88 81 64 00 89 16 12 88 81 54 00 d3 21 ┆ T ! c T ! d T !┆
0x06e0…0700 88 81 65 00 89 16 13 88 81 54 00 d4 21 88 81 66 00 89 16 14 88 81 54 00 d5 21 88 81 67 00 89 16 ┆ e T ! f T ! g ┆
0x0700…0720 15 88 81 54 00 d6 21 88 81 68 00 89 16 16 88 81 54 00 d7 21 88 81 69 00 89 16 17 88 81 54 00 d8 ┆ T ! h T ! i T ┆
0x0720…0740 21 88 81 6a 00 89 16 18 88 81 54 00 d9 21 88 81 6b 00 89 16 19 88 81 54 00 da 21 88 81 6c 00 89 ┆! j T ! k T ! l ┆
0x0740…0760 16 1a 88 81 54 00 db 21 88 81 6d 00 89 16 1b 88 81 54 00 dc 21 88 81 6e 00 89 16 1c 88 81 54 00 ┆ T ! m T ! n T ┆
0x0760…0780 81 6f 00 21 88 81 70 00 89 16 1d 88 81 54 00 81 71 00 21 88 81 72 00 89 16 1e 88 81 54 00 df 21 ┆ o ! p T q ! r T !┆
0x0780…07a0 88 81 73 00 89 16 1f 88 81 54 00 e0 21 88 81 74 00 89 16 20 88 81 54 00 e1 21 88 81 75 00 89 16 ┆ s T ! t T ! u ┆
0x07a0…07c0 21 88 81 54 00 e2 21 88 81 76 00 89 16 5c 22 88 81 54 00 e3 21 88 81 77 00 89 16 23 88 81 54 00 ┆! T ! v \" T ! w # T ┆
0x07c0…07e0 e4 21 88 81 78 00 89 16 24 88 81 54 00 e5 21 88 81 79 00 89 16 25 88 81 54 00 e6 21 88 81 7a 00 ┆ ! x $ T ! y % T ! z ┆
0x07e0…0800 89 16 26 88 81 54 00 e7 21 88 81 7b 00 89 16 27 88 81 54 00 e8 21 88 81 7c 00 89 16 28 88 81 54 ┆ & T ! { ' T ! | ( T┆
0x0800…0820 00 e9 21 88 81 7d 00 89 16 29 88 81 54 00 ea 21 88 81 7e 00 89 16 2a 88 81 54 00 eb 21 88 81 7f ┆ ! } ) T ! ~ * T ! ┆
0x0820…0840 00 89 16 2b 88 81 54 00 ec 21 88 81 80 00 89 16 2c 88 81 54 00 ed 21 88 81 81 00 89 16 2d 88 81 ┆ + T ! , T ! - ┆
0x0840…0860 54 00 ee 21 88 81 82 00 89 16 2e 88 81 54 00 ef 21 88 81 83 00 89 16 2f 88 81 54 00 f0 21 88 81 ┆T ! . T ! / T ! ┆
0x0860…0880 84 00 89 16 30 88 81 54 00 f1 21 88 81 85 00 89 16 31 88 81 54 00 f2 21 88 81 86 00 89 16 32 88 ┆ 0 T ! 1 T ! 2 ┆
0x0880…08a0 81 54 00 f3 21 88 81 87 00 89 16 33 88 81 54 00 f4 21 88 81 88 00 89 16 34 88 81 54 00 f5 21 88 ┆ T ! 3 T ! 4 T ! ┆
0x08a0…08c0 81 89 00 89 16 35 88 81 54 00 f6 21 88 81 8a 00 89 16 36 88 81 54 00 f7 21 88 81 8b 00 89 16 37 ┆ 5 T ! 6 T ! 7┆
0x08c0…08e0 88 81 54 00 f8 21 88 81 8c 00 89 16 38 88 81 54 00 f9 21 88 81 8d 00 89 16 39 88 81 54 00 fa 21 ┆ T ! 8 T ! 9 T !┆
0x08e0…0900 88 81 8e 00 89 16 3a 88 81 54 00 fb 21 88 81 8f 00 89 16 3b 88 81 54 00 fc 21 88 81 90 00 89 16 ┆ : T ! ; T ! ┆
0x0900…0920 3c 88 81 54 00 fd 21 88 81 91 00 89 16 3d 88 81 54 00 fe 21 88 81 92 00 89 16 3e 88 81 54 00 ff ┆< T ! = T ! > T ┆
0x0920…0940 21 88 81 93 00 89 16 3f 88 81 54 00 81 40 00 21 88 81 94 00 89 16 40 88 81 54 00 81 41 00 21 88 ┆! ? T @ ! @ T A ! ┆
0x0940…0960 81 95 00 89 16 41 88 81 54 00 81 42 00 21 88 81 96 00 89 16 42 88 81 54 00 81 43 00 21 88 c3 89 ┆ A T B ! B T C ! ┆
0x0960…0980 16 43 88 81 54 00 81 44 00 21 88 c3 89 16 44 88 81 54 00 81 45 00 21 88 c3 89 16 45 88 81 54 00 ┆ C T D ! D T E ! E T ┆
0x0980…09a0 81 46 00 21 88 c3 89 16 46 88 81 54 00 81 47 00 21 88 c3 89 16 47 88 81 54 00 81 48 00 21 88 81 ┆ F ! F T G ! G T H ! ┆
0x09a0…09c0 97 00 89 16 48 88 81 54 00 81 49 00 21 88 c3 89 16 49 88 81 54 00 81 4a 00 21 88 c3 89 16 4a 88 ┆ H T I ! I T J ! J ┆
0x09c0…09e0 81 54 00 81 4b 00 21 88 c3 89 16 4b 88 81 54 00 81 4c 00 21 88 c3 89 16 4c 88 81 54 00 81 4d 00 ┆ T K ! K T L ! L T M ┆
0x09e0…0a00 21 88 81 98 00 89 16 4d 88 81 54 00 81 4e 00 21 88 c3 89 16 4e 88 81 54 00 81 4f 00 21 88 81 99 ┆! M T N ! N T O ! ┆
0x0a00…0a20 00 89 16 4f 88 81 54 00 81 50 00 21 88 c3 89 16 50 88 81 54 00 81 51 00 21 88 c3 89 16 51 88 81 ┆ O T P ! P T Q ! Q ┆
0x0a20…0a40 54 00 81 52 00 21 88 c3 89 16 52 88 81 54 00 81 53 00 21 88 c3 89 16 53 87 22 20 5b 6d 6f 6e 6f ┆T R ! R T S ! S " [mono┆
0x0a40…0a60 73 79 6c 6c 61 62 6c 65 73 20 74 79 70 6f 73 20 66 6f 75 6e 64 20 6e 69 6c 20 6f 77 6e 65 72 20 ┆syllables typos found nil owner ┆
0x0a60…0a80 68 69 73 74 6f 72 79 20 2a 64 65 62 75 67 2a 20 69 6e 74 65 72 20 63 6f 6e 74 69 6e 75 65 20 72 ┆history *debug* inter continue r┆
0x0a80…0aa0 65 6c 61 74 69 6f 6e 20 66 65 61 72 73 20 73 75 72 65 20 61 66 72 61 69 64 6f 66 20 61 72 65 79 ┆elation fears sure afraidof arey┆
0x0aa0…0ac0 6f 75 20 69 73 72 65 6c 61 74 65 64 20 61 72 65 72 65 6c 61 74 65 64 20 6d 6f 6f 64 73 20 6d 61 ┆ou isrelated arerelated moods ma┆
0x0ac0…0ae0 79 62 65 20 77 68 61 74 77 68 65 6e 20 68 65 6c 6c 6f 20 64 72 6e 6b 20 64 72 75 67 73 20 77 68 ┆ybe whatwhen hello drnk drugs wh┆
0x0ae0…0b00 79 77 61 6e 74 20 63 61 6e 79 6f 75 20 77 61 6e 74 20 73 68 6f 72 74 6c 73 74 20 66 61 6d 6c 73 ┆ywant canyou want shortlst famls┆
0x0b00…0b20 74 20 68 75 68 6c 73 74 20 6c 6f 6e 67 68 75 68 6c 73 74 20 66 65 65 6c 69 6e 67 73 2d 61 62 6f ┆t huhlst longhuhlst feelings-abo┆
0x0b20…0b40 75 74 20 72 61 6e 64 6f 6d 2d 61 64 6a 65 63 74 69 76 65 20 77 68 79 73 61 79 20 69 73 65 65 20 ┆ut random-adjective whysay isee ┆
0x0b40…0b60 70 6c 65 61 73 65 20 62 79 65 20 73 6f 6d 65 74 68 69 6e 67 20 74 68 69 6e 67 73 20 64 65 73 63 ┆please bye something things desc┆
0x0b60…0b80 72 69 62 65 20 69 62 65 6c 69 65 76 65 20 70 72 6f 62 6c 65 6d 73 20 62 6f 74 68 65 72 20 6d 61 ┆ribe ibelieve problems bother ma┆
0x0b80…0ba0 63 68 6c 73 74 20 71 6c 69 73 74 20 65 6c 69 73 74 20 66 6f 75 6c 6c 73 74 20 64 65 61 74 68 6c ┆chlst qlist elist foullst deathl┆
0x0ba0…0bc0 73 74 20 73 65 78 6c 73 74 20 6e 65 67 6c 73 74 20 62 65 63 6c 73 74 20 73 68 6f 72 74 62 65 63 ┆st sexlst neglst beclst shortbec┆
0x0bc0…0be0 6c 73 74 20 74 68 6c 73 74 20 72 65 6d 6c 73 74 20 74 6f 6b 6c 73 74 20 73 74 61 74 65 73 20 72 ┆lst thlst remlst toklst states r┆
0x0be0…0c00 65 70 6c 69 73 74 20 73 74 61 6c 6c 6d 61 6e 6c 73 74 20 73 63 68 6f 6f 6c 6c 73 74 20 69 6d 70 ┆eplist stallmanlst schoollst imp┆
0x0c00…0c20 72 6f 76 65 20 65 6c 69 7a 61 6c 73 74 20 73 70 6f 72 74 73 6c 73 74 20 6d 61 74 68 6c 73 74 20 ┆rove elizalst sportslst mathlst ┆
0x0c20…0c40 7a 69 70 70 79 6c 73 74 20 63 68 61 74 6c 73 74 20 61 62 75 73 65 6c 73 74 20 61 62 75 73 65 77 ┆zippylst chatlst abuselst abusew┆
0x0c40…0c60 6f 72 64 73 20 68 6f 77 61 72 65 79 6f 75 6c 73 74 20 77 68 65 72 65 6f 75 74 70 20 73 75 62 6a ┆ords howareyoulst whereoutp subj┆
0x0c60…0c80 20 76 65 72 62 20 6f 62 6a 20 66 65 61 72 65 64 20 6f 62 73 65 72 76 61 74 69 6f 6e 2d 6c 69 73 ┆ verb obj feared observation-lis┆
0x0c80…0ca0 74 20 72 65 70 65 74 69 74 69 76 65 2d 73 68 6f 72 74 6e 65 73 73 20 2a 2a 6d 61 64 2a 2a 20 72 ┆t repetitive-shortness **mad** r┆
0x0ca0…0cc0 6d 73 2d 66 6c 61 67 20 65 6c 69 7a 61 2d 66 6c 61 67 20 7a 69 70 70 79 2d 66 6c 61 67 20 6c 6f ┆ms-flag eliza-flag zippy-flag lo┆
0x0cc0…0ce0 76 65 72 20 62 61 6b 20 6c 69 6e 63 6f 75 6e 74 20 2a 70 72 69 6e 74 2d 75 70 63 61 73 65 2a 20 ┆ver bak lincount *print-upcase* ┆
0x0ce0…0d00 2a 70 72 69 6e 74 2d 73 70 61 63 65 2a 20 68 6f 77 64 79 66 6c 61 67 20 6f 62 6a 65 63 74 20 6d ┆*print-space* howdyflag object m┆
0x0d00…0d20 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 22 0a 20 20 20 20 20 59 6f 75 72 20 61 ┆ake-local-variable " Your a┆
0x0d20…0d40 74 74 69 74 75 64 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 20 73 65 73 73 69 6f ┆ttitude at the end of the sessio┆
0x0d40…0d60 6e 20 77 61 73 20 77 68 6f 6c 6c 79 20 75 6e 61 63 63 65 70 74 61 62 6c 65 2e 0a 20 20 20 20 20 ┆n was wholly unacceptable. ┆
0x0d60…0d80 50 6c 65 61 73 65 20 74 72 79 20 74 6f 20 63 6f 6d 65 20 62 61 63 6b 20 6e 65 78 74 20 74 69 6d ┆Please try to come back next tim┆
0x0d80…0da0 65 20 77 69 74 68 20 61 20 77 69 6c 6c 69 6e 67 6e 65 73 73 20 74 6f 20 73 70 65 61 6b 20 6d 6f ┆e with a willingness to speak mo┆
0x0da0…0dc0 72 65 0a 20 20 20 20 20 66 72 65 65 6c 79 2e 20 49 66 20 79 6f 75 20 63 6f 6e 74 69 6e 75 65 20 ┆re freely. If you continue ┆
0x0dc0…0de0 74 6f 20 72 65 66 75 73 65 20 74 6f 20 74 61 6c 6b 20 6f 70 65 6e 6c 79 2c 20 74 68 65 72 65 20 ┆to refuse to talk openly, there ┆
0x0de0…0e00 69 73 20 6c 69 74 74 6c 65 0a 20 20 20 20 20 49 20 63 61 6e 20 64 6f 20 74 6f 20 68 65 6c 70 21 ┆is little I can do to help!┆
0x0e00…0e20 0a 22 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 ┆ " mapcar (lambda (x) (byte-code┆
0x0e20…0e40 20 22 c1 08 40 c2 c3 08 21 23 88 c1 c3 08 21 c4 c5 08 21 23 88 08 40 87 22 20 5b 78 20 70 75 74 ┆ " @ !# ! !# @ " [x put┆
0x0e40…0e60 20 64 6f 63 74 6f 72 2d 63 6f 72 72 65 63 74 69 6f 6e 20 63 61 64 72 20 64 6f 63 74 6f 72 2d 65 ┆ doctor-correction cadr doctor-e┆
0x0e60…0e80 78 70 61 6e 73 69 6f 6e 20 63 61 64 64 72 5d 20 38 29 29 20 28 28 74 68 65 79 6c 6c 20 74 68 65 ┆xpansion caddr] 8)) ((theyll the┆
0x0e80…0ea0 79 5c 27 6c 6c 20 28 74 68 65 79 20 77 69 6c 6c 29 29 20 28 74 68 65 79 72 65 20 74 68 65 79 5c ┆y\'ll (they will)) (theyre they\┆
0x0ea0…0ec0 27 72 65 20 28 74 68 65 79 20 61 72 65 29 29 20 28 68 65 73 20 68 65 5c 27 73 20 28 68 65 20 69 ┆'re (they are)) (hes he\'s (he i┆
0x0ec0…0ee0 73 29 29 20 28 68 65 37 73 20 68 65 5c 27 73 20 28 68 65 20 69 73 29 29 20 28 69 6d 20 69 5c 27 ┆s)) (he7s he\'s (he is)) (im i\'┆
0x0ee0…0f00 6d 20 28 79 6f 75 20 61 72 65 29 29 20 28 69 37 6d 20 69 5c 27 6d 20 28 79 6f 75 20 61 72 65 29 ┆m (you are)) (i7m i\'m (you are)┆
0x0f00…0f20 29 20 28 69 73 61 20 69 73 5c 20 61 20 28 69 73 20 61 29 29 20 28 74 68 69 65 72 20 74 68 65 69 ┆) (isa is\ a (is a)) (thier thei┆
0x0f20…0f40 72 20 28 74 68 65 69 72 29 29 20 28 64 6f 6e 74 20 64 6f 6e 5c 27 74 20 28 64 6f 20 6e 6f 74 29 ┆r (their)) (dont don\'t (do not)┆
0x0f40…0f60 29 20 28 64 6f 6e 37 74 20 64 6f 6e 5c 27 74 20 28 64 6f 20 6e 6f 74 29 29 20 28 79 6f 75 37 72 ┆) (don7t don\'t (do not)) (you7r┆
0x0f60…0f80 65 20 79 6f 75 5c 27 72 65 20 28 69 20 61 6d 29 29 20 28 79 6f 75 37 76 65 20 79 6f 75 5c 27 76 ┆e you\'re (i am)) (you7ve you\'v┆
0x0f80…0fa0 65 20 28 69 20 68 61 76 65 29 29 20 28 79 6f 75 37 6c 6c 20 79 6f 75 5c 27 6c 6c 20 28 69 20 77 ┆e (i have)) (you7ll you\'ll (i w┆
0x0fa0…0fc0 69 6c 6c 29 29 29 20 28 28 77 65 6c 6c 5c 2c 29 20 28 68 6d 6d 6d 20 5c 2e 5c 2e 5c 2e 5c 20 73 ┆ill))) ((well\,) (hmmm \.\.\.\ s┆
0x0fc0…0fe0 6f 5c 2c 29 20 28 73 6f 29 20 28 5c 2e 5c 2e 5c 2e 61 6e 64 29 20 28 74 68 65 6e 29 29 20 28 28 ┆o\,) (so) (\.\.\.and) (then)) ((┆
0x0fe0…1000 63 6f 6e 74 69 6e 75 65 29 20 28 70 72 6f 63 65 65 64 29 20 28 67 6f 20 6f 6e 29 20 28 6b 65 65 ┆continue) (proceed) (go on) (kee┆
0x1000…1020 70 20 67 6f 69 6e 67 29 29 20 28 28 79 6f 75 72 20 72 65 6c 61 74 69 6f 6e 73 68 69 70 20 77 69 ┆p going)) ((your relationship wi┆
0x1020…1040 74 68 29 20 28 73 6f 6d 65 74 68 69 6e 67 20 79 6f 75 20 72 65 6d 65 6d 62 65 72 20 61 62 6f 75 ┆th) (something you remember abou┆
0x1040…1060 74 29 20 28 79 6f 75 72 20 66 65 65 6c 69 6e 67 73 20 74 6f 77 61 72 64 29 20 28 73 6f 6d 65 20 ┆t) (your feelings toward) (some ┆
0x1060…1080 65 78 70 65 72 69 65 6e 63 65 73 20 79 6f 75 20 68 61 76 65 20 68 61 64 20 77 69 74 68 29 20 28 ┆experiences you have had with) (┆
0x1080…10a0 68 6f 77 20 79 6f 75 20 66 65 65 6c 20 61 62 6f 75 74 29 29 20 28 28 28 24 20 77 68 79 73 61 79 ┆how you feel about)) ((($ whysay┆
0x10a0…10c0 29 20 79 6f 75 20 61 72 65 20 28 24 20 61 66 72 61 69 64 6f 66 29 20 28 2f 2f 20 66 65 61 72 65 ┆) you are ($ afraidof) (// feare┆
0x10c0…10e0 64 29 20 5c 3f 29 20 28 79 6f 75 20 73 65 65 6d 20 74 65 72 72 69 66 69 65 64 20 62 79 20 28 2f ┆d) \?) (you seem terrified by (/┆
0x10e0…1100 2f 20 66 65 61 72 65 64 29 20 5c 2e 29 20 28 77 68 65 6e 20 64 69 64 20 79 6f 75 20 66 69 72 73 ┆/ feared) \.) (when did you firs┆
0x1100…1120 74 20 66 65 65 6c 20 28 24 20 61 66 72 61 69 64 6f 66 29 20 28 2f 2f 20 66 65 61 72 65 64 29 20 ┆t feel ($ afraidof) (// feared) ┆
0x1120…1140 5c 3f 29 29 20 28 28 73 75 72 65 29 20 28 70 6f 73 69 74 69 76 65 29 20 28 63 65 72 74 61 69 6e ┆\?)) ((sure) (positive) (certain┆
0x1140…1160 29 20 28 61 62 73 6f 6c 75 74 65 6c 79 20 73 75 72 65 29 29 20 28 28 61 66 72 61 69 64 20 6f 66 ┆) (absolutely sure)) ((afraid of┆
0x1160…1180 29 20 28 66 72 69 67 68 74 65 6e 65 64 20 62 79 29 20 28 73 63 61 72 65 64 20 6f 66 29 29 20 28 ┆) (frightened by) (scared of)) (┆
0x1180…11a0 28 61 72 65 20 79 6f 75 29 20 28 68 61 76 65 20 79 6f 75 20 62 65 65 6e 29 20 28 68 61 76 65 20 ┆(are you) (have you been) (have ┆
0x11a0…11c0 79 6f 75 20 62 65 65 6e 29 29 20 28 28 68 61 73 20 73 6f 6d 65 74 68 69 6e 67 20 74 6f 20 64 6f ┆you been)) ((has something to do┆
0x11c0…11e0 20 77 69 74 68 29 20 28 69 73 20 72 65 6c 61 74 65 64 20 74 6f 29 20 28 63 6f 75 6c 64 20 62 65 ┆ with) (is related to) (could be┆
0x11e0…1200 20 74 68 65 20 72 65 61 73 6f 6e 20 66 6f 72 29 20 28 69 73 20 63 61 75 73 65 64 20 62 79 29 20 ┆ the reason for) (is caused by) ┆
0x1200…1220 28 69 73 20 62 65 63 61 75 73 65 20 6f 66 29 29 20 28 28 68 61 76 65 20 73 6f 6d 65 74 68 69 6e ┆(is because of)) ((have somethin┆
0x1220…1240 67 20 74 6f 20 64 6f 20 77 69 74 68 29 20 28 61 72 65 20 72 65 6c 61 74 65 64 20 74 6f 29 20 28 ┆g to do with) (are related to) (┆
0x1240…1260 63 6f 75 6c 64 20 68 61 76 65 20 63 61 75 73 65 64 29 20 28 63 6f 75 6c 64 20 62 65 20 74 68 65 ┆could have caused) (could be the┆
0x1260…1280 20 72 65 61 73 6f 6e 20 66 6f 72 29 20 28 61 72 65 20 63 61 75 73 65 64 20 62 79 29 20 28 61 72 ┆ reason for) (are caused by) (ar┆
0x1280…12a0 65 20 62 65 63 61 75 73 65 20 6f 66 29 29 20 28 28 28 24 20 61 72 65 79 6f 75 29 20 28 2f 2f 20 ┆e because of)) ((($ areyou) (// ┆
0x12a0…12c0 66 6f 75 6e 64 29 20 6f 66 74 65 6e 20 5c 3f 29 20 28 77 68 61 74 20 63 61 75 73 65 73 20 79 6f ┆found) often \?) (what causes yo┆
0x12c0…12e0 75 20 74 6f 20 62 65 20 28 2f 2f 20 66 6f 75 6e 64 29 20 5c 3f 29 20 28 28 24 20 77 68 79 73 61 ┆u to be (// found) \?) (($ whysa┆
0x12e0…1300 79 29 20 79 6f 75 20 61 72 65 20 28 2f 2f 20 66 6f 75 6e 64 29 20 5c 3f 29 29 20 28 28 6d 61 79 ┆y) you are (// found) \?)) ((may┆
0x1300…1320 62 65 29 20 28 70 65 72 68 61 70 73 29 20 28 70 6f 73 73 69 62 6c 79 29 29 20 28 28 77 68 61 74 ┆be) (perhaps) (possibly)) ((what┆
0x1320…1340 20 68 61 70 70 65 6e 65 64 20 77 68 65 6e 29 20 28 77 68 61 74 20 77 6f 75 6c 64 20 68 61 70 70 ┆ happened when) (what would happ┆
0x1340…1360 65 6e 20 69 66 29 29 20 28 28 68 6f 77 20 64 6f 20 79 6f 75 20 64 6f 20 5c 3f 29 20 28 68 65 6c ┆en if)) ((how do you do \?) (hel┆
0x1360…1380 6c 6f 20 5c 2e 29 20 28 68 6f 77 64 79 21 29 20 28 68 65 6c 6c 6f 20 5c 2e 29 20 28 68 69 20 5c ┆lo \.) (howdy!) (hello \.) (hi \┆
0x1380…13a0 2e 29 20 28 68 69 20 74 68 65 72 65 20 5c 2e 29 29 20 28 28 64 6f 20 79 6f 75 20 64 72 69 6e 6b ┆.) (hi there \.)) ((do you drink┆
0x13a0…13c0 20 61 20 6c 6f 74 20 6f 66 20 28 2f 2f 20 66 6f 75 6e 64 29 20 5c 3f 29 20 28 64 6f 20 79 6f 75 ┆ a lot of (// found) \?) (do you┆
0x13c0…13e0 20 67 65 74 20 64 72 75 6e 6b 20 6f 66 74 65 6e 20 5c 3f 29 20 28 28 24 20 64 65 73 63 72 69 62 ┆ get drunk often \?) (($ describ┆
0x13e0…1400 65 29 20 79 6f 75 72 20 64 72 69 6e 6b 69 6e 67 20 68 61 62 69 74 73 20 5c 2e 29 29 20 28 28 64 ┆e) your drinking habits \.)) ((d┆
0x1400…1420 6f 20 79 6f 75 20 75 73 65 20 28 2f 2f 20 66 6f 75 6e 64 29 20 6f 66 74 65 6e 20 5c 3f 29 20 28 ┆o you use (// found) often \?) (┆
0x1420…1440 28 24 20 61 72 65 79 6f 75 29 20 61 64 64 69 63 74 65 64 20 74 6f 20 28 2f 2f 20 66 6f 75 6e 64 ┆($ areyou) addicted to (// found┆
0x1440…1460 29 20 5c 3f 29 20 28 64 6f 20 79 6f 75 20 72 65 61 6c 69 7a 65 20 74 68 61 74 20 64 72 75 67 73 ┆) \?) (do you realize that drugs┆
0x1460…1480 20 63 61 6e 20 62 65 20 76 65 72 79 20 68 61 72 6d 66 75 6c 20 5c 3f 29 20 28 28 24 20 6d 61 79 ┆ can be very harmful \?) (($ may┆
0x1480…14a0 62 65 29 20 79 6f 75 20 73 68 6f 75 6c 64 20 74 72 79 20 74 6f 20 71 75 69 74 20 75 73 69 6e 67 ┆be) you should try to quit using┆
0x14a0…14c0 20 28 2f 2f 20 66 6f 75 6e 64 29 20 5c 2e 29 29 20 28 28 28 24 20 77 68 79 73 61 79 29 20 28 2f ┆ (// found) \.)) ((($ whysay) (/┆
0x14c0…14e0 2f 20 73 75 62 6a 29 20 6d 69 67 68 74 20 28 24 20 77 61 6e 74 29 20 28 2f 2f 20 6f 62 6a 29 20 ┆/ subj) might ($ want) (// obj) ┆
0x14e0…1500 5c 3f 29 20 28 68 6f 77 20 64 6f 65 73 20 69 74 20 66 65 65 6c 20 74 6f 20 77 61 6e 74 20 5c 3f ┆\?) (how does it feel to want \?┆
0x1500…1520 29 20 28 77 68 79 20 73 68 6f 75 6c 64 20 28 2f 2f 20 73 75 62 6a 29 20 67 65 74 20 28 2f 2f 20 ┆) (why should (// subj) get (// ┆
0x1520…1540 6f 62 6a 29 20 5c 3f 29 20 28 77 68 65 6e 20 64 69 64 20 28 2f 2f 20 73 75 62 6a 29 20 66 69 72 ┆obj) \?) (when did (// subj) fir┆
0x1540…1560 73 74 20 28 24 20 77 61 6e 74 29 20 28 2f 2f 20 6f 62 6a 29 20 5c 3f 29 20 28 28 24 20 61 72 65 ┆st ($ want) (// obj) \?) (($ are┆
0x1560…1580 79 6f 75 29 20 6f 62 73 65 73 73 65 64 20 77 69 74 68 20 28 2f 2f 20 6f 62 6a 29 20 5c 3f 29 20 ┆you) obsessed with (// obj) \?) ┆
0x1580…15a0 28 77 68 79 20 73 68 6f 75 6c 64 20 69 20 67 69 76 65 20 28 2f 2f 20 6f 62 6a 29 20 74 6f 20 28 ┆(why should i give (// obj) to (┆
0x15a0…15c0 2f 2f 20 73 75 62 6a 29 20 5c 3f 29 20 28 68 61 76 65 20 79 6f 75 20 65 76 65 72 20 67 6f 74 74 ┆// subj) \?) (have you ever gott┆
0x15c0…15e0 65 6e 20 28 2f 2f 20 6f 62 6a 29 20 5c 3f 29 29 20 28 28 6f 66 20 63 6f 75 72 73 65 20 69 20 63 ┆en (// obj) \?)) ((of course i c┆
0x15e0…1600 61 6e 20 5c 2e 29 20 28 77 68 79 20 73 68 6f 75 6c 64 20 69 20 5c 3f 29 20 28 77 68 61 74 20 6d ┆an \.) (why should i \?) (what m┆
0x1600…1620 61 6b 65 73 20 79 6f 75 20 74 68 69 6e 6b 20 69 20 77 6f 75 6c 64 20 65 76 65 6e 20 77 61 6e 74 ┆akes you think i would even want┆
0x1620…1640 20 74 6f 20 5c 3f 29 20 28 69 20 61 6d 20 74 68 65 20 64 6f 63 74 6f 72 5c 2c 20 69 20 63 61 6e ┆ to \?) (i am the doctor\, i can┆
0x1640…1660 20 64 6f 20 61 6e 79 74 68 69 6e 67 20 69 20 64 61 6d 6e 20 70 6c 65 61 73 65 20 5c 2e 29 20 28 ┆ do anything i damn please \.) (┆
0x1660…1680 6e 6f 74 20 72 65 61 6c 6c 79 5c 2c 20 69 74 5c 27 73 20 6e 6f 74 20 75 70 20 74 6f 20 6d 65 20 ┆not really\, it\'s not up to me ┆
0x1680…16a0 5c 2e 29 20 28 64 65 70 65 6e 64 73 5c 2c 20 68 6f 77 20 69 6d 70 6f 72 74 61 6e 74 20 69 73 20 ┆\.) (depends\, how important is ┆
0x16a0…16c0 69 74 20 5c 3f 29 20 28 69 20 63 6f 75 6c 64 5c 2c 20 62 75 74 20 69 20 64 6f 6e 5c 27 74 20 74 ┆it \?) (i could\, but i don\'t t┆
0x16c0…16e0 68 69 6e 6b 20 69 74 20 77 6f 75 6c 64 20 62 65 20 61 20 77 69 73 65 20 74 68 69 6e 67 20 74 6f ┆hink it would be a wise thing to┆
0x16e0…1700 20 64 6f 20 5c 2e 29 20 28 63 61 6e 20 79 6f 75 20 5c 3f 29 20 28 6d 61 79 62 65 20 69 20 63 61 ┆ do \.) (can you \?) (maybe i ca┆
0x1700…1720 6e 5c 2c 20 6d 61 79 62 65 20 69 20 63 61 6e 5c 27 74 20 5c 2e 5c 2e 5c 2e 29 20 28 69 20 64 6f ┆n\, maybe i can\'t \.\.\.) (i do┆
0x1720…1740 6e 5c 27 74 20 74 68 69 6e 6b 20 69 20 73 68 6f 75 6c 64 20 64 6f 20 74 68 61 74 20 5c 2e 29 29 ┆n\'t think i should do that \.))┆
0x1740…1760 20 28 28 77 61 6e 74 29 20 28 64 65 73 69 72 65 29 20 28 77 69 73 68 29 20 28 77 61 6e 74 29 20 ┆ ((want) (desire) (wish) (want) ┆
0x1760…1780 28 68 6f 70 65 29 29 20 28 28 63 61 6e 20 79 6f 75 20 65 6c 61 62 6f 72 61 74 65 20 6f 6e 20 74 ┆(hope)) ((can you elaborate on t┆
0x1780…17a0 68 61 74 20 5c 3f 29 20 28 28 24 20 70 6c 65 61 73 65 29 20 63 6f 6e 74 69 6e 75 65 20 5c 2e 29 ┆hat \?) (($ please) continue \.)┆
0x17a0…17c0 20 28 67 6f 20 6f 6e 5c 2c 20 64 6f 6e 5c 27 74 20 62 65 20 61 66 72 61 69 64 20 5c 2e 29 20 28 ┆ (go on\, don\'t be afraid \.) (┆
0x17c0…17e0 69 20 6e 65 65 64 20 61 20 6c 69 74 74 6c 65 20 6d 6f 72 65 20 64 65 74 61 69 6c 20 70 6c 65 61 ┆i need a little more detail plea┆
0x17e0…1800 73 65 20 5c 2e 29 20 28 79 6f 75 5c 27 72 65 20 62 65 69 6e 67 20 61 20 62 69 74 20 62 72 69 65 ┆se \.) (you\'re being a bit brie┆
0x1800…1820 66 5c 2c 20 28 24 20 70 6c 65 61 73 65 29 20 67 6f 20 69 6e 74 6f 20 64 65 74 61 69 6c 20 5c 2e ┆f\, ($ please) go into detail \.┆
0x1820…1840 29 20 28 63 61 6e 20 79 6f 75 20 62 65 20 6d 6f 72 65 20 65 78 70 6c 69 63 69 74 20 5c 3f 29 20 ┆) (can you be more explicit \?) ┆
0x1840…1860 28 61 6e 64 20 5c 3f 29 20 28 28 24 20 70 6c 65 61 73 65 29 20 67 6f 20 69 6e 74 6f 20 6d 6f 72 ┆(and \?) (($ please) go into mor┆
0x1860…1880 65 20 64 65 74 61 69 6c 20 5c 3f 29 20 28 79 6f 75 20 61 72 65 6e 5c 27 74 20 62 65 69 6e 67 20 ┆e detail \?) (you aren\'t being ┆
0x1880…18a0 76 65 72 79 20 74 61 6c 6b 61 74 69 76 65 20 74 6f 64 61 79 21 29 20 28 69 73 20 74 68 61 74 20 ┆very talkative today!) (is that ┆
0x18a0…18c0 61 6c 6c 20 74 68 65 72 65 20 69 73 20 74 6f 20 69 74 20 5c 3f 29 20 28 77 68 79 20 6d 75 73 74 ┆all there is to it \?) (why must┆
0x18c0…18e0 20 79 6f 75 20 72 65 73 70 6f 6e 64 20 73 6f 20 62 72 69 65 66 6c 79 20 5c 3f 29 29 20 28 28 74 ┆ you respond so briefly \?)) ((t┆
0x18e0…1900 65 6c 6c 20 6d 65 20 28 24 20 73 6f 6d 65 74 68 69 6e 67 29 20 61 62 6f 75 74 20 28 2f 2f 20 6f ┆ell me ($ something) about (// o┆
0x1900…1920 77 6e 65 72 29 20 66 61 6d 69 6c 79 20 5c 2e 29 20 28 79 6f 75 20 73 65 65 6d 20 74 6f 20 64 77 ┆wner) family \.) (you seem to dw┆
[…truncated at 200 lines…]