| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 3b 3b 3b 20 63 6f 6d 70 69 6c 65 64 20 62 79 20 6a 69 6d 62 40 77 6f 6f 6b 75 6d 7a 2e 67 6e 75 | ;;;.compiled.by.jimb@wookumz.gnu |
| 0020 | 2e 61 69 2e 6d 69 74 2e 65 64 75 20 6f 6e 20 54 75 65 20 4a 75 6c 20 32 31 20 30 31 3a 32 37 3a | .ai.mit.edu.on.Tue.Jul.21.01:27: |
| 0040 | 31 31 20 31 39 39 32 0a 3b 3b 3b 20 66 72 6f 6d 20 66 69 6c 65 20 2f 68 6f 6d 65 2f 67 64 2f 67 | 11.1992.;;;.from.file./home/gd/g |
| 0060 | 6e 75 2f 65 6d 61 63 73 2d 31 38 2e 35 38 2f 6c 69 73 70 2f 63 6c 2e 65 6c 0a 3b 3b 3b 20 65 6d | nu/emacs-18.58/lisp/cl.el.;;;.em |
| 0080 | 61 63 73 20 76 65 72 73 69 6f 6e 20 31 38 2e 35 38 2e 31 2e 0a 3b 3b 3b 20 62 79 74 65 63 6f 6d | acs.version.18.58.1..;;;.bytecom |
| 00a0 | 70 20 76 65 72 73 69 6f 6e 20 32 2e 30 31 20 62 65 74 61 3b 20 31 33 2d 61 75 67 2d 39 31 2e 0a | p.version.2.01.beta;.13-aug-91.. |
| 00c0 | 3b 3b 3b 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 69 73 20 6f 6e 3b 20 63 6f 6d 70 69 6c 65 64 | ;;;.optimization.is.on;.compiled |
| 00e0 | 20 77 69 74 68 20 65 6d 61 63 73 31 38 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 2e 0a 0a 28 70 | .with.emacs18.compatibility...(p |
| 0100 | 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 63 6c 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 70 73 65 | rovide.(quote.cl)).(defmacro.pse |
| 0120 | 74 71 20 28 26 72 65 73 74 20 70 61 69 72 73 29 20 22 5c 0a 28 70 73 65 74 71 20 7b 56 41 52 49 | tq.(&rest.pairs)."\.(psetq.{VARI |
| 0140 | 41 42 4c 45 20 56 41 4c 55 45 7d 2e 2e 2e 29 3a 20 49 6e 20 70 61 72 61 6c 6c 65 6c 2c 20 73 65 | ABLE.VALUE}...):.In.parallel,.se |
| 0160 | 74 20 65 61 63 68 20 56 41 52 49 41 42 4c 45 20 74 6f 20 69 74 73 20 56 41 4c 55 45 2e 0a 41 6c | t.each.VARIABLE.to.its.VALUE..Al |
| 0180 | 6c 20 74 68 65 20 56 41 4c 55 45 73 20 61 72 65 20 65 76 61 6c 75 61 74 65 64 2c 20 61 6e 64 20 | l.the.VALUEs.are.evaluated,.and. |
| 01a0 | 74 68 65 6e 20 61 6c 6c 20 74 68 65 20 56 41 52 49 41 42 4c 45 73 20 61 72 65 20 73 65 74 2e 0a | then.all.the.VARIABLEs.are.set.. |
| 01c0 | 41 73 69 64 65 20 66 72 6f 6d 20 6f 72 64 65 72 20 6f 66 20 65 76 61 6c 75 61 74 69 6f 6e 2c 20 | Aside.from.order.of.evaluation,. |
| 01e0 | 74 68 69 73 20 69 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 60 73 65 74 71 27 2e 22 20 28 62 79 | this.is.the.same.as.`setq'.".(by |
| 0200 | 74 65 2d 63 6f 64 65 20 22 08 47 c1 89 89 89 89 89 1a 1b 1c 1d 1e 06 1e 07 1e 08 c9 0e 08 ca 5c | te-code.".G....................\ |
| 0220 | 22 cb 55 84 20 00 cc cd 21 88 08 c1 1e 0e 89 1e 0f 83 56 00 0e 0f 40 89 16 0e 39 84 3c 00 cc d0 | ".U.....!.........V...@...9.<... |
| 0240 | d1 0e 0e 21 5c 22 88 0e 0e 0e 07 42 16 07 0e 0f 41 40 0e 06 42 16 06 0e 0f 41 41 89 16 0f 84 2a | ...!\".....B....A@..B....AA....* |
| 0260 | 00 2a 0e 06 c1 89 1e 12 1e 13 89 1e 0f 83 83 00 0e 0f 40 16 13 d4 20 89 16 12 0e 13 44 0d 42 15 | .*................@.........D.B. |
| 0280 | 0e 12 0c 42 14 0e 0f 41 89 16 0f 84 65 00 2b d5 0c 21 14 0e 07 0c 1e 16 1e 17 0e 17 83 ab 00 0e | ...B...A....e.+..!.............. |
| 02a0 | 17 40 0e 16 40 0b 42 42 13 0e 17 41 16 17 0e 16 41 16 16 82 8f 00 2a d8 0d d9 0b 42 c1 46 2e 07 | .@..@.BB...A....A.....*....B.F.. |
| 02c0 | 87 22 20 5b 70 61 69 72 73 20 6e 69 6c 20 69 20 61 73 73 69 67 6e 6d 65 6e 74 73 20 6e 65 77 73 | .".[pairs.nil.i.assignments.news |
| 02e0 | 79 6d 73 20 62 69 6e 64 69 6e 67 73 20 66 6f 72 6d 73 20 73 79 6d 62 6f 6c 73 20 6e 66 6f 72 6d | yms.bindings.forms.symbols.nform |
| 0300 | 73 20 25 20 32 20 30 20 65 72 72 6f 72 20 22 4f 64 64 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 | s.%.2.0.error."Odd.number.of.arg |
| 0320 | 75 6d 65 6e 74 73 20 74 6f 20 60 70 73 65 74 71 27 22 20 76 61 72 20 70 74 72 20 22 60 70 73 65 | uments.to.`psetq'".var.ptr."`pse |
| 0340 | 74 71 27 20 65 78 70 65 63 74 65 64 20 61 20 73 79 6d 62 6f 6c 2c 20 66 6f 75 6e 64 20 27 25 73 | tq'.expected.a.symbol,.found.'%s |
| 0360 | 27 2e 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6e 65 77 73 79 6d 20 66 6f 72 6d 20 | '.".prin1-to-string.newsym.form. |
| 0380 | 67 65 6e 73 79 6d 20 6e 72 65 76 65 72 73 65 20 70 74 72 32 20 70 74 72 31 20 6c 65 74 20 73 65 | gensym.nreverse.ptr2.ptr1.let.se |
| 03a0 | 74 71 5d 20 38 29 29 0a 28 64 65 66 75 6e 20 70 61 69 72 2d 77 69 74 68 2d 6e 65 77 73 79 6d 73 | tq].8)).(defun.pair-with-newsyms |
| 03c0 | 20 28 6f 6c 64 66 6f 72 6d 73 29 20 22 5c 0a 50 41 49 52 2d 57 49 54 48 2d 4e 45 57 53 59 4d 53 | .(oldforms)."\.PAIR-WITH-NEWSYMS |
| 03e0 | 20 4f 4c 44 46 4f 52 4d 53 0a 54 68 65 20 74 6f 70 2d 6c 65 76 65 6c 20 63 6f 6d 70 6f 6e 65 6e | .OLDFORMS.The.top-level.componen |
| 0400 | 74 73 20 6f 66 20 74 68 65 20 6c 69 73 74 20 6f 6c 64 66 6f 72 6d 73 20 61 72 65 20 70 61 69 72 | ts.of.the.list.oldforms.are.pair |
| 0420 | 65 64 20 77 69 74 68 20 66 72 65 73 68 0a 73 79 6d 62 6f 6c 73 2c 20 74 68 65 20 70 61 69 72 69 | ed.with.fresh.symbols,.the.pairi |
| 0440 | 6e 67 73 20 6c 69 73 74 20 61 6e 64 20 74 68 65 20 6e 65 77 73 79 6d 73 20 6c 69 73 74 20 61 72 | ngs.list.and.the.newsyms.list.ar |
| 0460 | 65 20 72 65 74 75 72 6e 65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c1 89 1a 1b 1c c5 | e.returned.".(byte-code."....... |
| 0480 | 0c 21 84 27 00 c6 20 89 1e 07 0c 40 44 0b 42 13 0e 07 5c 6e 42 12 29 0c 41 89 1e 08 14 29 82 06 | .!.'.......@D.B...\nB.).A....).. |
| 04a0 | 00 c9 ca 0b 21 ca 5c 6e 21 5c 22 2b 87 22 20 5b 6f 6c 64 66 6f 72 6d 73 20 6e 69 6c 20 6e 65 77 | ....!.\n!\"+.".[oldforms.nil.new |
| 04c0 | 73 79 6d 73 20 62 69 6e 64 69 6e 67 73 20 70 74 72 20 65 6e 64 70 20 67 65 6e 74 65 6d 70 20 6e | syms.bindings.ptr.endp.gentemp.n |
| 04e0 | 65 77 73 79 6d 20 47 24 24 5f 35 30 30 20 76 61 6c 75 65 73 20 6e 72 65 76 65 72 73 65 5d 20 35 | ewsym.G$$_500.values.nreverse].5 |
| 0500 | 29 29 0a 28 64 65 66 75 6e 20 7a 69 70 2d 6c 69 73 74 73 20 28 65 76 65 6e 73 20 6f 64 64 73 29 | )).(defun.zip-lists.(evens.odds) |
| 0520 | 20 22 5c 0a 4d 65 72 67 65 20 74 77 6f 20 6c 69 73 74 73 20 45 56 45 4e 53 20 61 6e 64 20 4f 44 | ."\.Merge.two.lists.EVENS.and.OD |
| 0540 | 44 53 2c 20 74 61 6b 69 6e 67 20 65 6c 74 73 20 66 72 6f 6d 20 65 61 63 68 20 6c 69 73 74 20 61 | DS,.taking.elts.from.each.list.a |
| 0560 | 6c 74 65 72 6e 61 74 69 6e 67 6c 79 2e 0a 45 56 45 4e 53 20 61 6e 64 20 4f 44 44 53 20 61 72 65 | lternatingly..EVENS.and.ODDS.are |
| 0580 | 20 74 77 6f 20 6c 69 73 74 73 2e 20 20 5a 49 50 2d 4c 49 53 54 53 20 63 6f 6e 73 74 72 75 63 74 | .two.lists...ZIP-LISTS.construct |
| 05a0 | 73 20 61 20 6e 65 77 20 6c 69 73 74 2c 20 77 68 6f 73 65 0a 65 76 65 6e 20 6e 75 6d 62 65 72 65 | s.a.new.list,.whose.even.numbere |
| 05c0 | 64 20 65 6c 65 6d 65 6e 74 73 20 28 30 2c 32 2c 2e 2e 2e 29 20 63 6f 6d 65 20 66 72 6f 6d 20 45 | d.elements.(0,2,...).come.from.E |
| 05e0 | 56 45 4e 53 20 61 6e 64 20 77 68 6f 73 65 20 6f 64 64 0a 6e 75 6d 62 65 72 65 64 20 65 6c 65 6d | VENS.and.whose.odd.numbered.elem |
| 0600 | 65 6e 74 73 20 28 31 2c 33 2c 2e 2e 2e 29 20 63 6f 6d 65 20 66 72 6f 6d 20 4f 44 44 53 2e 20 0a | ents.(1,3,...).come.from.ODDS... |
| 0620 | 54 68 65 20 63 6f 6e 73 74 72 75 63 74 69 6f 6e 20 73 74 6f 70 73 20 77 68 65 6e 20 74 68 65 20 | The.construction.stops.when.the. |
| 0640 | 73 68 6f 72 74 65 72 20 6c 69 73 74 20 69 73 20 65 78 68 61 75 73 74 65 64 2e 22 20 28 62 79 74 | shorter.list.is.exhausted.".(byt |
| 0660 | 65 2d 63 6f 64 65 20 22 08 19 5c 6e 1b 09 40 1c 0b 40 1d c6 1e 07 c8 09 21 84 30 00 c8 0b 21 84 | e-code."..\n..@..@......!.0...!. |
| 0680 | 30 00 0d 0c 0e 07 42 42 16 07 09 41 11 0b 41 13 09 40 14 0b 40 15 82 0d 00 c9 0e 07 21 2d 87 22 | 0.....BB...A..A..@..@.......!-." |
| 06a0 | 20 5b 65 76 65 6e 73 20 70 30 20 6f 64 64 73 20 70 31 20 65 76 65 6e 20 6f 64 64 20 6e 69 6c 20 | .[evens.p0.odds.p1.even.odd.nil. |
| 06c0 | 72 65 73 75 6c 74 20 65 6e 64 70 20 6e 72 65 76 65 72 73 65 5d 20 33 29 29 0a 28 64 65 66 75 6e | result.endp.nreverse].3)).(defun |
| 06e0 | 20 75 6e 7a 69 70 2d 6c 69 73 74 20 28 6c 69 73 74 29 20 22 5c 0a 45 78 74 72 61 63 74 20 65 76 | .unzip-list.(list)."\.Extract.ev |
| 0700 | 65 6e 20 61 6e 64 20 6f 64 64 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 4c 49 53 54 20 69 6e 74 6f | en.and.odd.elements.of.LIST.into |
| 0720 | 20 74 77 6f 20 73 65 70 61 72 61 74 65 20 6c 69 73 74 73 2e 0a 54 68 65 20 61 72 67 75 6d 65 6e | .two.separate.lists..The.argumen |
| 0740 | 74 20 4c 49 53 54 20 69 73 20 73 65 70 61 72 61 74 65 64 20 69 6e 20 74 77 6f 20 73 74 72 61 6e | t.LIST.is.separated.in.two.stran |
| 0760 | 64 73 2c 20 74 68 65 20 65 76 65 6e 20 61 6e 64 20 74 68 65 20 6f 64 64 0a 6e 75 6d 62 65 72 65 | ds,.the.even.and.the.odd.numbere |
| 0780 | 64 20 65 6c 65 6d 65 6e 74 73 2e 20 20 4e 75 6d 62 65 72 69 6e 67 20 73 74 61 72 74 73 20 77 69 | d.elements...Numbering.starts.wi |
| 07a0 | 74 68 20 30 2c 20 73 6f 20 74 68 65 20 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 0a 62 65 6c 6f 6e | th.0,.so.the.first.element.belon |
| 07c0 | 67 73 20 69 6e 20 45 56 45 4e 53 2e 20 4e 6f 20 63 68 65 63 6b 20 69 73 20 6d 61 64 65 20 74 68 | gs.in.EVENS..No.check.is.made.th |
| 07e0 | 61 74 20 74 68 65 72 65 20 69 73 20 61 6e 20 65 76 65 6e 20 6e 75 6d 62 65 72 20 6f 66 0a 65 6c | at.there.is.an.even.number.of.el |
| 0800 | 65 6d 65 6e 74 73 20 74 6f 20 73 74 61 72 74 20 77 69 74 68 2e 22 20 28 62 79 74 65 2d 63 6f 64 | ements.to.start.with.".(byte-cod |
| 0820 | 65 20 22 08 89 19 40 1a c3 09 21 1c c5 1e 06 c5 1e 07 c8 09 21 84 2f 00 5c 6e 0e 06 42 16 06 0c | e."...@...!.........!./.\n..B... |
| 0840 | 0e 07 42 16 07 c9 09 21 89 11 40 12 c3 09 21 14 82 0f 00 ca cb 0e 06 21 cb 0e 07 21 5c 22 2d 87 | ..B....!..@...!........!...!\"-. |
| 0860 | 22 20 5b 6c 69 73 74 20 70 74 72 20 74 68 69 73 20 63 61 64 72 20 6e 65 78 74 20 6e 69 6c 20 65 | ".[list.ptr.this.cadr.next.nil.e |
| 0880 | 76 65 6e 73 20 6f 64 64 73 20 65 6e 64 70 20 63 64 64 72 20 76 61 6c 75 65 73 20 6e 72 65 76 65 | vens.odds.endp.cddr.values.nreve |
| 08a0 | 72 73 65 5d 20 35 29 29 0a 28 64 65 66 75 6e 20 72 65 61 73 73 65 6d 62 6c 65 2d 61 72 67 73 6c | rse].5)).(defun.reassemble-argsl |
| 08c0 | 69 73 74 73 20 28 61 72 67 73 6c 69 73 74 73 29 20 22 5c 0a 28 72 65 61 73 73 65 6d 62 6c 65 2d | ists.(argslists)."\.(reassemble- |
| 08e0 | 61 72 67 73 6c 69 73 74 73 20 41 52 47 53 4c 49 53 54 53 29 2e 0a 41 52 47 53 4c 49 53 54 53 20 | argslists.ARGSLISTS)..ARGSLISTS. |
| 0900 | 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 65 71 75 65 6e 63 65 73 2e 20 20 52 65 74 75 72 6e 20 | is.a.list.of.sequences...Return. |
| 0920 | 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 2c 20 74 68 65 20 66 69 72 73 74 0a 73 75 62 6c 69 | a.list.of.lists,.the.first.subli |
| 0940 | 73 74 20 62 65 69 6e 67 20 61 6c 6c 20 74 68 65 20 65 6e 74 72 69 65 73 20 63 6f 6d 69 6e 67 20 | st.being.all.the.entries.coming. |
| 0960 | 66 72 6f 6d 20 45 4c 54 20 30 20 6f 66 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 0a 73 75 62 6c 69 | from.ELT.0.of.the.original.subli |
| 0980 | 73 74 73 2c 20 74 68 65 20 6e 65 78 74 20 74 68 6f 73 65 20 63 6f 6d 69 6e 67 20 66 72 6f 6d 20 | sts,.the.next.those.coming.from. |
| 09a0 | 45 4c 54 20 31 20 61 6e 64 20 73 6f 20 6f 6e 2c 20 75 6e 74 69 6c 20 74 68 65 0a 73 68 6f 72 74 | ELT.1.and.so.on,.until.the.short |
| 09c0 | 65 73 74 20 6c 69 73 74 20 69 73 20 65 78 68 61 75 73 74 65 64 2e 22 20 28 62 79 74 65 2d 63 6f | est.list.is.exhausted.".(byte-co |
| 09e0 | 64 65 20 22 c0 c1 c2 c3 0c 5c 22 5c 22 1d c6 1e 07 0d 1e 08 c9 1e 5c 6e c9 0e 08 59 84 2b 00 c2 | de.".....\"\".........\n...Y.+.. |
| 0a00 | cb 0c 5c 22 0e 07 42 16 07 0e 5c 6e cc 5c 5c 89 16 5c 6e 82 12 00 cd 0e 07 21 2c 87 22 20 5b 61 | ..\"..B...\n.\\..\n......!,.".[a |
| 0a20 | 70 70 6c 79 20 6d 69 6e 20 6d 61 70 63 61 72 20 6c 65 6e 67 74 68 20 61 72 67 73 6c 69 73 74 73 | pply.min.mapcar.length.argslists |
| 0a40 | 20 6d 69 6e 6c 65 6e 20 6e 69 6c 20 72 65 73 75 6c 74 20 54 24 24 5f 30 20 30 20 69 20 28 6c 61 | .minlen.nil.result.T$$_0.0.i.(la |
| 0a60 | 6d 62 64 61 20 28 73 75 62 6c 69 73 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 5c 6e 5c | mbda.(sublist).(byte-code."..\n\ |
| 0a80 | 22 87 22 20 5b 65 6c 74 20 73 75 62 6c 69 73 74 20 69 5d 20 33 29 29 20 31 20 6e 72 65 76 65 72 | ".".[elt.sublist.i].3)).1.nrever |
| 0aa0 | 73 65 5d 20 36 29 29 0a 28 64 65 66 75 6e 20 62 75 69 6c 64 2d 6b 6c 69 73 74 20 28 61 72 67 73 | se].6)).(defun.build-klist.(args |
| 0ac0 | 6c 69 73 74 20 61 63 63 65 70 74 61 62 6c 65 29 20 22 5c 0a 44 65 63 6f 64 65 20 61 20 6b 65 79 | list.acceptable)."\.Decode.a.key |
| 0ae0 | 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 41 52 47 53 4c 49 53 54 20 66 6f 72 20 | word.argument.list.ARGSLIST.for. |
| 0b00 | 6b 65 79 77 6f 72 64 73 20 69 6e 20 41 43 43 45 50 54 41 42 4c 45 2e 0a 41 52 47 53 4c 49 53 54 | keywords.in.ACCEPTABLE..ARGSLIST |
| 0b20 | 20 69 73 20 61 20 6c 69 73 74 2c 20 70 72 65 73 75 6d 61 62 6c 79 20 74 68 65 20 26 72 65 73 74 | .is.a.list,.presumably.the.&rest |
| 0b40 | 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 61 20 63 61 6c 6c 2c 20 77 68 6f 73 65 0a 65 76 65 6e 20 | .argument.of.a.call,.whose.even. |
| 0b60 | 6e 75 6d 62 65 72 65 64 20 65 6c 65 6d 65 6e 74 73 20 6d 75 73 74 20 62 65 20 6b 65 79 77 6f 72 | numbered.elements.must.be.keywor |
| 0b80 | 64 73 2e 0a 41 43 43 45 50 54 41 42 4c 45 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6b 65 79 77 | ds..ACCEPTABLE.is.a.list.of.keyw |
| 0ba0 | 6f 72 64 73 2c 20 74 68 65 20 6f 6e 6c 79 20 6f 6e 65 73 20 74 68 61 74 20 61 72 65 20 74 72 75 | ords,.the.only.ones.that.are.tru |
| 0bc0 | 6c 79 20 61 63 63 65 70 74 61 62 6c 65 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 69 73 20 61 6e 20 | ly.acceptable..The.result.is.an. |
| 0be0 | 61 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 20 6e | alist.containing.the.arguments.n |
| 0c00 | 61 6d 65 64 20 62 79 20 74 68 65 20 6b 65 79 77 6f 72 64 73 0a 69 6e 20 41 43 43 45 50 54 41 42 | amed.by.the.keywords.in.ACCEPTAB |
| 0c20 | 4c 45 2c 20 6f 72 20 6e 69 6c 20 69 66 20 73 6f 6d 65 74 68 69 6e 67 20 66 61 69 6c 65 64 2e 22 | LE,.or.nil.if.something.failed." |
| 0c40 | 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3c 83 0c 00 c1 08 47 21 84 10 00 c2 c3 21 88 0c 3c 83 | .(byte-code.".<.....G!.....!..<. |
| 0c60 | 1c 00 c5 c6 0c 5c 22 84 20 00 c2 c7 21 88 c8 16 09 ca 20 89 1e 0b cc 08 21 4c 88 0e 09 83 39 00 | .....\".....!...........!L....9. |
| 0c80 | cd 0e 0e 21 82 46 00 cf 16 09 0e 0b 4a 43 16 0e cd 0e 0e 21 29 89 1e 10 41 40 1e 11 0e 10 40 1e | ...!.F......JC.....!)...A@....@. |
| 0ca0 | 12 c5 c6 0e 12 5c 22 84 63 00 c2 d3 d4 0e 12 21 5c 22 88 d5 0e 12 0e 11 5c 22 1e 16 0c 89 1e 17 | .....\".c......!\"......\"...... |
| 0cc0 | 40 1e 18 c8 1e 19 c8 1e 1a db 0e 17 21 84 9e 00 dc 0e 18 0e 16 5c 22 89 16 19 83 92 00 0e 19 0e | @...........!........\"......... |
| 0ce0 | 1a 42 16 1a 0e 17 41 89 16 17 40 16 18 82 78 00 0e 1a 2e 08 87 22 20 5b 61 72 67 73 6c 69 73 74 | .B....A...@...x......".[argslist |
| 0d00 | 20 65 76 65 6e 70 20 65 72 72 6f 72 20 22 4f 64 64 20 6e 75 6d 62 65 72 20 6f 66 20 6b 65 79 77 | .evenp.error."Odd.number.of.keyw |
| 0d20 | 6f 72 64 2d 61 72 67 73 22 20 61 63 63 65 70 74 61 62 6c 65 20 65 76 65 72 79 20 6b 65 79 77 6f | ord-args".acceptable.every.keywo |
| 0d40 | 72 64 70 20 22 53 65 63 6f 6e 64 20 61 72 67 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 | rdp."Second.arg.should.be.a.list |
| 0d60 | 20 6f 66 20 6b 65 79 77 6f 72 64 73 22 20 6e 69 6c 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 | .of.keywords".nil.*mvalues-count |
| 0d80 | 2a 20 67 65 6e 73 79 6d 20 69 74 20 75 6e 7a 69 70 2d 6c 69 73 74 20 63 6f 70 79 2d 73 65 71 75 | *.gensym.it.unzip-list.copy-sequ |
| 0da0 | 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 31 20 54 24 24 5f 31 20 66 6f | ence.*mvalues-values*.1.T$$_1.fo |
| 0dc0 | 72 6d 73 20 6b 65 79 77 6f 72 64 73 20 22 45 78 70 65 63 74 65 64 20 6b 65 79 77 6f 72 64 73 2c | rms.keywords."Expected.keywords, |
| 0de0 | 20 66 6f 75 6e 64 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 70 61 69 | .found.`%s'".prin1-to-string.pai |
| 0e00 | 72 6c 69 73 20 61 75 78 6c 69 73 74 20 70 74 72 20 74 68 69 73 20 61 75 78 76 61 6c 20 61 6c 69 | rlis.auxlist.ptr.this.auxval.ali |
| 0e20 | 73 74 20 65 6e 64 70 20 61 73 73 6f 63 5d 20 35 29 29 0a 28 64 65 66 75 6e 20 64 75 70 6c 69 63 | st.endp.assoc].5)).(defun.duplic |
| 0e40 | 61 74 65 2d 73 79 6d 62 6f 6c 73 2d 70 20 28 6c 69 73 74 29 20 22 5c 0a 46 69 6e 64 20 61 6c 6c | ate-symbols-p.(list)."\.Find.all |
| 0e60 | 20 73 79 6d 62 6f 6c 73 20 61 70 70 65 61 72 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 63 | .symbols.appearing.more.than.onc |
| 0e80 | 65 20 69 6e 20 4c 49 53 54 2e 0a 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 | e.in.LIST..Return.a.list.of.all. |
| 0ea0 | 73 75 63 68 20 64 75 70 6c 69 63 61 74 65 73 3b 20 60 6e 69 6c 27 20 69 66 20 74 68 65 72 65 20 | such.duplicates;.`nil'.if.there. |
| 0ec0 | 61 72 65 20 6e 6f 20 64 75 70 6c 69 63 61 74 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 | are.no.duplicates.".(byte-code." |
| 0ee0 | c0 c1 20 1a 1b 0c 3c 83 11 00 c5 c6 0c 5c 22 84 15 00 c7 c8 21 88 c9 ca 0c 5c 22 88 c9 cb 0c 5c | ......<......\".....!....\"....\ |
| 0f00 | 22 88 c9 cc 0c 5c 22 88 0b 2a 87 22 20 5b 6e 69 6c 20 67 65 6e 73 79 6d 20 70 72 6f 70 6e 61 6d | "....\"..*.".[nil.gensym.propnam |
| 0f20 | 65 20 64 75 70 6c 69 63 61 74 65 73 20 6c 69 73 74 20 65 76 65 72 79 20 73 79 6d 62 6f 6c 70 20 | e.duplicates.list.every.symbolp. |
| 0f40 | 65 72 72 6f 72 20 22 41 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 69 73 20 6e 65 65 64 | error."A.list.of.symbols.is.need |
| 0f60 | 65 64 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 | ed".mapcar.(lambda.(x).(byte-cod |
| 0f80 | 65 20 22 c0 09 5c 6e c3 23 87 22 20 5b 70 75 74 20 78 20 70 72 6f 70 6e 61 6d 65 20 30 5d 20 34 | e."..\n.#.".[put.x.propname.0].4 |
| 0fa0 | 29 29 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 5c 6e 09 | )).(lambda.(x).(byte-code."..\n. |
| 0fc0 | 5c 6e 4e 54 23 87 22 20 5b 70 75 74 20 78 20 70 72 6f 70 6e 61 6d 65 5d 20 35 29 29 20 28 6c 61 | \nNT#.".[put.x.propname].5)).(la |
| 0fe0 | 6d 62 64 61 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 09 4e c2 56 85 0d 00 08 0b 42 | mbda.(x).(byte-code."..N.V.....B |
| 1000 | 89 13 87 22 20 5b 78 20 70 72 6f 70 6e 61 6d 65 20 31 20 64 75 70 6c 69 63 61 74 65 73 5d 20 32 | ...".[x.propname.1.duplicates].2 |
| 1020 | 29 29 5d 20 33 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 6b 65 79 77 6f 72 64 20 28 78 20 | ))].3)).(defmacro.defkeyword.(x. |
| 1040 | 26 6f 70 74 69 6f 6e 61 6c 20 64 6f 63 73 74 72 69 6e 67 29 20 22 5c 0a 4d 61 6b 65 20 73 79 6d | &optional.docstring)."\.Make.sym |
| 1060 | 62 6f 6c 20 58 20 61 20 6b 65 79 77 6f 72 64 20 28 73 79 6d 62 6f 6c 20 77 68 6f 73 65 20 76 61 | bol.X.a.keyword.(symbol.whose.va |
| 1080 | 6c 75 65 20 69 73 20 69 74 73 65 6c 66 29 2e 0a 4f 70 74 69 6f 6e 61 6c 20 73 65 63 6f 6e 64 20 | lue.is.itself)..Optional.second. |
| 10a0 | 61 72 67 75 6d 65 6e 74 20 69 73 20 61 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 | argument.is.a.documentation.stri |
| 10c0 | 6e 67 20 66 6f 72 20 69 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 39 83 0c 00 c1 08 c2 | ng.for.it.".(byte-code.".9...... |
| 10e0 | 08 44 45 87 c3 c4 c5 08 21 5c 22 87 22 20 5b 78 20 64 65 66 63 6f 6e 73 74 20 71 75 6f 74 65 20 | .DE.....!\".".[x.defconst.quote. |
| 1100 | 65 72 72 6f 72 20 22 60 25 73 27 20 69 73 20 6e 6f 74 20 61 20 73 79 6d 62 6f 6c 22 20 70 72 69 | error."`%s'.is.not.a.symbol".pri |
| 1120 | 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 34 29 29 0a 28 64 65 66 75 6e 20 6b 65 79 77 6f 72 64 | n1-to-string].4)).(defun.keyword |
| 1140 | 70 20 28 73 79 6d 29 20 22 5c 0a 52 65 74 75 72 6e 20 60 74 27 20 69 66 20 53 59 4d 20 69 73 20 | p.(sym)."\.Return.`t'.if.SYM.is. |
| 1160 | 61 20 6b 65 79 77 6f 72 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 39 83 14 00 c1 c2 08 | a.keyword.".(byte-code.".9...... |
| 1180 | 21 c3 48 c4 5c 22 83 14 00 08 89 4c 87 c5 87 22 20 5b 73 79 6d 20 63 68 61 72 2d 65 71 75 61 6c | !.H.\".....L...".[sym.char-equal |
| 11a0 | 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 30 20 35 38 20 6e 69 6c 5d 20 33 29 29 0a 28 64 65 66 75 | .symbol-name.0.58.nil].3)).(defu |
| 11c0 | 6e 20 6b 65 79 77 6f 72 64 2d 6f 66 20 28 73 79 6d 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 20 6b | n.keyword-of.(sym)."\.Return.a.k |
| 11e0 | 65 79 77 6f 72 64 20 74 68 61 74 20 69 73 20 6e 61 74 75 72 61 6c 6c 79 20 61 73 73 6f 63 69 61 | eyword.that.is.naturally.associa |
| 1200 | 74 65 64 20 77 69 74 68 20 73 79 6d 62 6f 6c 20 53 59 4d 2e 0a 49 66 20 53 59 4d 20 69 73 20 6b | ted.with.symbol.SYM..If.SYM.is.k |
| 1220 | 65 79 77 6f 72 64 2c 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 53 59 4d 2e 0a 4f 74 68 65 72 77 | eyword,.the.value.is.SYM..Otherw |
| 1240 | 69 73 65 20 69 74 20 69 73 20 61 20 6b 65 79 77 6f 72 64 20 77 68 6f 73 65 20 6e 61 6d 65 20 69 | ise.it.is.a.keyword.whose.name.i |
| 1260 | 73 20 60 3a 27 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 53 59 4d 27 73 20 6e 61 6d 65 2e 22 20 28 | s.`:'.followed.by.SYM's.name.".( |
| 1280 | 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 21 83 08 00 09 87 09 39 83 1a 00 c2 c3 c4 09 21 50 21 89 | byte-code."..!......9.......!P!. |
| 12a0 | 1d 89 4c 29 87 c6 c7 c8 09 21 5c 22 87 22 20 5b 6b 65 79 77 6f 72 64 70 20 73 79 6d 20 69 6e 74 | ..L).....!\".".[keywordp.sym.int |
| 12c0 | 65 72 6e 20 22 3a 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6e 65 77 73 79 6d 20 65 72 72 6f 72 | ern.":".symbol-name.newsym.error |
| 12e0 | 20 22 45 78 70 65 63 74 65 64 20 61 20 73 79 6d 62 6f 6c 2c 20 6e 6f 74 20 60 25 73 27 22 20 70 | ."Expected.a.symbol,.not.`%s'".p |
| 1300 | 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 35 29 29 0a 28 64 65 66 76 61 72 20 2a 67 65 6e | rin1-to-string].5)).(defvar.*gen |
| 1320 | 74 65 6d 70 2d 69 6e 64 65 78 2a 20 30 20 22 5c 0a 49 6e 74 65 67 65 72 20 75 73 65 64 20 62 79 | temp-index*.0."\.Integer.used.by |
| 1340 | 20 67 65 6e 74 65 6d 70 20 74 6f 20 70 72 6f 64 75 63 65 20 6e 65 77 20 6e 61 6d 65 73 2e 22 29 | .gentemp.to.produce.new.names.") |
| 1360 | 0a 28 64 65 66 76 61 72 20 2a 67 65 6e 74 65 6d 70 2d 70 72 65 66 69 78 2a 20 22 54 24 24 5f 22 | .(defvar.*gentemp-prefix*."T$$_" |
| 1380 | 20 22 5c 0a 4e 61 6d 65 73 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 67 65 6e 74 65 6d 70 20 62 | ."\.Names.generated.by.gentemp.b |
| 13a0 | 65 67 69 6e 20 77 69 74 68 20 74 68 69 73 20 73 74 72 69 6e 67 20 62 79 20 64 65 66 61 75 6c 74 | egin.with.this.string.by.default |
| 13c0 | 2e 22 29 0a 28 64 65 66 75 6e 20 67 65 6e 74 65 6d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 | .").(defun.gentemp.(&optional.pr |
| 13e0 | 65 66 69 78 20 6f 62 6c 69 73 74 29 20 22 5c 0a 47 65 6e 65 72 61 74 65 20 61 20 66 72 65 73 68 | efix.oblist)."\.Generate.a.fresh |
| 1400 | 20 69 6e 74 65 72 6e 65 64 20 73 79 6d 62 6f 6c 2e 0a 54 68 65 72 65 20 61 72 65 20 32 20 6f 70 | .interned.symbol..There.are.2.op |
| 1420 | 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 73 2c 20 50 52 45 46 49 58 20 61 6e 64 20 4f 42 4c | tional.arguments,.PREFIX.and.OBL |
| 1440 | 49 53 54 2e 20 20 50 52 45 46 49 58 20 69 73 20 74 68 65 0a 73 74 72 69 6e 67 20 74 68 61 74 20 | IST...PREFIX.is.the.string.that. |
| 1460 | 62 65 67 69 6e 73 20 74 68 65 20 6e 65 77 20 6e 61 6d 65 2c 20 4f 42 4c 49 53 54 20 69 73 20 74 | begins.the.new.name,.OBLIST.is.t |
| 1480 | 68 65 20 6f 62 61 72 72 61 79 20 75 73 65 64 20 74 6f 20 73 65 61 72 63 68 20 66 6f 72 0a 6f 6c | he.obarray.used.to.search.for.ol |
| 14a0 | 64 20 6e 61 6d 65 73 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 73 20 61 72 65 20 6a 75 73 74 20 | d.names...The.defaults.are.just. |
| 14c0 | 72 69 67 68 74 2c 20 59 4f 55 20 53 48 4f 55 4c 44 20 4e 45 56 45 52 20 4e 45 45 44 20 54 48 45 | right,.YOU.SHOULD.NEVER.NEED.THE |
| 14e0 | 53 45 0a 41 52 47 55 4d 45 4e 54 53 20 49 4e 20 59 4f 55 52 20 4f 57 4e 20 43 4f 44 45 2e 22 20 | SE.ARGUMENTS.IN.YOUR.OWN.CODE.". |
| 1500 | 28 62 79 74 65 2d 63 6f 64 65 20 22 08 84 06 00 09 10 5c 6e 84 0c 00 0b 12 c4 89 1d 1e 06 0e 06 | (byte-code."......\n............ |
| 1520 | 84 32 00 08 0e 07 50 15 0e 07 c8 5c 5c 16 07 c9 0d 5c 6e 5c 22 84 11 00 ca 0d 5c 6e 5c 22 89 16 | .2....P....\\....\n\".....\n\".. |
| 1540 | 06 83 16 00 0e 06 2a 87 22 20 5b 70 72 65 66 69 78 20 2a 67 65 6e 74 65 6d 70 2d 70 72 65 66 69 | ......*.".[prefix.*gentemp-prefi |
| 1560 | 78 2a 20 6f 62 6c 69 73 74 20 6f 62 61 72 72 61 79 20 6e 69 6c 20 6e 65 77 6e 61 6d 65 20 6e 65 | x*.oblist.obarray.nil.newname.ne |
| 1580 | 77 73 79 6d 62 6f 6c 20 2a 67 65 6e 74 65 6d 70 2d 69 6e 64 65 78 2a 20 31 20 69 6e 74 65 72 6e | wsymbol.*gentemp-index*.1.intern |
| 15a0 | 2d 73 6f 66 74 20 69 6e 74 65 72 6e 5d 20 34 29 29 0a 28 64 65 66 76 61 72 20 2a 67 65 6e 73 79 | -soft.intern].4)).(defvar.*gensy |
| 15c0 | 6d 2d 69 6e 64 65 78 2a 20 30 20 22 5c 0a 49 6e 74 65 67 65 72 20 75 73 65 64 20 62 79 20 67 65 | m-index*.0."\.Integer.used.by.ge |
| 15e0 | 6e 73 79 6d 20 74 6f 20 70 72 6f 64 75 63 65 20 6e 65 77 20 6e 61 6d 65 73 2e 22 29 0a 28 64 65 | nsym.to.produce.new.names.").(de |
| 1600 | 66 76 61 72 20 2a 67 65 6e 73 79 6d 2d 70 72 65 66 69 78 2a 20 22 47 24 24 5f 22 20 22 5c 0a 4e | fvar.*gensym-prefix*."G$$_"."\.N |
| 1620 | 61 6d 65 73 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 67 65 6e 73 79 6d 20 62 65 67 69 6e 20 77 | ames.generated.by.gensym.begin.w |
| 1640 | 69 74 68 20 74 68 69 73 20 73 74 72 69 6e 67 20 62 79 20 64 65 66 61 75 6c 74 2e 22 29 0a 28 64 | ith.this.string.by.default.").(d |
| 1660 | 65 66 75 6e 20 67 65 6e 73 79 6d 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 65 66 69 78 29 20 22 | efun.gensym.(&optional.prefix)." |
| 1680 | 5c 0a 47 65 6e 65 72 61 74 65 20 61 20 66 72 65 73 68 20 75 6e 69 6e 74 65 72 6e 65 64 20 73 79 | \.Generate.a.fresh.uninterned.sy |
| 16a0 | 6d 62 6f 6c 2e 0a 54 68 65 72 65 20 69 73 20 61 6e 20 20 6f 70 74 69 6f 6e 61 6c 20 61 72 67 75 | mbol..There.is.an..optional.argu |
| 16c0 | 6d 65 6e 74 2c 20 50 52 45 46 49 58 2e 20 20 50 52 45 46 49 58 20 69 73 20 74 68 65 0a 73 74 72 | ment,.PREFIX...PREFIX.is.the.str |
| 16e0 | 69 6e 67 20 74 68 61 74 20 62 65 67 69 6e 73 20 74 68 65 20 6e 65 77 20 6e 61 6d 65 2e 20 4d 6f | ing.that.begins.the.new.name..Mo |
| 1700 | 73 74 20 70 65 6f 70 6c 65 20 74 61 6b 65 20 6a 75 73 74 20 74 68 65 20 64 65 66 61 75 6c 74 2c | st.people.take.just.the.default, |
| 1720 | 0a 65 78 63 65 70 74 20 77 68 65 6e 20 64 65 62 75 67 67 69 6e 67 20 6e 65 65 64 73 20 73 75 67 | .except.when.debugging.needs.sug |
| 1740 | 67 65 73 74 20 6f 74 68 65 72 77 69 73 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 84 06 | gest.otherwise.".(byte-code."... |
| 1760 | 00 09 10 c2 c3 1c 1d 0d 84 27 00 08 0e 06 50 14 0e 06 c7 5c 5c 16 06 c8 0c 21 84 5c 6e 00 c9 0c | .........'....P....\\....!.\n... |
| 1780 | 21 89 15 83 0e 00 0d 2a 87 22 20 5b 70 72 65 66 69 78 20 2a 67 65 6e 73 79 6d 2d 70 72 65 66 69 | !......*.".[prefix.*gensym-prefi |
| 17a0 | 78 2a 20 6e 69 6c 20 22 22 20 6e 65 77 6e 61 6d 65 20 6e 65 77 73 79 6d 62 6f 6c 20 2a 67 65 6e | x*.nil."".newname.newsymbol.*gen |
| 17c0 | 73 79 6d 2d 69 6e 64 65 78 2a 20 31 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 6d 61 6b 65 2d 73 79 | sym-index*.1.intern-soft.make-sy |
| 17e0 | 6d 62 6f 6c 5d 20 33 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 c2 c3 23 88 c0 c4 c2 c3 | mbol].3)).(byte-code."....#..... |
| 1800 | 23 88 c0 c5 c2 c3 23 88 c0 c6 c2 c3 23 87 22 20 5b 70 75 74 20 63 61 73 65 20 6c 69 73 70 2d 69 | #.....#.....#.".[put.case.lisp-i |
| 1820 | 6e 64 65 6e 74 2d 68 6f 6f 6b 20 31 20 65 63 61 73 65 20 77 68 65 6e 20 75 6e 6c 65 73 73 5d 20 | ndent-hook.1.ecase.when.unless]. |
| 1840 | 34 29 0a 28 64 65 66 6d 61 63 72 6f 20 77 68 65 6e 20 28 63 6f 6e 64 69 74 69 6f 6e 20 26 72 65 | 4).(defmacro.when.(condition.&re |
| 1860 | 73 74 20 62 6f 64 79 29 20 22 5c 0a 28 77 68 65 6e 20 43 4f 4e 44 49 54 49 4f 4e 20 2e 20 42 4f | st.body)."\.(when.CONDITION...BO |
| 1880 | 44 59 29 20 3d 3e 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 20 69 66 20 43 4f 4e 44 49 54 49 4f | DY).=>.evaluate.BODY.if.CONDITIO |
| 18a0 | 4e 20 69 73 20 74 72 75 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 c2 0b 44 c4 0d 24 | N.is.true.".(byte-code."....D..$ |
| 18c0 | 87 22 20 5b 6c 69 73 74 2a 20 69 66 20 6e 6f 74 20 63 6f 6e 64 69 74 69 6f 6e 20 6e 69 6c 20 62 | .".[list*.if.not.condition.nil.b |
| 18e0 | 6f 64 79 5d 20 35 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 75 6e 6c 65 73 73 20 28 63 6f 6e 64 69 | ody].5)).(defmacro.unless.(condi |
| 1900 | 74 69 6f 6e 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c 0a 28 75 6e 6c 65 73 73 20 43 4f 4e 44 | tion.&rest.body)."\.(unless.COND |
| 1920 | 49 54 49 4f 4e 20 2e 20 42 4f 44 59 29 20 3d 3e 20 65 76 61 6c 75 61 74 65 20 42 4f 44 59 20 69 | ITION...BODY).=>.evaluate.BODY.i |
| 1940 | 66 20 43 4f 4e 44 49 54 49 4f 4e 20 69 73 20 66 61 6c 73 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 | f.CONDITION.is.false.".(byte-cod |
| 1960 | 65 20 22 c0 c1 5c 6e c3 0c 24 87 22 20 5b 6c 69 73 74 2a 20 69 66 20 63 6f 6e 64 69 74 69 6f 6e | e."..\n..$.".[list*.if.condition |
| 1980 | 20 6e 69 6c 20 62 6f 64 79 5d 20 35 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 63 61 73 65 20 28 65 | .nil.body].5)).(defmacro.case.(e |
| 19a0 | 78 70 72 20 26 72 65 73 74 20 63 61 73 65 73 29 20 22 5c 0a 28 63 61 73 65 20 45 58 50 52 20 2e | xpr.&rest.cases)."\.(case.EXPR.. |
| 19c0 | 20 43 41 53 45 53 29 20 3d 3e 20 65 76 61 6c 73 20 45 58 50 52 2c 20 63 68 6f 6f 73 65 73 20 66 | .CASES).=>.evals.EXPR,.chooses.f |
| 19e0 | 72 6f 6d 20 43 41 53 45 53 20 6f 6e 20 74 68 61 74 20 76 61 6c 75 65 2e 0a 45 58 50 52 20 20 20 | rom.CASES.on.that.value..EXPR... |
| 1a00 | 2d 3e 20 61 6e 79 20 66 6f 72 6d 0a 43 41 53 45 53 20 20 2d 3e 20 6c 69 73 74 20 6f 66 20 63 6c | ->.any.form.CASES..->.list.of.cl |
| 1a20 | 61 75 73 65 73 2c 20 6e 6f 6e 20 65 6d 70 74 79 0a 43 4c 41 55 53 45 20 2d 3e 20 48 45 41 44 20 | auses,.non.empty.CLAUSE.->.HEAD. |
| 1a40 | 2e 20 42 4f 44 59 0a 48 45 41 44 20 20 20 2d 3e 20 74 20 20 20 20 20 20 20 20 20 20 20 20 20 3d | ..BODY.HEAD...->.t.............= |
| 1a60 | 20 63 61 74 63 68 20 61 6c 6c 2c 20 6d 75 73 74 20 62 65 20 6c 61 73 74 20 63 6c 61 75 73 65 0a | .catch.all,.must.be.last.clause. |
| 1a80 | 20 20 20 20 20 20 20 2d 3e 20 6f 74 68 65 72 77 69 73 65 20 20 20 20 20 3d 20 73 61 6d 65 20 61 | .......->.otherwise.....=.same.a |
| 1aa0 | 73 20 74 0a 20 20 20 20 20 20 20 2d 3e 20 6e 69 6c 20 20 20 20 20 20 20 20 20 20 20 3d 20 69 6c | s.t........->.nil...........=.il |
| 1ac0 | 6c 65 67 61 6c 0a 20 20 20 20 20 20 20 2d 3e 20 61 74 6f 6d 20 20 20 20 20 20 20 20 20 20 3d 20 | legal........->.atom..........=. |
| 1ae0 | 61 63 74 69 76 61 74 65 64 20 69 66 20 28 65 71 6c 20 20 45 58 50 52 20 48 45 41 44 29 0a 20 20 | activated.if.(eql..EXPR.HEAD)... |
| 1b00 | 20 20 20 20 20 2d 3e 20 6c 69 73 74 20 6f 66 20 61 74 6f 6d 73 20 3d 20 61 63 74 69 76 61 74 65 | .....->.list.of.atoms.=.activate |
| 1b20 | 64 20 69 66 20 28 6d 65 6d 62 65 72 20 45 58 50 52 20 48 45 41 44 29 0a 42 4f 44 59 20 20 20 2d | d.if.(member.EXPR.HEAD).BODY...- |
| 1b40 | 3e 20 6c 69 73 74 20 6f 66 20 66 6f 72 6d 73 2c 20 69 6d 70 6c 69 63 69 74 20 50 52 4f 47 4e 20 | >.list.of.forms,.implicit.PROGN. |
| 1b60 | 69 73 20 62 75 69 6c 74 20 61 72 6f 75 6e 64 20 69 74 2e 0a 45 58 50 52 20 69 73 20 65 76 61 6c | is.built.around.it..EXPR.is.eval |
| 1b80 | 75 61 74 65 64 20 6f 6e 6c 79 20 6f 6e 63 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 | uated.only.once.".(byte-code.".. |
| 1ba0 | 19 c2 0b 09 5c 22 1c c5 09 0e 06 44 43 c7 c8 c9 0c 21 5c 22 45 2a 87 22 20 5b 67 65 6e 74 65 6d | ....\".....DC....!\"E*.".[gentem |
| 1bc0 | 70 20 6e 65 77 73 79 6d 20 63 61 73 65 2d 63 6c 61 75 73 69 66 79 20 63 61 73 65 73 20 63 6c 61 | p.newsym.case-clausify.cases.cla |
| 1be0 | 75 73 65 73 20 6c 65 74 20 65 78 70 72 20 6c 69 73 74 2a 20 63 6f 6e 64 20 6e 72 65 76 65 72 73 | uses.let.expr.list*.cond.nrevers |
| 1c00 | 65 5d 20 36 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 65 63 61 73 65 20 28 65 78 70 72 20 26 72 65 | e].6)).(defmacro.ecase.(expr.&re |
| 1c20 | 73 74 20 63 61 73 65 73 29 20 22 5c 0a 28 65 63 61 73 65 20 45 58 50 52 20 2e 20 43 41 53 45 53 | st.cases)."\.(ecase.EXPR...CASES |
| 1c40 | 29 20 3d 3e 20 6c 69 6b 65 20 60 63 61 73 65 27 2c 20 62 75 74 20 65 72 72 6f 72 20 69 66 20 6e | ).=>.like.`case',.but.error.if.n |
| 1c60 | 6f 20 63 61 73 65 20 66 69 74 73 2e 0a 60 74 27 2d 63 6c 61 75 73 65 73 20 61 72 65 20 6e 6f 74 | o.case.fits..`t'-clauses.are.not |
| 1c80 | 20 61 6c 6c 6f 77 65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 19 c2 0b 09 5c 22 1c | .allowed.".(byte-code."......\". |
| 1ca0 | c5 0c 21 c6 3d 83 14 00 c7 c8 21 88 c6 c7 c9 ca 0e 0b 44 cc 09 44 46 44 0c 42 14 cd 09 0e 0b 44 | ..!.=.....!.......D..DFD.B.....D |
| 1cc0 | 43 ce cf d0 0c 21 5c 22 45 2a 87 22 20 5b 67 65 6e 74 65 6d 70 20 6e 65 77 73 79 6d 20 63 61 73 | C....!\"E*.".[gentemp.newsym.cas |
| 1ce0 | 65 2d 63 6c 61 75 73 69 66 79 20 63 61 73 65 73 20 63 6c 61 75 73 65 73 20 63 61 61 72 20 74 20 | e-clausify.cases.clauses.caar.t. |
| 1d00 | 65 72 72 6f 72 20 22 4e 6f 20 63 6c 61 75 73 65 2d 68 65 61 64 20 73 68 6f 75 6c 64 20 62 65 20 | error."No.clause-head.should.be. |
| 1d20 | 60 74 27 20 6f 72 20 60 6f 74 68 65 72 77 69 73 65 27 20 66 6f 72 20 60 65 63 61 73 65 27 22 20 | `t'.or.`otherwise'.for.`ecase'". |
| 1d40 | 22 65 63 61 73 65 20 6f 6e 20 25 73 20 3d 20 25 73 20 66 61 69 6c 65 64 20 74 6f 20 74 61 6b 65 | "ecase.on.%s.=.%s.failed.to.take |
| 1d60 | 20 61 6e 79 20 62 72 61 6e 63 68 2e 22 20 71 75 6f 74 65 20 65 78 70 72 20 70 72 69 6e 31 2d 74 | .any.branch.".quote.expr.prin1-t |
| 1d80 | 6f 2d 73 74 72 69 6e 67 20 6c 65 74 20 6c 69 73 74 2a 20 63 6f 6e 64 20 6e 72 65 76 65 72 73 65 | o-string.let.list*.cond.nreverse |
| 1da0 | 5d 20 36 29 29 0a 28 64 65 66 75 6e 20 63 61 73 65 2d 63 6c 61 75 73 69 66 79 20 28 63 61 73 65 | ].6)).(defun.case-clausify.(case |
| 1dc0 | 73 20 6e 65 77 73 79 6d 29 20 22 5c 0a 43 41 53 45 2d 43 4c 41 55 53 49 46 59 20 43 41 53 45 53 | s.newsym)."\.CASE-CLAUSIFY.CASES |
| 1de0 | 20 4e 45 57 53 59 4d 20 3d 3e 20 63 6c 61 75 73 65 73 20 66 6f 72 20 61 20 27 63 6f 6e 64 27 0a | .NEWSYM.=>.clauses.for.a.'cond'. |
| 1e00 | 43 6f 6e 76 65 72 74 73 20 74 68 65 20 43 41 53 45 53 20 6f 66 20 61 20 5b 65 5d 63 61 73 65 20 | Converts.the.CASES.of.a.[e]case. |
| 1e20 | 6d 61 63 72 6f 20 69 6e 74 6f 20 63 6f 6e 64 20 63 6c 61 75 73 65 73 20 74 6f 20 62 65 0a 65 76 | macro.into.cond.clauses.to.be.ev |
| 1e40 | 61 6c 75 61 74 65 64 20 69 6e 73 69 64 65 20 61 20 6c 65 74 20 74 68 61 74 20 62 69 6e 64 73 20 | aluated.inside.a.let.that.binds. |
| 1e60 | 4e 45 57 53 59 4d 2e 20 20 52 65 74 75 72 6e 73 20 74 68 65 20 63 6c 61 75 73 65 73 20 69 6e 0a | NEWSYM...Returns.the.clauses.in. |
| 1e80 | 72 65 76 65 72 73 65 20 6f 72 64 65 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 19 08 41 | reverse.order.".(byte-code."...A |
| 1ea0 | 1a 08 40 1b c4 1d c6 09 21 84 8b 00 0b 40 0b 41 1e 07 89 1e 08 84 26 00 c9 ca cb 0b 21 5c 22 88 | ..@.....!....@.A......&.....!\". |
| 1ec0 | 82 7e 00 0e 08 cc 3d 84 34 00 0e 08 cd 3d 83 48 00 c6 5c 6e 21 84 3e 00 c9 ce 21 88 cc 0e 07 42 | .~....=.4....=.H..\n!.>...!....B |
| 1ee0 | 0d 42 15 82 7e 00 0e 08 3a 84 5f 00 cf 0e 10 d1 0e 08 44 45 0e 07 42 0d 42 15 82 7e 00 0e 08 3c | .B..~...:._.......DE..B.B..~...< |
| 1f00 | 83 76 00 d2 0e 10 d1 0e 08 44 45 0e 07 42 0d 42 15 82 7e 00 c9 d3 cb 0e 08 21 5c 22 88 2a 09 41 | .v.......DE..B.B..~......!\".*.A |
| 1f20 | 11 5c 6e 41 12 09 40 13 82 5c 6e 00 0d 2c 87 22 20 5b 63 61 73 65 73 20 63 75 72 72 65 6e 74 70 | .\nA..@..\n..,.".[cases.currentp |
| 1f40 | 6f 73 20 6e 65 78 74 70 6f 73 20 63 75 72 63 6c 61 75 73 65 20 6e 69 6c 20 72 65 73 75 6c 74 20 | os.nextpos.curclause.nil.result. |
| 1f60 | 65 6e 64 70 20 62 6f 64 79 20 68 65 61 64 20 65 72 72 6f 72 20 22 43 61 73 65 20 63 6c 61 75 73 | endp.body.head.error."Case.claus |
| 1f80 | 65 73 20 63 61 6e 6e 6f 74 20 68 61 76 65 20 6e 75 6c 6c 20 68 65 61 64 73 3a 20 60 25 73 27 22 | es.cannot.have.null.heads:.`%s'" |
| 1fa0 | 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 74 20 6f 74 68 65 72 77 69 73 65 20 22 43 6c | .prin1-to-string.t.otherwise."Cl |
| 1fc0 | 61 75 73 65 20 77 69 74 68 20 60 74 27 20 6f 72 20 60 6f 74 68 65 72 77 69 73 65 27 20 68 65 61 | ause.with.`t'.or.`otherwise'.hea |
| 1fe0 | 64 20 6d 75 73 74 20 62 65 20 6c 61 73 74 22 20 65 71 6c 20 6e 65 77 73 79 6d 20 71 75 6f 74 65 | d.must.be.last".eql.newsym.quote |
| 2000 | 20 6d 65 6d 62 65 72 20 22 44 6f 6e 27 74 20 6b 6e 6f 77 20 68 6f 77 20 74 6f 20 70 61 72 73 65 | .member."Don't.know.how.to.parse |
| 2020 | 20 63 61 73 65 20 63 6c 61 75 73 65 20 60 25 73 27 2e 22 5d 20 35 29 29 0a 28 62 79 74 65 2d 63 | .case.clause.`%s'."].5)).(byte-c |
| 2040 | 6f 64 65 20 22 c0 c1 c2 c3 23 88 c0 c4 c2 c3 23 88 c0 c5 c2 c6 23 88 c0 c7 c2 c6 23 88 c0 c8 c2 | ode."....#.....#.....#.....#.... |
| 2060 | c6 23 88 c0 c9 c2 c6 23 87 22 20 5b 70 75 74 20 64 6f 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 | .#.....#.".[put.do.lisp-indent-h |
| 2080 | 6f 6f 6b 20 32 20 64 6f 2a 20 64 6f 6c 69 73 74 20 31 20 64 6f 74 69 6d 65 73 20 64 6f 2d 73 79 | ook.2.do*.dolist.1.dotimes.do-sy |
| 20a0 | 6d 62 6f 6c 73 20 64 6f 2d 61 6c 6c 2d 73 79 6d 62 6f 6c 73 5d 20 34 29 0a 28 64 65 66 6d 61 63 | mbols.do-all-symbols].4).(defmac |
| 20c0 | 72 6f 20 64 6f 20 28 73 74 65 70 66 6f 72 6d 73 20 65 6e 64 66 6f 72 6d 73 20 26 72 65 73 74 20 | ro.do.(stepforms.endforms.&rest. |
| 20e0 | 62 6f 64 79 29 20 22 5c 0a 28 64 6f 20 53 54 45 50 46 4f 52 4d 53 20 45 4e 44 46 4f 52 4d 53 20 | body)."\.(do.STEPFORMS.ENDFORMS. |
| 2100 | 2e 20 42 4f 44 59 29 3a 20 49 74 65 72 61 74 65 20 42 4f 44 59 2c 20 73 74 65 70 70 69 6e 67 20 | ..BODY):.Iterate.BODY,.stepping. |
| 2120 | 73 6f 6d 65 20 6c 6f 63 61 6c 20 76 61 72 69 61 62 6c 65 73 2e 0a 53 54 45 50 46 4f 52 4d 53 20 | some.local.variables..STEPFORMS. |
| 2140 | 6d 75 73 74 20 62 65 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 6f 72 20 6c 69 73 | must.be.a.list.of.symbols.or.lis |
| 2160 | 74 73 2e 20 20 49 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 63 61 73 65 2c 20 74 68 65 0a 6c 69 73 | ts...In.the.second.case,.the.lis |
| 2180 | 74 73 20 6d 75 73 74 20 73 74 61 72 74 20 77 69 74 68 20 61 20 73 79 6d 62 6f 6c 20 61 6e 64 20 | ts.must.start.with.a.symbol.and. |
| 21a0 | 63 6f 6e 74 61 69 6e 20 75 70 20 74 6f 20 74 77 6f 20 6d 6f 72 65 20 66 6f 72 6d 73 2e 20 49 6e | contain.up.to.two.more.forms..In |
| 21c0 | 0a 74 68 65 20 53 54 45 50 46 4f 52 4d 53 2c 20 61 20 73 79 6d 62 6f 6c 20 69 73 20 74 68 65 20 | .the.STEPFORMS,.a.symbol.is.the. |
| 21e0 | 73 61 6d 65 20 61 73 20 61 20 28 73 79 6d 62 6f 6c 29 2e 20 20 54 68 65 20 6f 74 68 65 72 20 32 | same.as.a.(symbol)...The.other.2 |
| 2200 | 20 66 6f 72 6d 73 0a 61 72 65 20 74 68 65 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 28 64 65 | .forms.are.the.initial.value.(de |
| 2220 | 66 2e 20 4e 49 4c 29 20 61 6e 64 20 74 68 65 20 66 6f 72 6d 20 74 6f 20 73 74 65 70 20 28 64 65 | f..NIL).and.the.form.to.step.(de |
| 2240 | 66 2e 20 69 74 73 65 6c 66 29 2e 0a 54 68 65 20 76 61 6c 75 65 73 20 75 73 65 64 20 62 79 20 69 | f..itself)..The.values.used.by.i |
| 2260 | 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 20 61 6e 64 20 73 74 65 70 70 69 6e 67 20 61 72 65 20 63 | nitialization.and.stepping.are.c |
| 2280 | 6f 6d 70 75 74 65 64 20 69 6e 20 70 61 72 61 6c 6c 65 6c 2e 0a 54 68 65 20 45 4e 44 46 4f 52 4d | omputed.in.parallel..The.ENDFORM |
| 22a0 | 53 20 61 72 65 20 61 20 6c 69 73 74 20 28 43 4f 4e 44 49 54 49 4f 4e 20 2e 20 45 4e 44 42 4f 44 | S.are.a.list.(CONDITION...ENDBOD |
| 22c0 | 59 29 2e 20 20 49 66 20 74 68 65 20 43 4f 4e 44 49 54 49 4f 4e 0a 65 76 61 6c 75 61 74 65 73 20 | Y)...If.the.CONDITION.evaluates. |
| 22e0 | 74 6f 20 74 72 75 65 20 69 6e 20 61 6e 79 20 69 74 65 72 61 74 69 6f 6e 2c 20 45 4e 44 42 4f 44 | to.true.in.any.iteration,.ENDBOD |
| 2300 | 59 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 61 6e 64 20 74 68 65 20 6c 61 73 74 0a 66 6f 72 6d | Y.is.evaluated.and.the.last.form |
| 2320 | 20 69 6e 20 69 74 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 54 68 65 20 42 4f 44 59 20 28 77 68 | .in.it.is.returned..The.BODY.(wh |
| 2340 | 69 63 68 20 6d 61 79 20 62 65 20 65 6d 70 74 79 29 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 61 | ich.may.be.empty).is.evaluated.a |
| 2360 | 74 20 65 76 65 72 79 20 69 74 65 72 61 74 69 6f 6e 2c 20 77 69 74 68 0a 74 68 65 20 73 79 6d 62 | t.every.iteration,.with.the.symb |
| 2380 | 6f 6c 73 20 6f 66 20 74 68 65 20 53 54 45 50 46 4f 52 4d 53 20 62 6f 75 6e 64 20 74 6f 20 74 68 | ols.of.the.STEPFORMS.bound.to.th |
| 23a0 | 65 20 69 6e 69 74 69 61 6c 20 6f 72 20 73 74 65 70 70 65 64 20 76 61 6c 75 65 73 2e 22 20 28 62 | e.initial.or.stepped.values.".(b |
| 23c0 | 79 74 65 2d 63 6f 64 65 20 22 c0 09 21 83 5c 6e 00 c2 0b 21 88 c4 09 21 c5 09 21 0b 40 0b 41 1e | yte-code."..!.\n...!...!..!.@.A. |
| 23e0 | 06 1e 07 1e 08 1e 09 ca 0e 09 cb cc 0e 07 44 cd 0e 0e 0e 08 5c 22 42 42 cd 0e 06 21 2c 42 42 42 | ..............D.....\"BB...!,BBB |
| 2400 | 87 22 20 5b 63 68 65 63 6b 2d 64 6f 2d 73 74 65 70 66 6f 72 6d 73 20 73 74 65 70 66 6f 72 6d 73 | .".[check-do-stepforms.stepforms |
| 2420 | 20 63 68 65 63 6b 2d 64 6f 2d 65 6e 64 66 6f 72 6d 73 20 65 6e 64 66 6f 72 6d 73 20 65 78 74 72 | .check-do-endforms.endforms.extr |
| 2440 | 61 63 74 2d 64 6f 2d 69 6e 69 74 73 20 65 78 74 72 61 63 74 2d 64 6f 2d 73 74 65 70 73 20 65 6e | act-do-inits.extract-do-steps.en |
| 2460 | 64 62 6f 64 79 20 65 6e 64 63 6f 6e 64 20 73 74 65 70 6c 69 73 74 20 69 6e 69 74 6c 69 73 74 20 | dbody.endcond.steplist.initlist. |
| 2480 | 6c 65 74 20 77 68 69 6c 65 20 6e 6f 74 20 61 70 70 65 6e 64 20 62 6f 64 79 5d 20 37 29 29 0a 28 | let.while.not.append.body].7)).( |
| 24a0 | 64 65 66 6d 61 63 72 6f 20 64 6f 2a 20 28 73 74 65 70 66 6f 72 6d 73 20 65 6e 64 66 6f 72 6d 73 | defmacro.do*.(stepforms.endforms |
| 24c0 | 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c 0a 60 64 6f 2a 27 20 69 73 20 74 6f 20 60 64 6f 27 | .&rest.body)."\.`do*'.is.to.`do' |
| 24e0 | 20 61 73 20 60 6c 65 74 2a 27 20 69 73 20 74 6f 20 60 6c 65 74 27 2e 0a 53 54 45 50 46 4f 52 4d | .as.`let*'.is.to.`let'..STEPFORM |
| 2500 | 53 20 6d 75 73 74 20 62 65 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 6f 72 20 6c | S.must.be.a.list.of.symbols.or.l |
| 2520 | 69 73 74 73 2e 20 20 49 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 63 61 73 65 2c 20 74 68 65 0a 6c | ists...In.the.second.case,.the.l |
| 2540 | 69 73 74 73 20 6d 75 73 74 20 73 74 61 72 74 20 77 69 74 68 20 61 20 73 79 6d 62 6f 6c 20 61 6e | ists.must.start.with.a.symbol.an |
| 2560 | 64 20 63 6f 6e 74 61 69 6e 20 75 70 20 74 6f 20 74 77 6f 20 6d 6f 72 65 20 66 6f 72 6d 73 2e 20 | d.contain.up.to.two.more.forms.. |
| 2580 | 49 6e 0a 74 68 65 20 53 54 45 50 46 4f 52 4d 53 2c 20 61 20 73 79 6d 62 6f 6c 20 69 73 20 74 68 | In.the.STEPFORMS,.a.symbol.is.th |
| 25a0 | 65 20 73 61 6d 65 20 61 73 20 61 20 28 73 79 6d 62 6f 6c 29 2e 20 20 54 68 65 20 6f 74 68 65 72 | e.same.as.a.(symbol)...The.other |
| 25c0 | 20 32 20 66 6f 72 6d 73 0a 61 72 65 20 74 68 65 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 28 | .2.forms.are.the.initial.value.( |
| 25e0 | 64 65 66 2e 20 4e 49 4c 29 20 61 6e 64 20 74 68 65 20 66 6f 72 6d 20 74 6f 20 73 74 65 70 20 28 | def..NIL).and.the.form.to.step.( |
| 2600 | 64 65 66 2e 20 69 74 73 65 6c 66 29 2e 0a 49 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 73 20 61 6e | def..itself)..Initializations.an |
| 2620 | 64 20 73 74 65 70 70 69 6e 67 73 20 61 72 65 20 64 6f 6e 65 20 69 6e 20 74 68 65 20 73 65 71 75 | d.steppings.are.done.in.the.sequ |
| 2640 | 65 6e 63 65 20 74 68 65 79 20 61 72 65 20 77 72 69 74 74 65 6e 2e 0a 54 68 65 20 45 4e 44 46 4f | ence.they.are.written..The.ENDFO |
| 2660 | 52 4d 53 20 61 72 65 20 61 20 6c 69 73 74 20 28 43 4f 4e 44 49 54 49 4f 4e 20 2e 20 45 4e 44 42 | RMS.are.a.list.(CONDITION...ENDB |
| 2680 | 4f 44 59 29 2e 20 20 49 66 20 74 68 65 20 43 4f 4e 44 49 54 49 4f 4e 0a 65 76 61 6c 75 61 74 65 | ODY)...If.the.CONDITION.evaluate |
| 26a0 | 73 20 74 6f 20 74 72 75 65 20 69 6e 20 61 6e 79 20 69 74 65 72 61 74 69 6f 6e 2c 20 45 4e 44 42 | s.to.true.in.any.iteration,.ENDB |
| 26c0 | 4f 44 59 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 61 6e 64 20 74 68 65 20 6c 61 73 74 0a 66 6f | ODY.is.evaluated.and.the.last.fo |
| 26e0 | 72 6d 20 69 6e 20 69 74 20 69 73 20 72 65 74 75 72 6e 65 64 2e 0a 54 68 65 20 42 4f 44 59 20 28 | rm.in.it.is.returned..The.BODY.( |
| 2700 | 77 68 69 63 68 20 6d 61 79 20 62 65 20 65 6d 70 74 79 29 20 69 73 20 65 76 61 6c 75 61 74 65 64 | which.may.be.empty).is.evaluated |
| 2720 | 20 61 74 20 65 76 65 72 79 20 69 74 65 72 61 74 69 6f 6e 2c 20 77 69 74 68 0a 74 68 65 20 73 79 | .at.every.iteration,.with.the.sy |
| 2740 | 6d 62 6f 6c 73 20 6f 66 20 74 68 65 20 53 54 45 50 46 4f 52 4d 53 20 62 6f 75 6e 64 20 74 6f 20 | mbols.of.the.STEPFORMS.bound.to. |
| 2760 | 74 68 65 20 69 6e 69 74 69 61 6c 20 6f 72 20 73 74 65 70 70 65 64 20 76 61 6c 75 65 73 2e 22 20 | the.initial.or.stepped.values.". |
| 2780 | 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 21 83 5c 6e 00 c2 0b 21 88 c4 09 21 c5 09 21 0b 40 0b | (byte-code."..!.\n...!...!..!.@. |
| 27a0 | 41 1e 06 1e 07 1e 08 1e 09 ca 0e 09 cb cc 0e 07 44 cd 0e 0e 0e 08 5c 22 42 42 cd 0e 06 21 2c 42 | A...............D.....\"BB...!,B |
| 27c0 | 42 42 87 22 20 5b 63 68 65 63 6b 2d 64 6f 2d 73 74 65 70 66 6f 72 6d 73 20 73 74 65 70 66 6f 72 | BB.".[check-do-stepforms.stepfor |
| 27e0 | 6d 73 20 63 68 65 63 6b 2d 64 6f 2d 65 6e 64 66 6f 72 6d 73 20 65 6e 64 66 6f 72 6d 73 20 65 78 | ms.check-do-endforms.endforms.ex |
| 2800 | 74 72 61 63 74 2d 64 6f 2d 69 6e 69 74 73 20 65 78 74 72 61 63 74 2d 64 6f 2a 2d 73 74 65 70 73 | tract-do-inits.extract-do*-steps |
| 2820 | 20 65 6e 64 62 6f 64 79 20 65 6e 64 63 6f 6e 64 20 73 74 65 70 6c 69 73 74 20 69 6e 69 74 6c 69 | .endbody.endcond.steplist.initli |
| 2840 | 73 74 20 6c 65 74 2a 20 77 68 69 6c 65 20 6e 6f 74 20 61 70 70 65 6e 64 20 62 6f 64 79 5d 20 37 | st.let*.while.not.append.body].7 |
| 2860 | 29 29 0a 28 64 65 66 75 6e 20 63 68 65 63 6b 2d 64 6f 2d 73 74 65 70 66 6f 72 6d 73 20 28 66 6f | )).(defun.check-do-stepforms.(fo |
| 2880 | 72 6d 73 29 20 22 5c 0a 54 72 75 65 20 69 66 20 46 4f 52 4d 53 20 69 73 20 61 20 76 61 6c 69 64 | rms)."\.True.if.FORMS.is.a.valid |
| 28a0 | 20 73 74 65 70 66 6f 72 6d 73 20 66 6f 72 20 74 68 65 20 64 6f 5b 2a 5d 20 6d 61 63 72 6f 20 28 | .stepforms.for.the.do[*].macro.( |
| 28c0 | 71 2e 76 2e 29 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3c 84 0c 00 c1 c2 c3 08 21 5c 22 87 | q.v.)".(byte-code.".<.......!\". |
| 28e0 | c4 c5 08 5c 22 87 22 20 5b 66 6f 72 6d 73 20 65 72 72 6f 72 20 22 49 6e 69 74 2f 53 74 65 70 20 | ...\".".[forms.error."Init/Step. |
| 2900 | 66 6f 72 6d 20 66 6f 72 20 64 6f 5b 2a 5d 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 73 74 2c | form.for.do[*].should.be.a.list, |
| 2920 | 20 6e 6f 74 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6d 61 70 63 61 | .not.`%s'".prin1-to-string.mapca |
| 2940 | 72 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 39 | r.(lambda.(entry).(byte-code.".9 |
| 2960 | 84 17 00 08 3c 83 19 00 08 40 39 83 19 00 08 47 c1 57 83 19 00 c2 87 c3 c4 c5 08 21 5c 22 87 22 | ....<....@9....G.W.........!\"." |
| 2980 | 20 5b 65 6e 74 72 79 20 34 20 74 20 65 72 72 6f 72 20 22 49 6e 69 74 2f 53 74 65 70 20 6d 75 73 | .[entry.4.t.error."Init/Step.mus |
| 29a0 | 74 20 62 65 20 73 79 6d 62 6f 6c 20 6f 72 20 28 73 79 6d 62 6f 6c 20 5b 69 6e 69 74 20 5b 73 74 | t.be.symbol.or.(symbol.[init.[st |
| 29c0 | 65 70 5d 5d 29 2c 20 6e 6f 74 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 | ep]]),.not.`%s'".prin1-to-string |
| 29e0 | 5d 20 34 29 29 5d 20 34 29 29 0a 28 64 65 66 75 6e 20 63 68 65 63 6b 2d 64 6f 2d 65 6e 64 66 6f | ].4))].4)).(defun.check-do-endfo |
| 2a00 | 72 6d 73 20 28 66 6f 72 6d 73 29 20 22 5c 0a 54 72 75 65 20 69 66 20 46 4f 52 4d 53 20 69 73 20 | rms.(forms)."\.True.if.FORMS.is. |
| 2a20 | 61 20 76 61 6c 69 64 20 65 6e 64 66 6f 72 6d 73 20 66 6f 72 20 74 68 65 20 64 6f 5b 2a 5d 20 6d | a.valid.endforms.for.the.do[*].m |
| 2a40 | 61 63 72 6f 20 28 71 2e 76 2e 29 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3c 83 07 00 c1 87 | acro.(q.v.)".(byte-code.".<..... |
| 2a60 | c2 c3 c4 08 21 5c 22 87 22 20 5b 66 6f 72 6d 73 20 74 20 65 72 72 6f 72 20 22 54 65 72 6d 69 6e | ....!\".".[forms.t.error."Termin |
| 2a80 | 61 74 69 6f 6e 20 66 6f 72 6d 20 66 6f 72 20 64 6f 20 6d 61 63 72 6f 20 73 68 6f 75 6c 64 20 62 | ation.form.for.do.macro.should.b |
| 2aa0 | 65 20 61 20 6c 69 73 74 2c 20 6e 6f 74 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 | e.a.list,.not.`%s'".prin1-to-str |
| 2ac0 | 69 6e 67 5d 20 34 29 29 0a 28 64 65 66 75 6e 20 65 78 74 72 61 63 74 2d 64 6f 2d 69 6e 69 74 73 | ing].4)).(defun.extract-do-inits |
| 2ae0 | 20 28 66 6f 72 6d 73 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 74 68 | .(forms)."\.Returns.a.list.of.th |
| 2b00 | 65 20 69 6e 69 74 69 61 6c 69 7a 61 74 69 6f 6e 73 20 28 66 6f 72 20 64 6f 29 20 69 6e 20 46 4f | e.initializations.(for.do).in.FO |
| 2b20 | 52 4d 53 0a 2d 61 20 73 74 65 70 66 6f 72 6d 73 2c 20 73 65 65 20 74 68 65 20 64 6f 20 6d 61 63 | RMS.-a.stepforms,.see.the.do.mac |
| 2b40 | 72 6f 2d 2e 20 46 6f 72 6d 73 20 69 73 20 61 73 73 75 6d 65 64 20 73 79 6e 74 61 63 74 69 63 61 | ro-..Forms.is.assumed.syntactica |
| 2b60 | 6c 6c 79 20 76 61 6c 69 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 5c 6e 5c 22 87 22 | lly.valid.".(byte-code."..\n\"." |
| 2b80 | 20 5b 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 20 28 62 79 74 65 2d 63 | .[mapcar.(lambda.(entry).(byte-c |
| 2ba0 | 6f 64 65 20 22 08 39 83 09 00 08 c1 44 87 08 3c 85 14 00 08 40 c2 08 21 44 87 22 20 5b 65 6e 74 | ode.".9.....D..<....@..!D.".[ent |
| 2bc0 | 72 79 20 6e 69 6c 20 63 61 64 72 5d 20 33 29 29 20 66 6f 72 6d 73 5d 20 33 29 29 0a 28 64 65 66 | ry.nil.cadr].3)).forms].3)).(def |
| 2be0 | 75 6e 20 65 78 74 72 61 63 74 2d 64 6f 2d 73 74 65 70 73 20 28 66 6f 72 6d 73 29 20 22 5c 0a 45 | un.extract-do-steps.(forms)."\.E |
| 2c00 | 58 54 52 41 43 54 2d 44 4f 2d 53 54 45 50 53 20 46 4f 52 4d 53 20 3d 3e 20 61 6e 20 73 2d 65 78 | XTRACT-DO-STEPS.FORMS.=>.an.s-ex |
| 2c20 | 70 72 0a 46 4f 52 4d 53 20 69 73 20 74 68 65 20 73 74 65 70 66 6f 72 6d 73 20 70 61 72 74 20 6f | pr.FORMS.is.the.stepforms.part.o |
| 2c40 | 66 20 61 20 44 4f 20 6d 61 63 72 6f 20 28 71 2e 76 2e 29 2e 20 20 54 68 69 73 20 66 75 6e 63 74 | f.a.DO.macro.(q.v.)...This.funct |
| 2c60 | 69 6f 6e 0a 63 6f 6e 73 74 72 75 63 74 73 20 61 6e 20 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 74 | ion.constructs.an.s-expression.t |
| 2c80 | 68 61 74 20 64 6f 65 73 20 74 68 65 20 73 74 65 70 70 69 6e 67 20 61 74 20 74 68 65 20 65 6e 64 | hat.does.the.stepping.at.the.end |
| 2ca0 | 20 6f 66 20 61 6e 0a 69 74 65 72 61 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 | .of.an.iteration.".(byte-code.". |
| 2cc0 | c1 5c 6e 21 42 43 87 22 20 5b 70 73 65 74 71 20 73 65 6c 65 63 74 2d 73 74 65 70 70 69 6e 67 2d | .\n!BC.".[psetq.select-stepping- |
| 2ce0 | 66 6f 72 6d 73 20 66 6f 72 6d 73 5d 20 33 29 29 0a 28 64 65 66 75 6e 20 65 78 74 72 61 63 74 2d | forms.forms].3)).(defun.extract- |
| 2d00 | 64 6f 2a 2d 73 74 65 70 73 20 28 66 6f 72 6d 73 29 20 22 5c 0a 45 58 54 52 41 43 54 2d 44 4f 2a | do*-steps.(forms)."\.EXTRACT-DO* |
| 2d20 | 2d 53 54 45 50 53 20 46 4f 52 4d 53 20 3d 3e 20 61 6e 20 73 2d 65 78 70 72 0a 46 4f 52 4d 53 20 | -STEPS.FORMS.=>.an.s-expr.FORMS. |
| 2d40 | 69 73 20 74 68 65 20 73 74 65 70 66 6f 72 6d 73 20 70 61 72 74 20 6f 66 20 61 20 44 4f 2a 20 6d | is.the.stepforms.part.of.a.DO*.m |
| 2d60 | 61 63 72 6f 20 28 71 2e 76 2e 29 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 0a 63 6f 6e 73 | acro.(q.v.)...This.function.cons |
| 2d80 | 74 72 75 63 74 73 20 61 6e 20 73 2d 65 78 70 72 65 73 73 69 6f 6e 20 74 68 61 74 20 64 6f 65 73 | tructs.an.s-expression.that.does |
| 2da0 | 20 74 68 65 20 73 74 65 70 70 69 6e 67 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 61 6e 0a 69 | .the.stepping.at.the.end.of.an.i |
| 2dc0 | 74 65 72 61 74 69 6f 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 5c 6e 21 42 43 87 22 | teration.".(byte-code."..\n!BC." |
| 2de0 | 20 5b 73 65 74 71 20 73 65 6c 65 63 74 2d 73 74 65 70 70 69 6e 67 2d 66 6f 72 6d 73 20 66 6f 72 | .[setq.select-stepping-forms.for |
| 2e00 | 6d 73 5d 20 33 29 29 0a 28 64 65 66 75 6e 20 73 65 6c 65 63 74 2d 73 74 65 70 70 69 6e 67 2d 66 | ms].3)).(defun.select-stepping-f |
| 2e20 | 6f 72 6d 73 20 28 66 6f 72 6d 73 29 20 22 5c 0a 53 65 70 61 72 61 74 65 20 6f 6e 6c 79 20 74 68 | orms.(forms)."\.Separate.only.th |
| 2e40 | 65 20 66 6f 72 6d 73 20 74 68 61 74 20 63 61 75 73 65 20 73 74 65 70 70 69 6e 67 2e 22 20 28 62 | e.forms.that.cause.stepping.".(b |
| 2e60 | 79 74 65 2d 63 6f 64 65 20 22 c0 09 c0 1a 1b 1c 0b 83 2a 00 0b 40 89 12 3c 83 23 00 5c 6e 47 c5 | yte-code."........*..@..<.#.\nG. |
| 2e80 | 55 83 23 00 c6 c7 5c 6e 21 5c 6e 40 44 0c 5c 22 14 0b 41 89 13 84 5c 6e 00 c8 0c 21 2b 87 22 20 | U.#...\n!\n@D.\"..A...\n...!+.". |
| 2ea0 | 5b 6e 69 6c 20 66 6f 72 6d 73 20 65 6e 74 72 79 20 70 74 72 20 72 65 73 75 6c 74 20 33 20 61 70 | [nil.forms.entry.ptr.result.3.ap |
| 2ec0 | 70 65 6e 64 20 63 61 64 64 72 20 6e 72 65 76 65 72 73 65 5d 20 34 29 29 0a 28 64 65 66 6d 61 63 | pend.caddr.nreverse].4)).(defmac |
| 2ee0 | 72 6f 20 64 6f 6c 69 73 74 20 28 73 74 65 70 66 6f 72 6d 20 26 72 65 73 74 20 62 6f 64 79 29 20 | ro.dolist.(stepform.&rest.body). |
| 2f00 | 22 5c 0a 28 64 6f 6c 69 73 74 20 28 56 41 52 20 4c 49 53 54 20 5b 52 45 53 55 4c 54 46 4f 52 4d | "\.(dolist.(VAR.LIST.[RESULTFORM |
| 2f20 | 5d 29 20 2e 20 42 4f 44 59 29 3a 20 64 6f 20 42 4f 44 59 20 66 6f 72 20 65 61 63 68 20 65 6c 74 | ])...BODY):.do.BODY.for.each.elt |
| 2f40 | 20 6f 66 20 4c 49 53 54 2e 0a 54 68 65 20 52 45 53 55 4c 54 46 4f 52 4d 20 64 65 66 61 75 6c 74 | .of.LIST..The.RESULTFORM.default |
| 2f60 | 73 20 74 6f 20 6e 69 6c 2e 20 20 54 68 65 20 56 41 52 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 73 | s.to.nil...The.VAR.is.bound.to.s |
| 2f80 | 75 63 63 65 73 73 69 76 65 0a 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 68 65 20 76 61 6c 75 65 20 | uccessive.elements.of.the.value. |
| 2fa0 | 6f 66 20 4c 49 53 54 20 61 6e 64 20 72 65 6d 61 69 6e 73 20 62 6f 75 6e 64 20 28 74 6f 20 74 68 | of.LIST.and.remains.bound.(to.th |
| 2fc0 | 65 20 6e 69 6c 20 76 61 6c 75 65 29 20 77 68 65 6e 20 74 68 65 0a 52 45 53 55 4c 54 46 4f 52 4d | e.nil.value).when.the.RESULTFORM |
| 2fe0 | 20 69 73 20 65 76 61 6c 75 61 74 65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3c 84 0f | .is.evaluated.".(byte-code.".<.. |
| 3000 | 00 c1 c2 c3 08 21 5c 22 88 82 2e 00 08 40 39 84 20 00 c1 c4 c3 08 40 21 5c 22 88 82 2e 00 08 47 | .....!\".....@9.......@!\".....G |
| 3020 | c5 56 83 2e 00 c1 c6 c3 08 21 5c 22 88 08 40 1e 07 c8 08 21 1e 09 ca 08 21 1e 0b cc cd ce cf 0e | .V.......!\"..@....!....!....... |
| 3040 | 07 43 0e 10 42 42 44 0e 09 45 d1 0e 07 d2 44 43 0e 0b 45 45 2b 87 22 20 5b 73 74 65 70 66 6f 72 | .C..BBD..E....DC..EE+.".[stepfor |
| 3060 | 6d 20 65 72 72 6f 72 20 22 53 74 65 70 66 6f 72 6d 20 66 6f 72 20 60 64 6f 6c 69 73 74 27 20 73 | m.error."Stepform.for.`dolist'.s |
| 3080 | 68 6f 75 6c 64 20 62 65 20 28 56 41 52 20 4c 49 53 54 20 5b 52 45 53 55 4c 54 5d 29 2c 20 6e 6f | hould.be.(VAR.LIST.[RESULT]),.no |
| 30a0 | 74 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 22 46 69 72 73 74 20 63 | t.`%s'".prin1-to-string."First.c |
| 30c0 | 6f 6d 70 6f 6e 65 6e 74 20 6f 66 20 73 74 65 70 66 6f 72 6d 20 73 68 6f 75 6c 64 20 62 65 20 61 | omponent.of.stepform.should.be.a |
| 30e0 | 20 73 79 6d 62 6f 6c 2c 20 6e 6f 74 20 60 25 73 27 22 20 33 20 22 54 6f 6f 20 6d 61 6e 79 20 63 | .symbol,.not.`%s'".3."Too.many.c |
| 3100 | 6f 6d 70 6f 6e 65 6e 74 73 20 69 6e 20 73 74 65 70 66 6f 72 6d 20 60 25 73 27 22 20 76 61 72 20 | omponents.in.stepform.`%s'".var. |
| 3120 | 63 61 64 72 20 6c 69 73 74 66 6f 72 6d 20 63 61 64 64 72 20 72 65 73 75 6c 74 66 6f 72 6d 20 70 | cadr.listform.caddr.resultform.p |
| 3140 | 72 6f 67 6e 20 6d 61 70 63 61 72 20 66 75 6e 63 74 69 6f 6e 20 6c 61 6d 62 64 61 20 62 6f 64 79 | rogn.mapcar.function.lambda.body |
| 3160 | 20 6c 65 74 20 6e 69 6c 5d 20 36 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 64 6f 74 69 6d 65 73 20 | .let.nil].6)).(defmacro.dotimes. |
| 3180 | 28 73 74 65 70 66 6f 72 6d 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c 0a 28 64 6f 74 69 6d 65 | (stepform.&rest.body)."\.(dotime |
| 31a0 | 73 20 28 56 41 52 20 43 4f 55 4e 54 46 4f 52 4d 20 5b 52 45 53 55 4c 54 46 4f 52 4d 5d 29 20 2e | s.(VAR.COUNTFORM.[RESULTFORM]).. |
| 31c0 | 20 20 42 4f 44 59 29 3a 20 52 65 70 65 61 74 20 42 4f 44 59 2c 20 63 6f 75 6e 74 69 6e 67 20 69 | ..BODY):.Repeat.BODY,.counting.i |
| 31e0 | 6e 20 56 41 52 2e 0a 54 68 65 20 43 4f 55 4e 54 46 4f 52 4d 20 73 68 6f 75 6c 64 20 72 65 74 75 | n.VAR..The.COUNTFORM.should.retu |
| 3200 | 72 6e 20 61 20 70 6f 73 69 74 69 76 65 20 69 6e 74 65 67 65 72 2e 20 20 54 68 65 20 56 41 52 20 | rn.a.positive.integer...The.VAR. |
| 3220 | 69 73 20 62 6f 75 6e 64 20 74 6f 0a 73 75 63 63 65 73 73 69 76 65 20 69 6e 74 65 67 65 72 73 20 | is.bound.to.successive.integers. |
| 3240 | 66 72 6f 6d 20 30 20 74 6f 20 43 4f 55 4e 54 46 4f 52 4d 2d 31 20 61 6e 64 20 74 68 65 20 42 4f | from.0.to.COUNTFORM-1.and.the.BO |
| 3260 | 44 59 20 69 73 20 72 65 70 65 61 74 65 64 20 66 6f 72 0a 65 61 63 68 20 6f 66 20 74 68 65 6d 2e | DY.is.repeated.for.each.of.them. |
| 3280 | 20 20 41 74 20 74 68 65 20 65 6e 64 2c 20 74 68 65 20 52 45 53 55 4c 54 46 4f 52 4d 20 69 73 20 | ..At.the.end,.the.RESULTFORM.is. |
| 32a0 | 65 76 61 6c 75 61 74 65 64 20 61 6e 64 20 69 74 73 20 76 61 6c 75 65 0a 72 65 74 75 72 6e 65 64 | evaluated.and.its.value.returned |
| 32c0 | 2e 20 44 75 72 69 6e 67 20 74 68 69 73 20 6c 61 73 74 20 65 76 61 6c 75 61 74 69 6f 6e 2c 20 74 | ..During.this.last.evaluation,.t |
| 32e0 | 68 65 20 56 41 52 20 69 73 20 73 74 69 6c 6c 20 62 6f 75 6e 64 2c 20 61 6e 64 20 69 74 73 0a 76 | he.VAR.is.still.bound,.and.its.v |
| 3300 | 61 6c 75 65 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 69 6d 65 73 20 74 68 65 20 | alue.is.the.number.of.times.the. |
| 3320 | 69 74 65 72 61 74 69 6f 6e 20 6f 63 63 75 72 72 65 64 2e 20 41 6e 20 6f 6d 69 74 74 65 64 20 52 | iteration.occurred..An.omitted.R |
| 3340 | 45 53 55 4c 54 46 4f 52 4d 0a 64 65 66 61 75 6c 74 73 20 74 6f 20 6e 69 6c 2e 22 20 28 62 79 74 | ESULTFORM.defaults.to.nil.".(byt |
| 3360 | 65 2d 63 6f 64 65 20 22 08 3c 84 0f 00 c1 c2 c3 08 21 5c 22 88 82 2e 00 08 40 39 84 20 00 c1 c4 | e-code.".<.......!\".....@9..... |
| 3380 | c3 08 40 21 5c 22 88 82 2e 00 08 47 c5 56 83 2e 00 c1 c6 c3 08 21 5c 22 88 08 40 1e 07 c8 08 21 | ..@!\".....G.V.......!\"..@....! |
| 33a0 | 1e 09 ca 08 21 1e 0b cc 20 1e 0d ce 0e 0d 0e 09 44 43 cf d0 0e 07 d1 d2 0e 07 d3 45 45 43 d4 0e | ....!...........DC.........EEC.. |
| 33c0 | 07 0e 0d 45 0e 0b 44 0e 15 24 45 2c 87 22 20 5b 73 74 65 70 66 6f 72 6d 20 65 72 72 6f 72 20 22 | ...E..D..$E,.".[stepform.error." |
| 33e0 | 53 74 65 70 66 6f 72 6d 20 66 6f 72 20 60 64 6f 74 69 6d 65 73 27 20 73 68 6f 75 6c 64 20 62 65 | Stepform.for.`dotimes'.should.be |
| 3400 | 20 28 56 41 52 20 43 4f 55 4e 54 20 5b 52 45 53 55 4c 54 5d 29 2c 20 6e 6f 74 20 60 25 73 27 22 | .(VAR.COUNT.[RESULT]),.not.`%s'" |
| 3420 | 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 22 46 69 72 73 74 20 63 6f 6d 70 6f 6e 65 6e | .prin1-to-string."First.componen |
| 3440 | 74 20 6f 66 20 73 74 65 70 66 6f 72 6d 20 73 68 6f 75 6c 64 20 62 65 20 61 20 73 79 6d 62 6f 6c | t.of.stepform.should.be.a.symbol |
| 3460 | 2c 20 6e 6f 74 20 60 25 73 27 22 20 33 20 22 54 6f 6f 20 6d 61 6e 79 20 63 6f 6d 70 6f 6e 65 6e | ,.not.`%s'".3."Too.many.componen |
| 3480 | 74 73 20 69 6e 20 73 74 65 70 66 6f 72 6d 20 60 25 73 27 22 20 76 61 72 20 63 61 64 72 20 63 6f | ts.in.stepform.`%s'".var.cadr.co |
| 34a0 | 75 6e 74 66 6f 72 6d 20 63 61 64 64 72 20 72 65 73 75 6c 74 66 6f 72 6d 20 67 65 6e 74 65 6d 70 | untform.caddr.resultform.gentemp |
| 34c0 | 20 6e 65 77 73 79 6d 20 6c 65 74 2a 20 6c 69 73 74 2a 20 64 6f 2a 20 30 20 2b 20 31 20 3e 3d 20 | .newsym.let*.list*.do*.0.+.1.>=. |
| 34e0 | 62 6f 64 79 5d 20 39 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 64 6f 2d 73 79 6d 62 6f 6c 73 20 28 | body].9)).(defmacro.do-symbols.( |
| 3500 | 73 74 65 70 66 6f 72 6d 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c 0a 28 64 6f 5f 73 79 6d 62 | stepform.&rest.body)."\.(do_symb |
| 3520 | 6f 6c 73 20 28 56 41 52 20 5b 4f 42 41 52 52 41 59 20 5b 52 45 53 55 4c 54 46 4f 52 4d 5d 5d 29 | ols.(VAR.[OBARRAY.[RESULTFORM]]) |
| 3540 | 20 2e 20 42 4f 44 59 29 0a 54 68 65 20 56 41 52 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 65 61 63 | ...BODY).The.VAR.is.bound.to.eac |
| 3560 | 68 20 6f 66 20 74 68 65 20 73 79 6d 62 6f 6c 73 20 69 6e 20 4f 42 41 52 52 41 59 20 28 64 65 66 | h.of.the.symbols.in.OBARRAY.(def |
| 3580 | 2e 20 6f 62 61 72 72 61 79 29 20 61 6e 64 0a 74 68 65 20 42 4f 44 59 20 69 73 20 72 65 70 65 61 | ..obarray).and.the.BODY.is.repea |
| 35a0 | 74 65 64 6c 79 20 70 65 72 66 6f 72 6d 65 64 20 66 6f 72 20 65 61 63 68 20 6f 66 20 74 68 6f 73 | tedly.performed.for.each.of.thos |
| 35c0 | 65 20 62 69 6e 64 69 6e 67 73 2e 20 41 74 20 74 68 65 0a 65 6e 64 2c 20 52 45 53 55 4c 54 46 4f | e.bindings..At.the.end,.RESULTFO |
| 35e0 | 52 4d 20 28 64 65 66 2e 20 6e 69 6c 29 20 69 73 20 65 76 61 6c 75 61 74 65 64 20 61 6e 64 20 69 | RM.(def..nil).is.evaluated.and.i |
| 3600 | 74 73 20 76 61 6c 75 65 20 72 65 74 75 72 6e 65 64 2e 0a 44 75 72 69 6e 67 20 74 68 69 73 20 6c | ts.value.returned..During.this.l |
| 3620 | 61 73 74 20 65 76 61 6c 75 61 74 69 6f 6e 2c 20 74 68 65 20 56 41 52 20 69 73 20 73 74 69 6c 6c | ast.evaluation,.the.VAR.is.still |
| 3640 | 20 62 6f 75 6e 64 20 61 6e 64 20 69 74 73 20 76 61 6c 75 65 20 69 73 20 6e 69 6c 2e 0a 53 65 65 | .bound.and.its.value.is.nil..See |
| 3660 | 20 61 6c 73 6f 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 60 6d 61 70 61 74 6f 6d 73 27 2e 22 20 | .also.the.function.`mapatoms'.". |
| 3680 | 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3c 84 0f 00 c1 c2 c3 08 21 5c 22 88 82 2e 00 08 40 39 84 | (byte-code.".<.......!\".....@9. |
| 36a0 | 20 00 c1 c4 c3 08 40 21 5c 22 88 82 2e 00 08 47 c5 56 83 2e 00 c1 c6 c3 08 21 5c 22 88 08 40 1e | ......@!\".....G.V.......!\"..@. |
| 36c0 | 07 c8 08 21 1e 09 ca 08 21 1e 0b cc cd ce cf 0e 07 43 0e 10 42 42 44 0e 09 45 d1 0e 07 d2 44 43 | ...!....!........C..BBD..E....DC |
| 36e0 | 0e 0b 45 45 2b 87 22 20 5b 73 74 65 70 66 6f 72 6d 20 65 72 72 6f 72 20 22 53 74 65 70 66 6f 72 | ..EE+.".[stepform.error."Stepfor |
| 3700 | 6d 20 66 6f 72 20 60 64 6f 2d 73 79 6d 62 6f 6c 73 27 20 73 68 6f 75 6c 64 20 62 65 20 28 56 41 | m.for.`do-symbols'.should.be.(VA |
| 3720 | 52 20 4f 42 41 52 52 41 59 20 5b 52 45 53 55 4c 54 5d 29 2c 20 6e 6f 74 20 60 25 73 27 22 20 70 | R.OBARRAY.[RESULT]),.not.`%s'".p |
| 3740 | 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 22 46 69 72 73 74 20 63 6f 6d 70 6f 6e 65 6e 74 20 | rin1-to-string."First.component. |
| 3760 | 6f 66 20 73 74 65 70 66 6f 72 6d 20 73 68 6f 75 6c 64 20 62 65 20 61 20 73 79 6d 62 6f 6c 2c 20 | of.stepform.should.be.a.symbol,. |
| 3780 | 6e 6f 74 20 60 25 73 27 22 20 33 20 22 54 6f 6f 20 6d 61 6e 79 20 63 6f 6d 70 6f 6e 65 6e 74 73 | not.`%s'".3."Too.many.components |
| 37a0 | 20 69 6e 20 73 74 65 70 66 6f 72 6d 20 60 25 73 27 22 20 76 61 72 20 63 61 64 72 20 6f 62 6c 69 | .in.stepform.`%s'".var.cadr.obli |
| 37c0 | 73 74 20 63 61 64 64 72 20 72 65 73 75 6c 74 66 6f 72 6d 20 70 72 6f 67 6e 20 6d 61 70 61 74 6f | st.caddr.resultform.progn.mapato |
| 37e0 | 6d 73 20 66 75 6e 63 74 69 6f 6e 20 6c 61 6d 62 64 61 20 62 6f 64 79 20 6c 65 74 20 6e 69 6c 5d | ms.function.lambda.body.let.nil] |
| 3800 | 20 36 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 64 6f 2d 61 6c 6c 2d 73 79 6d 62 6f 6c 73 20 28 73 | .6)).(defmacro.do-all-symbols.(s |
| 3820 | 74 65 70 66 6f 72 6d 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c 0a 28 64 6f 2d 61 6c 6c 2d 73 | tepform.&rest.body)."\.(do-all-s |
| 3840 | 79 6d 62 6f 6c 73 20 28 56 41 52 20 5b 52 45 53 55 4c 54 46 4f 52 4d 5d 29 20 2e 20 42 4f 44 59 | ymbols.(VAR.[RESULTFORM])...BODY |
| 3860 | 29 0a 49 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 28 64 6f 2d 73 79 6d 62 6f 6c 73 20 28 56 41 | ).Is.the.same.as.(do-symbols.(VA |
| 3880 | 52 20 6f 62 61 72 72 61 79 20 52 45 53 55 4c 54 46 4f 52 4d 29 20 2e 20 42 4f 44 59 29 2e 22 20 | R.obarray.RESULTFORM)...BODY).". |
| 38a0 | 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 5c 6e 40 c3 c4 5c 6e 21 45 0d 23 87 22 20 5b 6c 69 73 | (byte-code."..\n@..\n!E.#.".[lis |
| 38c0 | 74 2a 20 64 6f 2d 73 79 6d 62 6f 6c 73 20 73 74 65 70 66 6f 72 6d 20 6f 62 61 72 72 61 79 20 63 | t*.do-symbols.stepform.obarray.c |
| 38e0 | 61 64 72 20 62 6f 64 79 5d 20 36 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 6c 6f 6f 70 20 28 26 72 | adr.body].6)).(defmacro.loop.(&r |
| 3900 | 65 73 74 20 62 6f 64 79 29 20 22 5c 0a 28 6c 6f 6f 70 20 2e 20 42 4f 44 59 29 20 72 65 70 65 61 | est.body)."\.(loop...BODY).repea |
| 3920 | 74 73 20 42 4f 44 59 20 69 6e 64 65 66 69 6e 69 74 65 6c 79 20 61 6e 64 20 64 6f 65 73 20 6e 6f | ts.BODY.indefinitely.and.does.no |
| 3940 | 74 20 72 65 74 75 72 6e 2e 0a 4e 6f 72 6d 61 6c 6c 79 20 42 4f 44 59 20 75 73 65 73 20 60 74 68 | t.return..Normally.BODY.uses.`th |
| 3960 | 72 6f 77 27 20 6f 72 20 60 73 69 67 6e 61 6c 27 20 74 6f 20 63 61 75 73 65 20 61 6e 20 65 78 69 | row'.or.`signal'.to.cause.an.exi |
| 3980 | 74 2e 0a 54 68 65 20 66 6f 72 6d 73 20 69 6e 20 42 4f 44 59 20 73 68 6f 75 6c 64 20 62 65 20 6c | t..The.forms.in.BODY.should.be.l |
| 39a0 | 69 73 74 73 2c 20 61 73 20 6e 6f 6e 2d 6c 69 73 74 73 20 61 72 65 20 72 65 73 65 72 76 65 64 20 | ists,.as.non-lists.are.reserved. |
| 39c0 | 66 6f 72 20 6e 65 77 20 66 65 61 74 75 72 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 | for.new.features.".(byte-code.". |
| 39e0 | 3c 84 09 00 c1 c2 21 87 c3 c4 08 5c 22 88 c5 c6 08 42 42 87 22 20 5b 62 6f 64 79 20 65 72 72 6f | <.....!....\"....BB.".[body.erro |
| 3a00 | 72 20 22 42 6f 64 79 20 6f 66 20 60 6c 6f 6f 70 27 20 73 68 6f 75 6c 64 20 62 65 20 61 20 6c 69 | r."Body.of.`loop'.should.be.a.li |
| 3a20 | 73 74 20 6f 66 20 6c 69 73 74 73 20 6f 72 20 6e 69 6c 22 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 | st.of.lists.or.nil".mapcar.(lamb |
| 3a40 | 64 61 20 28 63 6f 6d 70 6f 6e 65 6e 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3c 3f 85 09 | da.(component).(byte-code.".<?.. |
| 3a60 | 00 c1 c2 21 87 22 20 5b 63 6f 6d 70 6f 6e 65 6e 74 20 65 72 72 6f 72 20 22 43 6f 6d 70 6f 6e 65 | ...!.".[component.error."Compone |
| 3a80 | 6e 74 73 20 6f 66 20 60 6c 6f 6f 70 27 20 73 68 6f 75 6c 64 20 62 65 20 6c 69 73 74 73 22 5d 20 | nts.of.`loop'.should.be.lists"]. |
| 3aa0 | 32 29 29 20 77 68 69 6c 65 20 74 5d 20 33 29 29 0a 28 64 65 66 75 6e 20 66 69 72 73 74 20 28 78 | 2)).while.t].3)).(defun.first.(x |
| 3ac0 | 29 20 22 5c 0a 53 79 6e 6f 6e 79 6d 20 66 6f 72 20 60 63 61 72 27 22 20 28 62 79 74 65 2d 63 6f | )."\.Synonym.for.`car'".(byte-co |
| 3ae0 | 64 65 20 22 08 40 87 22 20 5b 78 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 73 65 63 6f 6e 64 20 28 | de.".@.".[x].1)).(defun.second.( |
| 3b00 | 78 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 73 65 63 6f 6e 64 20 65 6c 65 6d 65 6e 74 20 | x)."\.Return.the.second.element. |
| 3b20 | 6f 66 20 74 68 65 20 6c 69 73 74 20 4c 49 53 54 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 | of.the.list.LIST.".(byte-code.". |
| 3b40 | 41 40 87 22 20 5b 78 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 74 68 69 72 64 20 28 78 29 20 22 5c | A@.".[x].1)).(defun.third.(x)."\ |
| 3b60 | 0a 52 65 74 75 72 6e 20 74 68 65 20 74 68 69 72 64 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 | .Return.the.third.element.of.the |
| 3b80 | 20 6c 69 73 74 20 4c 49 53 54 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 38 87 22 20 5b | .list.LIST.".(byte-code."..8.".[ |
| 3ba0 | 32 20 78 5d 20 32 29 29 0a 28 64 65 66 75 6e 20 66 6f 75 72 74 68 20 28 78 29 20 22 5c 0a 52 65 | 2.x].2)).(defun.fourth.(x)."\.Re |
| 3bc0 | 74 75 72 6e 20 74 68 65 20 66 6f 75 72 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c | turn.the.fourth.element.of.the.l |
| 3be0 | 69 73 74 20 4c 49 53 54 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 38 87 22 20 5b 33 20 | ist.LIST.".(byte-code."..8.".[3. |
| 3c00 | 78 5d 20 32 29 29 0a 28 64 65 66 75 6e 20 66 69 66 74 68 20 28 78 29 20 22 5c 0a 52 65 74 75 72 | x].2)).(defun.fifth.(x)."\.Retur |
| 3c20 | 6e 20 74 68 65 20 66 69 66 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 | n.the.fifth.element.of.the.list. |
| 3c40 | 4c 49 53 54 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 38 87 22 20 5b 34 20 78 5d 20 32 | LIST.".(byte-code."..8.".[4.x].2 |
| 3c60 | 29 29 0a 28 64 65 66 75 6e 20 73 69 78 74 68 20 28 78 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 | )).(defun.sixth.(x)."\.Return.th |
| 3c80 | 65 20 73 69 78 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 4c 49 53 54 | e.sixth.element.of.the.list.LIST |
| 3ca0 | 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 38 87 22 20 5b 35 20 78 5d 20 32 29 29 0a 28 | .".(byte-code."..8.".[5.x].2)).( |
| 3cc0 | 64 65 66 75 6e 20 73 65 76 65 6e 74 68 20 28 78 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 | defun.seventh.(x)."\.Return.the. |
| 3ce0 | 73 65 76 65 6e 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 4c 49 53 54 | seventh.element.of.the.list.LIST |
| 3d00 | 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 38 87 22 20 5b 36 20 78 5d 20 32 29 29 0a 28 | .".(byte-code."..8.".[6.x].2)).( |
| 3d20 | 64 65 66 75 6e 20 65 69 67 68 74 68 20 28 78 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 65 | defun.eighth.(x)."\.Return.the.e |
| 3d40 | 69 67 68 74 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 4c 49 53 54 2e 22 | ighth.element.of.the.list.LIST." |
| 3d60 | 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 38 87 22 20 5b 37 20 78 5d 20 32 29 29 0a 28 64 65 | .(byte-code."..8.".[7.x].2)).(de |
| 3d80 | 66 75 6e 20 6e 69 6e 74 68 20 28 78 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 6e 69 6e 74 | fun.ninth.(x)."\.Return.the.nint |
| 3da0 | 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 4c 49 53 54 2e 22 20 28 62 79 | h.element.of.the.list.LIST.".(by |
| 3dc0 | 74 65 2d 63 6f 64 65 20 22 c0 09 38 87 22 20 5b 38 20 78 5d 20 32 29 29 0a 28 64 65 66 75 6e 20 | te-code."..8.".[8.x].2)).(defun. |
| 3de0 | 74 65 6e 74 68 20 28 78 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 74 65 6e 74 68 20 65 6c | tenth.(x)."\.Return.the.tenth.el |
| 3e00 | 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 20 4c 49 53 54 2e 22 20 28 62 79 74 65 2d 63 | ement.of.the.list.LIST.".(byte-c |
| 3e20 | 6f 64 65 20 22 c0 09 38 87 22 20 5b 39 20 78 5d 20 32 29 29 0a 28 64 65 66 75 6e 20 72 65 73 74 | ode."..8.".[9.x].2)).(defun.rest |
| 3e40 | 20 28 78 29 20 22 5c 0a 53 79 6e 6f 6e 79 6d 20 66 6f 72 20 60 63 64 72 27 22 20 28 62 79 74 65 | .(x)."\.Synonym.for.`cdr'".(byte |
| 3e60 | 2d 63 6f 64 65 20 22 08 41 87 22 20 5b 78 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 65 6e 64 70 20 | -code.".A.".[x].1)).(defun.endp. |
| 3e80 | 28 78 29 20 22 5c 0a 74 20 69 66 20 58 20 69 73 20 6e 69 6c 2c 20 6e 69 6c 20 69 66 20 58 20 69 | (x)."\.t.if.X.is.nil,.nil.if.X.i |
| 3ea0 | 73 20 61 20 63 6f 6e 73 3b 20 65 72 72 6f 72 20 6f 74 68 65 72 77 69 73 65 2e 22 20 28 62 79 74 | s.a.cons;.error.otherwise.".(byt |
| 3ec0 | 65 2d 63 6f 64 65 20 22 08 3c 83 08 00 08 3f 87 c1 c2 c3 08 21 5c 22 87 22 20 5b 78 20 65 72 72 | e-code.".<....?.....!\".".[x.err |
| 3ee0 | 6f 72 20 22 65 6e 64 70 20 72 65 63 65 69 76 65 64 20 61 20 6e 6f 6e 2d 63 6f 6e 73 2c 20 6e 6f | or."endp.received.a.non-cons,.no |
| 3f00 | 6e 2d 6e 75 6c 6c 20 61 72 67 75 6d 65 6e 74 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 | n-null.argument.`%s'".prin1-to-s |
| 3f20 | 74 72 69 6e 67 5d 20 34 29 29 0a 28 64 65 66 75 6e 20 6c 61 73 74 20 28 78 29 20 22 5c 0a 52 65 | tring].4)).(defun.last.(x)."\.Re |
| 3f40 | 74 75 72 6e 73 20 74 68 65 20 6c 61 73 74 20 6c 69 6e 6b 20 69 6e 20 74 68 65 20 6c 69 73 74 20 | turns.the.last.link.in.the.list. |
| 3f60 | 4c 49 53 54 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3c 84 09 00 c1 c2 21 88 08 89 41 1b | LIST.".(byte-code.".<.....!...A. |
| 3f80 | 1c c5 0b 21 84 25 00 0c 41 0b 41 1e 06 89 1e 07 14 0e 06 13 2a 82 0e 00 0c 2a 87 22 20 5b 78 20 | ...!.%..A.A.........*....*.".[x. |
| 3fa0 | 65 72 72 6f 72 20 22 41 72 67 20 74 6f 20 60 6c 61 73 74 27 20 6d 75 73 74 20 62 65 20 61 20 6c | error."Arg.to.`last'.must.be.a.l |
| 3fc0 | 69 73 74 22 20 6e 65 78 74 2d 63 6f 6e 73 20 63 75 72 72 65 6e 74 2d 63 6f 6e 73 20 65 6e 64 70 | ist".next-cons.current-cons.endp |
| 3fe0 | 20 47 24 24 5f 36 30 39 20 47 24 24 5f 36 31 30 5d 20 33 29 29 0a 28 64 65 66 75 6e 20 6c 69 73 | .G$$_609.G$$_610].3)).(defun.lis |
| 4000 | 74 2d 6c 65 6e 67 74 68 20 28 78 29 20 22 5c 0a 52 65 74 75 72 6e 73 20 74 68 65 20 6c 65 6e 67 | t-length.(x)."\.Returns.the.leng |
| 4020 | 74 68 20 6f 66 20 61 20 6e 6f 6e 2d 63 69 72 63 75 6c 61 72 20 6c 69 73 74 2c 20 6f 72 20 60 6e | th.of.a.non-circular.list,.or.`n |
| 4040 | 69 6c 27 20 66 6f 72 20 61 20 63 69 72 63 75 6c 61 72 20 6f 6e 65 2e 22 20 28 62 79 74 65 2d 63 | il'.for.a.circular.one.".(byte-c |
| 4060 | 6f 64 65 20 22 c0 09 89 c2 1b 1c 1d 1e 06 0b 84 57 00 c7 0d 21 83 18 00 c8 13 82 45 00 c7 0d 41 | ode."...........W...!......E...A |
| 4080 | 21 83 2a 00 0e 06 c9 5c 5c 16 06 c8 13 82 45 00 0d 0c 3d 83 3f 00 0e 06 c0 56 83 3f 00 c2 16 06 | !.*....\\.....E...=.?....V.?.... |
| 40a0 | c8 13 82 45 00 0e 06 ca 5c 5c 16 06 cb 0d 21 0c 41 1e 0c 89 1e 0d 15 0e 0c 14 2a 82 09 00 0e 06 | ...E....\\....!.A.........*..... |
| 40c0 | 2c 87 22 20 5b 30 20 78 20 6e 69 6c 20 72 65 61 64 79 20 73 6c 6f 77 20 66 61 73 74 20 6e 20 65 | ,.".[0.x.nil.ready.slow.fast.n.e |
| 40e0 | 6e 64 70 20 74 20 31 20 32 20 63 64 64 72 20 47 24 24 5f 36 31 31 20 47 24 24 5f 36 31 32 5d 20 | ndp.t.1.2.cddr.G$$_611.G$$_612]. |
| 4100 | 35 29 29 0a 28 64 65 66 75 6e 20 6d 65 6d 62 65 72 20 28 69 74 65 6d 20 6c 69 73 74 29 20 22 5c | 5)).(defun.member.(item.list)."\ |
| 4120 | 0a 4c 6f 6f 6b 20 66 6f 72 20 49 54 45 4d 20 69 6e 20 4c 49 53 54 3b 20 72 65 74 75 72 6e 20 66 | .Look.for.ITEM.in.LIST;.return.f |
| 4140 | 69 72 73 74 20 6c 69 6e 6b 20 69 6e 20 4c 49 53 54 20 77 68 6f 73 65 20 63 61 72 20 69 73 20 60 | irst.link.in.LIST.whose.car.is.` |
| 4160 | 65 71 6c 27 20 74 6f 20 49 54 45 4d 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c1 89 1a 1b | eql'.to.ITEM.".(byte-code."..... |
| 4180 | 1c 0b 84 5c 22 00 c5 0c 21 84 5c 22 00 0e 06 0c 40 3d 83 1c 00 c7 13 0c 12 0c 41 14 82 06 00 5c | ...\"...!.\"....@=........A....\ |
| 41a0 | 6e 2b 87 22 20 5b 6c 69 73 74 20 6e 69 6c 20 72 65 73 75 6c 74 20 64 6f 6e 65 20 70 74 72 20 65 | n+.".[list.nil.result.done.ptr.e |
| 41c0 | 6e 64 70 20 69 74 65 6d 20 74 5d 20 33 29 29 0a 28 64 65 66 75 6e 20 62 75 74 6c 61 73 74 20 28 | ndp.item.t].3)).(defun.butlast.( |
| 41e0 | 6c 69 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 20 6e 65 | list.&optional.n)."\.Return.a.ne |
| 4200 | 77 20 6c 69 73 74 20 6c 69 6b 65 20 4c 49 53 54 20 62 75 74 20 73 61 6e 73 20 74 68 65 20 6c 61 | w.list.like.LIST.but.sans.the.la |
| 4220 | 73 74 20 4e 20 65 6c 65 6d 65 6e 74 73 2e 0a 4e 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 2e 20 | st.N.elements..N.defaults.to.1.. |
| 4240 | 20 49 66 20 74 68 65 20 6c 69 73 74 20 64 6f 65 73 6e 27 74 20 68 61 76 65 20 4e 20 65 6c 65 6d | .If.the.list.doesn't.have.N.elem |
| 4260 | 65 6e 74 73 2c 20 6e 69 6c 20 69 73 20 72 65 74 75 72 6e 65 64 2e 22 20 28 62 79 74 65 2d 63 6f | ents,.nil.is.returned.".(byte-co |
| 4280 | 64 65 20 22 08 84 06 00 c1 10 c2 c3 08 c2 0c 21 5c 22 21 87 22 20 5b 6e 20 31 20 72 65 76 65 72 | de."...........!\"!.".[n.1.rever |
| 42a0 | 73 65 20 6e 74 68 63 64 72 20 6c 69 73 74 5d 20 35 29 29 0a 28 64 65 66 75 6e 20 6c 69 73 74 2a | se.nthcdr.list].5)).(defun.list* |
| 42c0 | 20 28 61 72 67 20 26 72 65 73 74 20 6f 74 68 65 72 73 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 20 | .(arg.&rest.others)."\.Return.a. |
| 42e0 | 6e 65 77 20 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 66 69 72 73 74 20 61 72 | new.list.containing.the.first.ar |
| 4300 | 67 75 6d 65 6e 74 73 20 63 6f 6e 73 65 64 20 6f 6e 74 6f 20 74 68 65 20 6c 61 73 74 20 61 72 67 | guments.consed.onto.the.last.arg |
| 4320 | 2e 0a 54 68 75 73 2c 20 28 6c 69 73 74 2a 20 31 20 32 20 33 20 27 28 61 20 62 29 29 20 72 65 74 | ..Thus,.(list*.1.2.3.'(a.b)).ret |
| 4340 | 75 72 6e 73 20 28 31 20 32 20 33 20 61 20 62 29 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 | urns.(1.2.3.a.b).".(byte-code.". |
| 4360 | 84 06 00 09 87 09 08 42 1a c3 5c 6e 21 1c c5 5c 6e 21 1e 06 c7 c5 0c 21 0e 06 40 5c 22 88 0c 2b | .......B..\n!..\n!.....!..@\"..+ |
| 4380 | 87 22 20 5b 6f 74 68 65 72 73 20 61 72 67 20 61 6c 6c 61 72 67 73 20 62 75 74 6c 61 73 74 20 66 | .".[others.arg.allargs.butlast.f |
| 43a0 | 72 6f 6e 74 20 6c 61 73 74 20 62 61 63 6b 20 72 70 6c 61 63 64 5d 20 33 29 29 0a 28 64 65 66 75 | ront.last.back.rplacd].3)).(defu |
| 43c0 | 6e 20 61 64 6a 6f 69 6e 20 28 69 74 65 6d 20 6c 69 73 74 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 | n.adjoin.(item.list)."\.Return.a |
| 43e0 | 20 6c 69 73 74 20 77 68 69 63 68 20 63 6f 6e 74 61 69 6e 73 20 49 54 45 4d 20 62 75 74 20 69 73 | .list.which.contains.ITEM.but.is |
| 4400 | 20 6f 74 68 65 72 77 69 73 65 20 6c 69 6b 65 20 4c 49 53 54 2e 0a 49 66 20 49 54 45 4d 20 6f 63 | .otherwise.like.LIST..If.ITEM.oc |
| 4420 | 63 75 72 73 20 69 6e 20 4c 49 53 54 2c 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 4c 49 53 54 2e | curs.in.LIST,.the.value.is.LIST. |
| 4440 | 20 20 4f 74 68 65 72 77 69 73 65 20 69 74 20 69 73 20 28 63 6f 6e 73 20 49 54 45 4d 20 4c 49 53 | ..Otherwise.it.is.(cons.ITEM.LIS |
| 4460 | 54 29 2e 0a 57 68 65 6e 20 63 6f 6d 70 61 72 69 6e 67 20 49 54 45 4d 20 61 67 61 69 6e 73 74 20 | T)..When.comparing.ITEM.against. |
| 4480 | 65 6c 65 6d 65 6e 74 73 2c 20 60 65 71 6c 27 20 69 73 20 75 73 65 64 2e 22 20 28 62 79 74 65 2d | elements,.`eql'.is.used.".(byte- |
| 44a0 | 63 6f 64 65 20 22 c0 09 5c 6e 5c 22 83 09 00 5c 6e 87 09 5c 6e 42 87 22 20 5b 6d 65 6d 62 65 72 | code."..\n\"...\n..\nB.".[member |
| 44c0 | 20 69 74 65 6d 20 6c 69 73 74 5d 20 33 29 29 0a 28 64 65 66 75 6e 20 6c 64 69 66 66 20 28 6c 69 | .item.list].3)).(defun.ldiff.(li |
| 44e0 | 73 74 20 73 75 62 6c 69 73 74 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 20 6e 65 77 20 6c 69 73 74 | st.sublist)."\.Return.a.new.list |
| 4500 | 20 6c 69 6b 65 20 4c 49 53 54 20 62 75 74 20 73 61 6e 73 20 53 55 42 4c 49 53 54 2e 0a 53 55 42 | .like.LIST.but.sans.SUBLIST..SUB |
| 4520 | 4c 49 53 54 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f 66 20 74 68 65 20 6c 69 6e 6b 73 20 69 6e | LIST.must.be.one.of.the.links.in |
| 4540 | 20 4c 49 53 54 3b 20 6f 74 68 65 72 77 69 73 65 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 4c 49 | .LIST;.otherwise.the.value.is.LI |
| 4560 | 53 54 20 69 74 73 65 6c 66 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 1a 1b c4 5c 6e 21 | ST.itself.".(byte-code.".....\n! |
| 4580 | 84 1f 00 5c 6e 0d 3d 84 1f 00 5c 6e 40 0b 42 13 5c 6e 41 89 1e 06 12 29 82 04 00 c7 0b 21 2a 87 | ...\n.=...\n@.B.\nA....).....!*. |
| 45a0 | 22 20 5b 6e 69 6c 20 6c 69 73 74 20 63 75 72 63 6f 6e 73 20 72 65 73 75 6c 74 20 65 6e 64 70 20 | ".[nil.list.curcons.result.endp. |
| 45c0 | 73 75 62 6c 69 73 74 20 47 24 24 5f 36 31 33 20 72 65 76 65 72 73 65 5d 20 33 29 29 0a 28 64 65 | sublist.G$$_613.reverse].3)).(de |
| 45e0 | 66 75 6e 20 63 61 61 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 61 72 20 6f | fun.caar.(X)."\.Return.the.car.o |
| 4600 | 66 20 74 68 65 20 63 61 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 40 | f.the.car.of.X.".(byte-code.".@@ |
| 4620 | 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 61 64 72 20 28 58 29 20 22 5c 0a 52 65 | .".[X].1)).(defun.cadr.(X)."\.Re |
| 4640 | 74 75 72 6e 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 20 28 | turn.the.car.of.the.cdr.of.X.".( |
| 4660 | 62 79 74 65 2d 63 6f 64 65 20 22 08 41 40 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 | byte-code.".A@.".[X].1)).(defun. |
| 4680 | 63 64 61 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 | cdar.(X)."\.Return.the.cdr.of.th |
| 46a0 | 65 20 63 61 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 41 87 22 20 5b | e.car.of.X.".(byte-code.".@A.".[ |
| 46c0 | 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 64 64 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e | X].1)).(defun.cddr.(X)."\.Return |
| 46e0 | 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 | .the.cdr.of.the.cdr.of.X.".(byte |
| 4700 | 2d 63 6f 64 65 20 22 08 41 41 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 61 61 61 | -code.".AA.".[X].1)).(defun.caaa |
| 4720 | 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 | r.(X)."\.Return.the.car.of.the.c |
| 4740 | 61 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 | ar.of.the.car.of.X.".(byte-code. |
| 4760 | 22 08 40 40 40 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 61 61 64 72 20 28 58 29 | ".@@@.".[X].1)).(defun.caadr.(X) |
| 4780 | 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 | ."\.Return.the.car.of.the.car.of |
| 47a0 | 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 40 40 | .the.cdr.of.X.".(byte-code.".A@@ |
| 47c0 | 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 61 64 61 72 20 28 58 29 20 22 5c 0a 52 | .".[X].1)).(defun.cadar.(X)."\.R |
| 47e0 | 65 74 75 72 6e 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 | eturn.the.car.of.the.cdr.of.the. |
| 4800 | 63 61 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 41 40 87 22 20 5b 58 | car.of.X.".(byte-code.".@A@.".[X |
| 4820 | 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 64 61 61 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e | ].1)).(defun.cdaar.(X)."\.Return |
| 4840 | 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f | .the.cdr.of.the.car.of.the.car.o |
| 4860 | 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 40 41 87 22 20 5b 58 5d 20 31 29 29 | f.X.".(byte-code.".@@A.".[X].1)) |
| 4880 | 0a 28 64 65 66 75 6e 20 63 61 64 64 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 | .(defun.caddr.(X)."\.Return.the. |
| 48a0 | 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 | car.of.the.cdr.of.the.cdr.of.X." |
| 48c0 | 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 41 40 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 | .(byte-code.".AA@.".[X].1)).(def |
| 48e0 | 75 6e 20 63 64 61 64 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 64 72 20 6f | un.cdadr.(X)."\.Return.the.cdr.o |
| 4900 | 66 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 20 28 62 79 74 | f.the.car.of.the.cdr.of.X.".(byt |
| 4920 | 65 2d 63 6f 64 65 20 22 08 41 40 41 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 64 | e-code.".A@A.".[X].1)).(defun.cd |
| 4940 | 64 61 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 | dar.(X)."\.Return.the.cdr.of.the |
| 4960 | 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 | .cdr.of.the.car.of.X.".(byte-cod |
| 4980 | 65 20 22 08 40 41 41 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 64 64 64 72 20 28 | e.".@AA.".[X].1)).(defun.cdddr.( |
| 49a0 | 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 64 72 20 | X)."\.Return.the.cdr.of.the.cdr. |
| 49c0 | 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 | of.the.cdr.of.X.".(byte-code.".A |
| 49e0 | 41 41 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 61 61 61 61 72 20 28 58 29 20 22 | AA.".[X].1)).(defun.caaaar.(X)." |
| 4a00 | 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 74 | \.Return.the.car.of.the.car.of.t |
| 4a20 | 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 | he.car.of.the.car.of.X.".(byte-c |
| 4a40 | 6f 64 65 20 22 08 40 40 40 40 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 61 61 61 | ode.".@@@@.".[X].1)).(defun.caaa |
| 4a60 | 64 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 | dr.(X)."\.Return.the.car.of.the. |
| 4a80 | 63 61 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 | car.of.the.car.of.the.cdr.of.X." |
| 4aa0 | 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 40 40 40 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 | .(byte-code.".A@@@.".[X].1)).(de |
| 4ac0 | 66 75 6e 20 63 61 61 64 61 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 61 72 | fun.caadar.(X)."\.Return.the.car |
| 4ae0 | 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 | .of.the.car.of.the.cdr.of.the.ca |
| 4b00 | 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 41 40 40 87 22 20 5b 58 5d | r.of.X.".(byte-code.".@A@@.".[X] |
| 4b20 | 20 31 29 29 0a 28 64 65 66 75 6e 20 63 61 64 61 61 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e | .1)).(defun.cadaar.(X)."\.Return |
| 4b40 | 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f | .the.car.of.the.cdr.of.the.car.o |
| 4b60 | 66 20 74 68 65 20 63 61 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 40 | f.the.car.of.X.".(byte-code.".@@ |
| 4b80 | 41 40 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 64 61 61 61 72 20 28 58 29 20 22 | A@.".[X].1)).(defun.cdaaar.(X)." |
| 4ba0 | 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 74 | \.Return.the.cdr.of.the.car.of.t |
| 4bc0 | 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 | he.car.of.the.car.of.X.".(byte-c |
| 4be0 | 6f 64 65 20 22 08 40 40 40 41 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 61 61 64 | ode.".@@@A.".[X].1)).(defun.caad |
| 4c00 | 64 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 | dr.(X)."\.Return.the.car.of.the. |
| 4c20 | 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 | car.of.the.cdr.of.the.cdr.of.X." |
| 4c40 | 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 41 40 40 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 | .(byte-code.".AA@@.".[X].1)).(de |
| 4c60 | 66 75 6e 20 63 61 64 61 64 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 61 72 | fun.cadadr.(X)."\.Return.the.car |
| 4c80 | 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 64 | .of.the.cdr.of.the.car.of.the.cd |
| 4ca0 | 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 40 41 40 87 22 20 5b 58 5d | r.of.X.".(byte-code.".A@A@.".[X] |
| 4cc0 | 20 31 29 29 0a 28 64 65 66 75 6e 20 63 64 61 61 64 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e | .1)).(defun.cdaadr.(X)."\.Return |
| 4ce0 | 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f | .the.cdr.of.the.car.of.the.car.o |
| 4d00 | 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 40 | f.the.cdr.of.X.".(byte-code.".A@ |
| 4d20 | 40 41 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 61 64 64 61 72 20 28 58 29 20 22 | @A.".[X].1)).(defun.caddar.(X)." |
| 4d40 | 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 | \.Return.the.car.of.the.cdr.of.t |
| 4d60 | 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 | he.cdr.of.the.car.of.X.".(byte-c |
| 4d80 | 6f 64 65 20 22 08 40 41 41 40 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 64 61 64 | ode.".@AA@.".[X].1)).(defun.cdad |
| 4da0 | 61 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 | ar.(X)."\.Return.the.cdr.of.the. |
| 4dc0 | 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 58 2e 22 | car.of.the.cdr.of.the.car.of.X." |
| 4de0 | 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 41 40 41 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 | .(byte-code.".@A@A.".[X].1)).(de |
| 4e00 | 66 75 6e 20 63 64 64 61 61 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 64 72 | fun.cddaar.(X)."\.Return.the.cdr |
| 4e20 | 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 61 | .of.the.cdr.of.the.car.of.the.ca |
| 4e40 | 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 40 41 41 87 22 20 5b 58 5d | r.of.X.".(byte-code.".@@AA.".[X] |
| 4e60 | 20 31 29 29 0a 28 64 65 66 75 6e 20 63 61 64 64 64 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e | .1)).(defun.cadddr.(X)."\.Return |
| 4e80 | 20 74 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f | .the.car.of.the.cdr.of.the.cdr.o |
| 4ea0 | 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 41 | f.the.cdr.of.X.".(byte-code.".AA |
| 4ec0 | 41 40 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 64 64 61 64 72 20 28 58 29 20 22 | A@.".[X].1)).(defun.cddadr.(X)." |
| 4ee0 | 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 | \.Return.the.cdr.of.the.cdr.of.t |
| 4f00 | 68 65 20 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 | he.car.of.the.cdr.of.X.".(byte-c |
| 4f20 | 6f 64 65 20 22 08 41 40 41 41 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 63 64 61 64 | ode.".A@AA.".[X].1)).(defun.cdad |
| 4f40 | 64 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 | dr.(X)."\.Return.the.cdr.of.the. |
| 4f60 | 63 61 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 | car.of.the.cdr.of.the.cdr.of.X." |
| 4f80 | 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 41 40 41 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 | .(byte-code.".AA@A.".[X].1)).(de |
| 4fa0 | 66 75 6e 20 63 64 64 64 61 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 63 64 72 | fun.cdddar.(X)."\.Return.the.cdr |
| 4fc0 | 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 61 | .of.the.cdr.of.the.cdr.of.the.ca |
| 4fe0 | 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 40 41 41 41 87 22 20 5b 58 5d | r.of.X.".(byte-code.".@AAA.".[X] |
| 5000 | 20 31 29 29 0a 28 64 65 66 75 6e 20 63 64 64 64 64 72 20 28 58 29 20 22 5c 0a 52 65 74 75 72 6e | .1)).(defun.cddddr.(X)."\.Return |
| 5020 | 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f 66 20 74 68 65 20 63 64 72 20 6f | .the.cdr.of.the.cdr.of.the.cdr.o |
| 5040 | 66 20 74 68 65 20 63 64 72 20 6f 66 20 58 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 41 41 | f.the.cdr.of.X.".(byte-code.".AA |
| 5060 | 41 41 87 22 20 5b 58 5d 20 31 29 29 0a 28 64 65 66 75 6e 20 73 65 74 6e 74 68 20 28 6e 20 6c 69 | AA.".[X].1)).(defun.setnth.(n.li |
| 5080 | 73 74 20 6e 65 77 76 61 6c 29 20 22 5c 0a 53 65 74 20 28 6e 74 68 20 4e 20 4c 49 53 54 29 20 74 | st.newval)."\.Set.(nth.N.LIST).t |
| 50a0 | 6f 20 4e 45 57 56 41 4c 2e 20 20 52 65 74 75 72 6e 73 20 4e 45 57 56 41 4c 2e 22 20 28 62 79 74 | o.NEWVAL...Returns.NEWVAL.".(byt |
| 50c0 | 65 2d 63 6f 64 65 20 22 c0 c1 5c 6e 0b 5c 22 0c 5c 22 87 22 20 5b 72 70 6c 61 63 61 20 6e 74 68 | e-code."..\n.\".\".".[rplaca.nth |
| 50e0 | 63 64 72 20 6e 20 6c 69 73 74 20 6e 65 77 76 61 6c 5d 20 34 29 29 0a 28 64 65 66 75 6e 20 73 65 | cdr.n.list.newval].4)).(defun.se |
| 5100 | 74 6e 74 68 63 64 72 20 28 6e 20 6c 69 73 74 20 6e 65 77 76 61 6c 29 20 22 5c 0a 53 45 54 4e 54 | tnthcdr.(n.list.newval)."\.SETNT |
| 5120 | 48 43 44 52 20 4e 20 4c 49 53 54 20 4e 45 57 56 41 4c 20 3d 3e 20 4e 45 57 56 41 4c 0a 41 73 20 | HCDR.N.LIST.NEWVAL.=>.NEWVAL.As. |
| 5140 | 61 20 73 69 64 65 20 65 66 66 65 63 74 2c 20 73 65 74 73 20 74 68 65 20 4e 74 68 20 63 64 72 20 | a.side.effect,.sets.the.Nth.cdr. |
| 5160 | 6f 66 20 4c 49 53 54 20 74 6f 20 4e 45 57 56 41 4c 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 | of.LIST.to.NEWVAL.".(byte-code." |
| 5180 | 08 c1 57 83 0b 00 c2 c3 08 5c 22 87 08 c1 55 83 5c 22 00 c4 0d 0e 06 40 5c 22 88 c7 0d 0e 06 41 | ..W......\"...U.\".....@\".....A |
| 51a0 | 5c 22 88 0e 06 87 c7 c8 08 c9 5a 0d 5c 22 0e 06 5c 22 87 22 20 5b 6e 20 30 20 65 72 72 6f 72 20 | \"........Z.\"..\".".[n.0.error. |
| 51c0 | 22 4e 20 6d 75 73 74 20 62 65 20 30 20 6f 72 20 67 72 65 61 74 65 72 2c 20 6e 6f 74 20 25 64 22 | "N.must.be.0.or.greater,.not.%d" |
| 51e0 | 20 72 70 6c 61 63 61 20 6c 69 73 74 20 6e 65 77 76 61 6c 20 72 70 6c 61 63 64 20 6e 74 68 63 64 | .rplaca.list.newval.rplacd.nthcd |
| 5200 | 72 20 31 5d 20 34 29 29 0a 28 64 65 66 75 6e 20 61 63 6f 6e 73 20 28 6b 65 79 20 69 74 65 6d 20 | r.1].4)).(defun.acons.(key.item. |
| 5220 | 61 6c 69 73 74 29 20 22 5c 0a 52 65 74 75 72 6e 20 61 20 6e 65 77 20 61 6c 69 73 74 20 77 69 74 | alist)."\.Return.a.new.alist.wit |
| 5240 | 68 20 4b 45 59 20 70 61 69 72 65 64 20 77 69 74 68 20 49 54 45 4d 3b 20 6f 74 68 65 72 77 69 73 | h.KEY.paired.with.ITEM;.otherwis |
| 5260 | 65 20 6c 69 6b 65 20 41 4c 49 53 54 2e 0a 44 6f 65 73 20 6e 6f 74 20 63 6f 70 79 20 41 4c 49 53 | e.like.ALIST..Does.not.copy.ALIS |
| 5280 | 54 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 09 42 5c 6e 42 87 22 20 5b 6b 65 79 20 69 74 | T.".(byte-code."..B\nB.".[key.it |
| 52a0 | 65 6d 20 61 6c 69 73 74 5d 20 32 29 29 0a 28 64 65 66 75 6e 20 70 61 69 72 6c 69 73 20 28 6b 65 | em.alist].2)).(defun.pairlis.(ke |
| 52c0 | 79 73 20 64 61 74 61 20 26 6f 70 74 69 6f 6e 61 6c 20 61 6c 69 73 74 29 20 22 5c 0a 52 65 74 75 | ys.data.&optional.alist)."\.Retu |
| 52e0 | 72 6e 20 61 20 6e 65 77 20 61 6c 69 73 74 20 77 69 74 68 20 65 61 63 68 20 65 6c 74 20 6f 66 20 | rn.a.new.alist.with.each.elt.of. |
| 5300 | 4b 45 59 53 20 70 61 69 72 65 64 20 77 69 74 68 20 61 6e 20 65 6c 74 20 6f 66 20 44 41 54 41 3b | KEYS.paired.with.an.elt.of.DATA; |
| 5320 | 0a 6f 70 74 69 6f 6e 61 6c 20 33 72 64 20 61 72 67 20 41 4c 49 53 54 20 69 73 20 6e 63 6f 6e 63 | .optional.3rd.arg.ALIST.is.nconc |
| 5340 | 27 64 20 61 74 20 74 68 65 20 65 6e 64 2e 20 20 4b 45 59 53 20 61 6e 64 20 44 41 54 41 20 6d 75 | 'd.at.the.end...KEYS.and.DATA.mu |
| 5360 | 73 74 0a 68 61 76 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 74 68 2e 22 20 28 62 79 74 65 2d | st.have.the.same.length.".(byte- |
| 5380 | 63 6f 64 65 20 22 08 47 09 47 55 84 0c 00 c2 c3 21 88 08 1c 09 1d 0c 40 1e 06 0d 40 1e 07 0e 08 | code.".G.GU.....!......@...@.... |
| 53a0 | 1e 09 ca 0c 21 84 3d 00 cb 0e 06 0e 07 0e 09 23 16 09 0c 41 14 0d 41 15 0c 40 16 06 0d 40 16 07 | ....!.=........#...A..A..@...@.. |
| 53c0 | 82 1c 00 0e 09 2d 87 22 20 5b 6b 65 79 73 20 64 61 74 61 20 65 72 72 6f 72 20 22 4b 65 79 73 20 | .....-.".[keys.data.error."Keys. |
| 53e0 | 61 6e 64 20 64 61 74 61 20 73 68 6f 75 6c 64 20 62 65 20 74 68 65 20 73 61 6d 65 20 6c 65 6e 67 | and.data.should.be.the.same.leng |
| 5400 | 74 68 22 20 6b 70 74 72 20 64 70 74 72 20 6b 65 79 20 69 74 65 6d 20 61 6c 69 73 74 20 72 65 73 | th".kptr.dptr.key.item.alist.res |
| 5420 | 75 6c 74 20 65 6e 64 70 20 61 63 6f 6e 73 5d 20 34 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 | ult.endp.acons].4)).(byte-code." |
| 5440 | c0 10 c1 11 c2 12 c3 13 c4 14 c5 15 c6 16 06 c7 16 07 c8 16 08 c9 16 09 ca 16 5c 6e cb 16 0b c0 | ..........................\n.... |
| 5460 | 87 22 20 5b 3a 74 65 73 74 20 3a 74 65 73 74 2d 6e 6f 74 20 3a 6b 65 79 20 3a 70 72 65 64 69 63 | .".[:test.:test-not.:key.:predic |
| 5480 | 61 74 65 20 3a 73 74 61 72 74 20 3a 65 6e 64 20 3a 73 74 61 72 74 31 20 3a 73 74 61 72 74 32 20 | ate.:start.:end.:start1.:start2. |
| 54a0 | 3a 65 6e 64 31 20 3a 65 6e 64 32 20 3a 63 6f 75 6e 74 20 3a 66 72 6f 6d 2d 65 6e 64 5d 20 31 29 | :end1.:end2.:count.:from-end].1) |
| 54c0 | 0a 28 64 65 66 75 6e 20 73 6f 6d 65 20 28 70 72 65 64 20 73 65 71 20 26 72 65 73 74 20 6d 6f 72 | .(defun.some.(pred.seq.&rest.mor |
| 54e0 | 65 73 65 71 73 29 20 22 5c 0a 54 65 73 74 20 50 52 45 44 49 43 41 54 45 20 6f 6e 20 65 61 63 68 | eseqs)."\.Test.PREDICATE.on.each |
| 5500 | 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 3b 20 69 73 20 69 74 20 65 76 65 72 | .element.of.SEQUENCE;.is.it.ever |
| 5520 | 20 6e 6f 6e 2d 6e 69 6c 3f 0a 45 78 74 72 61 20 61 72 67 73 20 61 72 65 20 61 64 64 69 74 69 6f | .non-nil?.Extra.args.are.additio |
| 5540 | 6e 61 6c 20 73 65 71 75 65 6e 63 65 73 3b 20 50 52 45 44 49 43 41 54 45 20 67 65 74 73 20 6f 6e | nal.sequences;.PREDICATE.gets.on |
| 5560 | 65 20 61 72 67 20 66 72 6f 6d 20 65 61 63 68 0a 73 65 71 75 65 6e 63 65 20 61 6e 64 20 77 65 20 | e.arg.from.each.sequence.and.we. |
| 5580 | 61 64 76 61 6e 63 65 20 64 6f 77 6e 20 61 6c 6c 20 74 68 65 20 73 65 71 75 65 6e 63 65 73 20 74 | advance.down.all.the.sequences.t |
| 55a0 | 6f 67 65 74 68 65 72 20 69 6e 20 6c 6f 63 6b 2d 73 74 65 70 2e 0a 41 20 73 65 71 75 65 6e 63 65 | ogether.in.lock-step..A.sequence |
| 55c0 | 20 6d 65 61 6e 73 20 65 69 74 68 65 72 20 61 20 6c 69 73 74 20 6f 72 20 61 20 76 65 63 74 6f 72 | .means.either.a.list.or.a.vector |
| 55e0 | 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 5c 6e 0b 5c 22 21 1c c5 1e 06 c5 1e 07 c5 1e | .".(byte-code."..\n.\"!......... |
| 5600 | 08 0c 89 1e 09 40 1e 5c 6e 0e 06 84 42 00 cb 0e 09 21 84 42 00 cc 0e 0d 0e 5c 6e 5c 22 89 16 08 | .....@.\n...B....!.B.....\n\"... |
| 5620 | 83 36 00 ce 16 06 0e 08 16 07 0e 09 41 89 16 09 40 16 5c 6e 82 17 00 0e 07 2e 06 87 22 20 5b 72 | .6..........A...@.\n........".[r |
| 5640 | 65 61 73 73 65 6d 62 6c 65 2d 61 72 67 73 6c 69 73 74 73 20 6c 69 73 74 2a 20 73 65 71 20 6d 6f | eassemble-argslists.list*.seq.mo |
| 5660 | 72 65 73 65 71 73 20 61 72 67 73 20 6e 69 6c 20 72 65 61 64 79 20 72 65 73 75 6c 74 20 61 70 70 | reseqs.args.nil.ready.result.app |
| 5680 | 6c 79 76 61 6c 20 72 65 6d 61 69 6e 69 6e 67 20 63 75 72 72 65 6e 74 20 65 6e 64 70 20 61 70 70 | lyval.remaining.current.endp.app |
| 56a0 | 6c 79 20 70 72 65 64 20 74 5d 20 35 29 29 0a 28 64 65 66 75 6e 20 65 76 65 72 79 20 28 70 72 65 | ly.pred.t].5)).(defun.every.(pre |
| 56c0 | 64 20 73 65 71 20 26 72 65 73 74 20 6d 6f 72 65 73 65 71 73 29 20 22 5c 0a 54 65 73 74 20 50 52 | d.seq.&rest.moreseqs)."\.Test.PR |
| 56e0 | 45 44 49 43 41 54 45 20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 | EDICATE.on.each.element.of.SEQUE |
| 5700 | 4e 43 45 3b 20 69 73 20 69 74 20 61 6c 77 61 79 73 20 6e 6f 6e 2d 6e 69 6c 3f 0a 45 78 74 72 61 | NCE;.is.it.always.non-nil?.Extra |
| 5720 | 20 61 72 67 73 20 61 72 65 20 61 64 64 69 74 69 6f 6e 61 6c 20 73 65 71 75 65 6e 63 65 73 3b 20 | .args.are.additional.sequences;. |
| 5740 | 50 52 45 44 49 43 41 54 45 20 67 65 74 73 20 6f 6e 65 20 61 72 67 20 66 72 6f 6d 20 65 61 63 68 | PREDICATE.gets.one.arg.from.each |
| 5760 | 0a 73 65 71 75 65 6e 63 65 20 61 6e 64 20 77 65 20 61 64 76 61 6e 63 65 20 64 6f 77 6e 20 61 6c | .sequence.and.we.advance.down.al |
| 5780 | 6c 20 74 68 65 20 73 65 71 75 65 6e 63 65 73 20 74 6f 67 65 74 68 65 72 20 69 6e 20 6c 6f 63 6b | l.the.sequences.together.in.lock |
| 57a0 | 2d 73 74 65 70 2e 0a 41 20 73 65 71 75 65 6e 63 65 20 6d 65 61 6e 73 20 65 69 74 68 65 72 20 61 | -step..A.sequence.means.either.a |
| 57c0 | 20 6c 69 73 74 20 6f 72 20 61 20 76 65 63 74 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 | .list.or.a.vector.".(byte-code." |
| 57e0 | c0 c1 5c 6e 0b 5c 22 21 1c c5 1e 06 c7 1e 08 c5 1e 09 0c 89 1e 5c 6e 40 1e 0b 0e 06 84 41 00 cc | ..\n.\"!.............\n@.....A.. |
| 5800 | 0e 5c 6e 21 84 41 00 cd 0e 0e 0e 0b 5c 22 89 16 09 84 35 00 c7 16 06 c5 16 08 0e 5c 6e 41 89 16 | .\n!.A......\"....5........\nA.. |
| 5820 | 5c 6e 40 16 0b 82 17 00 0e 08 2e 06 87 22 20 5b 72 65 61 73 73 65 6d 62 6c 65 2d 61 72 67 73 6c | \n@..........".[reassemble-argsl |
| 5840 | 69 73 74 73 20 6c 69 73 74 2a 20 73 65 71 20 6d 6f 72 65 73 65 71 73 20 61 72 67 73 20 6e 69 6c | ists.list*.seq.moreseqs.args.nil |
| 5860 | 20 72 65 61 64 79 20 74 20 72 65 73 75 6c 74 20 61 70 70 6c 79 76 61 6c 20 72 65 6d 61 69 6e 69 | .ready.t.result.applyval.remaini |
| 5880 | 6e 67 20 63 75 72 72 65 6e 74 20 65 6e 64 70 20 61 70 70 6c 79 20 70 72 65 64 5d 20 35 29 29 0a | ng.current.endp.apply.pred].5)). |
| 58a0 | 28 64 65 66 75 6e 20 6e 6f 74 61 6e 79 20 28 70 72 65 64 20 73 65 71 20 26 72 65 73 74 20 6d 6f | (defun.notany.(pred.seq.&rest.mo |
| 58c0 | 72 65 73 65 71 73 29 20 22 5c 0a 54 65 73 74 20 50 52 45 44 49 43 41 54 45 20 6f 6e 20 65 61 63 | reseqs)."\.Test.PREDICATE.on.eac |
| 58e0 | 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 55 45 4e 43 45 3b 20 69 73 20 69 74 20 61 6c 77 | h.element.of.SEQUENCE;.is.it.alw |
| 5900 | 61 79 73 20 6e 69 6c 3f 0a 45 78 74 72 61 20 61 72 67 73 20 61 72 65 20 61 64 64 69 74 69 6f 6e | ays.nil?.Extra.args.are.addition |
| 5920 | 61 6c 20 73 65 71 75 65 6e 63 65 73 3b 20 50 52 45 44 49 43 41 54 45 20 67 65 74 73 20 6f 6e 65 | al.sequences;.PREDICATE.gets.one |
| 5940 | 20 61 72 67 20 66 72 6f 6d 20 65 61 63 68 0a 73 65 71 75 65 6e 63 65 20 61 6e 64 20 77 65 20 61 | .arg.from.each.sequence.and.we.a |
| 5960 | 64 76 61 6e 63 65 20 64 6f 77 6e 20 61 6c 6c 20 74 68 65 20 73 65 71 75 65 6e 63 65 73 20 74 6f | dvance.down.all.the.sequences.to |
| 5980 | 67 65 74 68 65 72 20 69 6e 20 6c 6f 63 6b 2d 73 74 65 70 2e 0a 41 20 73 65 71 75 65 6e 63 65 20 | gether.in.lock-step..A.sequence. |
| 59a0 | 6d 65 61 6e 73 20 65 69 74 68 65 72 20 61 20 6c 69 73 74 20 6f 72 20 61 20 76 65 63 74 6f 72 2e | means.either.a.list.or.a.vector. |
| 59c0 | 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 5c 6e 0b 5c 22 21 1c c5 1e 06 c7 1e 08 c5 1e 09 | ".(byte-code."..\n.\"!.......... |
| 59e0 | 0c 89 1e 5c 6e 40 1e 0b 0e 06 84 41 00 cc 0e 5c 6e 21 84 41 00 cd 0e 0e 0e 0b 5c 22 89 16 09 83 | ...\n@.....A...\n!.A......\".... |
| 5a00 | 35 00 c7 16 06 c5 16 08 0e 5c 6e 41 89 16 5c 6e 40 16 0b 82 17 00 0e 08 2e 06 87 22 20 5b 72 65 | 5........\nA..\n@..........".[re |
| 5a20 | 61 73 73 65 6d 62 6c 65 2d 61 72 67 73 6c 69 73 74 73 20 6c 69 73 74 2a 20 73 65 71 20 6d 6f 72 | assemble-argslists.list*.seq.mor |
| 5a40 | 65 73 65 71 73 20 61 72 67 73 20 6e 69 6c 20 72 65 61 64 79 20 74 20 72 65 73 75 6c 74 20 61 70 | eseqs.args.nil.ready.t.result.ap |
| 5a60 | 70 6c 79 76 61 6c 20 72 65 6d 61 69 6e 69 6e 67 20 63 75 72 72 65 6e 74 20 65 6e 64 70 20 61 70 | plyval.remaining.current.endp.ap |
| 5a80 | 70 6c 79 20 70 72 65 64 5d 20 35 29 29 0a 28 64 65 66 75 6e 20 6e 6f 74 65 76 65 72 79 20 28 70 | ply.pred].5)).(defun.notevery.(p |
| 5aa0 | 72 65 64 20 73 65 71 20 26 72 65 73 74 20 6d 6f 72 65 73 65 71 73 29 20 22 5c 0a 54 65 73 74 20 | red.seq.&rest.moreseqs)."\.Test. |
| 5ac0 | 50 52 45 44 49 43 41 54 45 20 6f 6e 20 65 61 63 68 20 65 6c 65 6d 65 6e 74 20 6f 66 20 53 45 51 | PREDICATE.on.each.element.of.SEQ |
| 5ae0 | 55 45 4e 43 45 3b 20 69 73 20 69 74 20 73 6f 6d 65 74 69 6d 65 73 20 6e 69 6c 3f 0a 45 78 74 72 | UENCE;.is.it.sometimes.nil?.Extr |
| 5b00 | 61 20 61 72 67 73 20 61 72 65 20 61 64 64 69 74 69 6f 6e 61 6c 20 73 65 71 75 65 6e 63 65 73 3b | a.args.are.additional.sequences; |
| 5b20 | 20 50 52 45 44 49 43 41 54 45 20 67 65 74 73 20 6f 6e 65 20 61 72 67 20 66 72 6f 6d 20 65 61 63 | .PREDICATE.gets.one.arg.from.eac |
| 5b40 | 68 0a 73 65 71 75 65 6e 63 65 20 61 6e 64 20 77 65 20 61 64 76 61 6e 63 65 20 64 6f 77 6e 20 61 | h.sequence.and.we.advance.down.a |
| 5b60 | 6c 6c 20 74 68 65 20 73 65 71 75 65 6e 63 65 73 20 74 6f 67 65 74 68 65 72 20 69 6e 20 6c 6f 63 | ll.the.sequences.together.in.loc |
| 5b80 | 6b 2d 73 74 65 70 2e 0a 41 20 73 65 71 75 65 6e 63 65 20 6d 65 61 6e 73 20 65 69 74 68 65 72 20 | k-step..A.sequence.means.either. |
| 5ba0 | 61 20 6c 69 73 74 20 6f 72 20 61 20 76 65 63 74 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 | a.list.or.a.vector.".(byte-code. |
| 5bc0 | 22 c0 c1 5c 6e 0b 5c 22 21 1c c5 1e 06 c5 1e 07 c5 1e 08 0c 89 1e 09 40 1e 5c 6e 0e 06 84 41 00 | "..\n.\"!..............@.\n...A. |
| 5be0 | cb 0e 09 21 84 41 00 cc 0e 0d 0e 5c 6e 5c 22 89 16 08 84 35 00 ce 16 06 ce 16 07 0e 09 41 89 16 | ...!.A.....\n\"....5.........A.. |
| 5c00 | 09 40 16 5c 6e 82 17 00 0e 07 2e 06 87 22 20 5b 72 65 61 73 73 65 6d 62 6c 65 2d 61 72 67 73 6c | .@.\n........".[reassemble-argsl |
| 5c20 | 69 73 74 73 20 6c 69 73 74 2a 20 73 65 71 20 6d 6f 72 65 73 65 71 73 20 61 72 67 73 20 6e 69 6c | ists.list*.seq.moreseqs.args.nil |
| 5c40 | 20 72 65 61 64 79 20 72 65 73 75 6c 74 20 61 70 70 6c 79 76 61 6c 20 72 65 6d 61 69 6e 69 6e 67 | .ready.result.applyval.remaining |
| 5c60 | 20 63 75 72 72 65 6e 74 20 65 6e 64 70 20 61 70 70 6c 79 20 70 72 65 64 20 74 5d 20 35 29 29 0a | .current.endp.apply.pred.t].5)). |
| 5c80 | 28 64 65 66 75 6e 20 73 65 74 65 6c 74 20 28 73 65 71 20 6e 20 6e 65 77 76 61 6c 29 20 22 5c 0a | (defun.setelt.(seq.n.newval)."\. |
| 5ca0 | 49 6e 20 53 45 51 55 45 4e 43 45 2c 20 73 65 74 20 74 68 65 20 4e 74 68 20 65 6c 65 6d 65 6e 74 | In.SEQUENCE,.set.the.Nth.element |
| 5cc0 | 20 74 6f 20 4e 45 57 56 41 4c 2e 20 20 52 65 74 75 72 6e 73 20 4e 45 57 56 41 4c 2e 0a 41 20 73 | .to.NEWVAL...Returns.NEWVAL..A.s |
| 5ce0 | 65 71 75 65 6e 63 65 20 6d 65 61 6e 73 20 65 69 74 68 65 72 20 61 20 6c 69 73 74 20 6f 72 20 61 | equence.means.either.a.list.or.a |
| 5d00 | 20 76 65 63 74 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 47 19 5c 6e c3 57 84 0f 00 | .vector.".(byte-code.".G.\n.W... |
| 5d20 | 5c 6e 09 59 83 17 00 c4 c5 5c 6e 09 23 82 39 00 08 3c 83 25 00 c6 5c 6e 08 0e 07 23 82 39 00 c8 | \n.Y.....\n.#.9..<.%..\n...#.9.. |
| 5d40 | 08 21 83 33 00 08 5c 6e 0e 07 49 82 39 00 c4 c9 ca 08 21 5c 22 29 87 22 20 5b 73 65 71 20 6c 20 | .!.3..\n..I.9.....!\").".[seq.l. |
| 5d60 | 6e 20 30 20 65 72 72 6f 72 20 22 4e 28 25 64 29 20 73 68 6f 75 6c 64 20 62 65 20 62 65 74 77 65 | n.0.error."N(%d).should.be.betwe |
| 5d80 | 65 6e 20 30 20 61 6e 64 20 25 64 22 20 73 65 74 6e 74 68 20 6e 65 77 76 61 6c 20 61 72 72 61 79 | en.0.and.%d".setnth.newval.array |
| 5da0 | 70 20 22 53 45 51 20 73 68 6f 75 6c 64 20 62 65 20 61 20 73 65 71 75 65 6e 63 65 2c 20 6e 6f 74 | p."SEQ.should.be.a.sequence,.not |
| 5dc0 | 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 34 29 29 0a 28 64 65 66 | .`%s'".prin1-to-string].4)).(def |
| 5de0 | 75 6e 20 65 78 74 72 61 63 74 2d 66 72 6f 6d 2d 6b 6c 69 73 74 20 28 6b 65 79 20 6b 6c 69 73 74 | un.extract-from-klist.(key.klist |
| 5e00 | 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 66 61 75 6c 74 29 20 22 5c 0a 45 58 54 52 41 43 54 2d 46 | .&optional.default)."\.EXTRACT-F |
| 5e20 | 52 4f 4d 2d 4b 4c 49 53 54 20 4b 45 59 20 4b 4c 49 53 54 20 5b 44 45 46 41 55 4c 54 5d 20 3d 3e | ROM-KLIST.KEY.KLIST.[DEFAULT].=> |
| 5e40 | 20 76 61 6c 75 65 20 6f 66 20 4b 45 59 20 6f 72 20 44 45 46 41 55 4c 54 0a 45 78 74 72 61 63 74 | .value.of.KEY.or.DEFAULT.Extract |
| 5e60 | 20 76 61 6c 75 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 4b 45 59 20 69 6e 20 4b 4c | .value.associated.with.KEY.in.KL |
| 5e80 | 49 53 54 20 28 72 65 74 75 72 6e 20 44 45 46 41 55 4c 54 20 69 66 20 6e 69 6c 29 2e 22 20 28 62 | IST.(return.DEFAULT.if.nil).".(b |
| 5ea0 | 79 74 65 2d 63 6f 64 65 20 22 c0 09 5c 6e 5c 22 41 89 1b 86 0b 00 0c 29 87 22 20 5b 61 73 73 6f | yte-code."..\n\"A......).".[asso |
| 5ec0 | 63 20 6b 65 79 20 6b 6c 69 73 74 20 72 65 74 72 69 65 76 65 64 20 64 65 66 61 75 6c 74 5d 20 34 | c.key.klist.retrieved.default].4 |
| 5ee0 | 29 29 0a 28 64 65 66 75 6e 20 61 64 64 2d 74 6f 2d 6b 6c 69 73 74 20 28 6b 65 79 20 69 74 65 6d | )).(defun.add-to-klist.(key.item |
| 5f00 | 20 6b 6c 69 73 74 29 20 22 5c 0a 41 44 44 2d 54 4f 2d 4b 4c 49 53 54 20 4b 45 59 20 49 54 45 4d | .klist)."\.ADD-TO-KLIST.KEY.ITEM |
| 5f20 | 20 4b 4c 49 53 54 20 3d 3e 20 6e 65 77 20 4b 4c 49 53 54 0a 41 64 64 20 61 73 73 6f 63 69 61 74 | .KLIST.=>.new.KLIST.Add.associat |
| 5f40 | 69 6f 6e 20 28 4b 45 59 20 2e 20 49 54 45 4d 29 20 74 6f 20 4b 4c 49 53 54 2e 22 20 28 62 79 74 | ion.(KEY...ITEM).to.KLIST.".(byt |
| 5f60 | 65 2d 63 6f 64 65 20 22 c0 09 5c 6e 0b 23 89 13 87 22 20 5b 61 63 6f 6e 73 20 6b 65 79 20 69 74 | e-code."..\n.#...".[acons.key.it |
| 5f80 | 65 6d 20 6b 6c 69 73 74 5d 20 34 29 29 0a 28 64 65 66 75 6e 20 65 6c 74 2d 73 61 74 69 73 66 69 | em.klist].4)).(defun.elt-satisfi |
| 5fa0 | 65 73 2d 74 65 73 74 2d 70 20 28 69 74 65 6d 20 65 6c 74 20 6b 6c 69 73 74 29 20 22 5c 0a 45 4c | es-test-p.(item.elt.klist)."\.EL |
| 5fc0 | 54 2d 53 41 54 49 53 46 49 45 53 2d 54 45 53 54 2d 50 20 49 54 45 4d 20 45 4c 54 20 4b 4c 49 53 | T-SATISFIES-TEST-P.ITEM.ELT.KLIS |
| 5fe0 | 54 20 3d 3e 20 74 20 6f 72 20 6e 69 6c 0a 4b 4c 49 53 54 20 65 6e 63 6f 64 65 73 20 61 20 6b 65 | T.=>.t.or.nil.KLIST.encodes.a.ke |
| 6000 | 79 77 6f 72 64 2d 61 72 67 75 6d 65 6e 74 73 20 74 65 73 74 2c 20 61 73 20 69 6e 20 43 48 2e 20 | yword-arguments.test,.as.in.CH.. |
| 6020 | 31 34 20 6f 66 20 43 4c 74 4c 2e 0a 54 72 75 65 20 69 66 20 74 68 65 20 67 69 76 65 6e 20 49 54 | 14.of.CLtL..True.if.the.given.IT |
| 6040 | 45 4d 20 61 6e 64 20 45 4c 54 20 73 61 74 69 73 66 79 20 74 68 65 20 74 65 73 74 2e 22 20 28 62 | EM.and.ELT.satisfy.the.test.".(b |
| 6060 | 79 74 65 2d 63 6f 64 65 20 22 c0 09 5c 6e 5c 22 c0 0b 5c 6e 5c 22 c0 0c 5c 6e c5 23 1e 06 1e 07 | yte-code."..\n\"..\n\"..\n.#.... |
| 6080 | 89 1e 08 83 24 00 0e 08 0e 09 0e 06 0e 5c 6e 21 5c 22 82 3d 00 0e 07 83 37 00 0e 07 0e 09 0e 06 | ....$........\n!\".=....7....... |
| 60a0 | 0e 5c 6e 21 5c 22 3f 82 3d 00 cb cc cd 5c 6e 21 5c 22 2b 87 22 20 5b 65 78 74 72 61 63 74 2d 66 | .\n!\"?.=....\n!\"+.".[extract-f |
| 60c0 | 72 6f 6d 2d 6b 6c 69 73 74 20 3a 74 65 73 74 20 6b 6c 69 73 74 20 3a 74 65 73 74 2d 6e 6f 74 20 | rom-klist.:test.klist.:test-not. |
| 60e0 | 3a 6b 65 79 20 69 64 65 6e 74 69 74 79 20 6b 65 79 66 6e 20 74 65 73 74 2d 6e 6f 74 20 74 65 73 | :key.identity.keyfn.test-not.tes |
| 6100 | 74 20 69 74 65 6d 20 65 6c 74 20 65 72 72 6f 72 20 22 4e 65 69 74 68 65 72 20 3a 74 65 73 74 20 | t.item.elt.error."Neither.:test. |
| 6120 | 6e 6f 72 20 3a 74 65 73 74 2d 6e 6f 74 20 69 6e 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d | nor.:test-not.in.`%s'".prin1-to- |
| 6140 | 73 74 72 69 6e 67 5d 20 37 29 29 0a 28 64 65 66 75 6e 20 65 6c 74 2d 73 61 74 69 73 66 69 65 73 | string].7)).(defun.elt-satisfies |
| 6160 | 2d 69 66 2d 70 20 28 69 74 65 6d 20 6b 6c 69 73 74 29 20 22 5c 0a 45 4c 54 2d 53 41 54 49 53 46 | -if-p.(item.klist)."\.ELT-SATISF |
| 6180 | 49 45 53 2d 49 46 2d 50 20 49 54 45 4d 20 4b 4c 49 53 54 20 3d 3e 20 74 20 6f 72 20 6e 69 6c 0a | IES-IF-P.ITEM.KLIST.=>.t.or.nil. |
| 61a0 | 54 72 75 65 20 69 66 20 61 6e 20 2d 69 66 20 73 74 79 6c 65 20 66 75 6e 63 74 69 6f 6e 20 77 61 | True.if.an.-if.style.function.wa |
| 61c0 | 73 20 63 61 6c 6c 65 64 20 61 6e 64 20 49 54 45 4d 20 73 61 74 69 73 66 69 65 73 20 74 68 65 0a | s.called.and.ITEM.satisfies.the. |
| 61e0 | 70 72 65 64 69 63 61 74 65 20 75 6e 64 65 72 20 3a 70 72 65 64 69 63 61 74 65 20 69 6e 20 4b 4c | predicate.under.:predicate.in.KL |
| 6200 | 49 53 54 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 5c 6e 5c 22 c0 0b c4 5c 22 1d 89 1e | IST.".(byte-code."..\n\"...\"... |
| 6220 | 06 0e 07 0d 0e 08 21 5c 22 2a 87 22 20 5b 65 78 74 72 61 63 74 2d 66 72 6f 6d 2d 6b 6c 69 73 74 | ......!\"*.".[extract-from-klist |
| 6240 | 20 3a 70 72 65 64 69 63 61 74 65 20 6b 6c 69 73 74 20 3a 6b 65 79 20 69 64 65 6e 74 69 74 79 20 | .:predicate.klist.:key.identity. |
| 6260 | 6b 65 79 66 6e 20 70 72 65 64 69 63 61 74 65 20 69 74 65 6d 20 65 6c 74 5d 20 35 29 29 0a 28 64 | keyfn.predicate.item.elt].5)).(d |
| 6280 | 65 66 75 6e 20 65 6c 74 2d 73 61 74 69 73 66 69 65 73 2d 69 66 2d 6e 6f 74 2d 70 20 28 69 74 65 | efun.elt-satisfies-if-not-p.(ite |
| 62a0 | 6d 20 6b 6c 69 73 74 29 20 22 5c 0a 45 4c 54 2d 53 41 54 49 53 46 49 45 53 2d 49 46 2d 4e 4f 54 | m.klist)."\.ELT-SATISFIES-IF-NOT |
| 62c0 | 2d 50 20 49 54 45 4d 20 4b 4c 49 53 54 20 3d 3e 20 74 20 6f 72 20 6e 69 6c 0a 4b 4c 49 53 54 20 | -P.ITEM.KLIST.=>.t.or.nil.KLIST. |
| 62e0 | 65 6e 63 6f 64 65 73 20 61 20 6b 65 79 77 6f 72 64 2d 61 72 67 75 6d 65 6e 74 73 20 74 65 73 74 | encodes.a.keyword-arguments.test |
| 6300 | 2c 20 61 73 20 69 6e 20 43 48 2e 20 31 34 20 6f 66 20 43 4c 74 4c 2e 0a 54 72 75 65 20 69 66 20 | ,.as.in.CH..14.of.CLtL..True.if. |
| 6320 | 61 6e 20 2d 69 66 2d 6e 6f 74 20 73 74 79 6c 65 20 66 75 6e 63 74 69 6f 6e 20 77 61 73 20 63 61 | an.-if-not.style.function.was.ca |
| 6340 | 6c 6c 65 64 20 61 6e 64 20 49 54 45 4d 20 64 6f 65 73 20 6e 6f 74 20 73 61 74 69 73 66 79 0a 74 | lled.and.ITEM.does.not.satisfy.t |
| 6360 | 68 65 20 70 72 65 64 69 63 61 74 65 20 75 6e 64 65 72 20 3a 70 72 65 64 69 63 61 74 65 20 69 6e | he.predicate.under.:predicate.in |
| 6380 | 20 4b 4c 49 53 54 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 5c 6e 5c 22 c0 0b c4 5c 22 | .KLIST.".(byte-code."..\n\"...\" |
| 63a0 | 1d 89 1e 06 0e 07 0d 0e 08 21 5c 22 2a 3f 87 22 20 5b 65 78 74 72 61 63 74 2d 66 72 6f 6d 2d 6b | .........!\"*?.".[extract-from-k |
| 63c0 | 6c 69 73 74 20 3a 70 72 65 64 69 63 61 74 65 20 6b 6c 69 73 74 20 3a 6b 65 79 20 69 64 65 6e 74 | list.:predicate.klist.:key.ident |
| 63e0 | 69 74 79 20 6b 65 79 66 6e 20 70 72 65 64 69 63 61 74 65 20 69 74 65 6d 20 65 6c 74 5d 20 35 29 | ity.keyfn.predicate.item.elt].5) |
| 6400 | 29 0a 28 64 65 66 75 6e 20 65 6c 74 73 2d 6d 61 74 63 68 2d 75 6e 64 65 72 2d 6b 6c 69 73 74 2d | ).(defun.elts-match-under-klist- |
| 6420 | 70 20 28 65 31 20 65 32 20 6b 6c 69 73 74 29 20 22 5c 0a 45 4c 54 53 2d 4d 41 54 43 48 2d 55 4e | p.(e1.e2.klist)."\.ELTS-MATCH-UN |
| 6440 | 44 45 52 2d 4b 4c 49 53 54 2d 50 20 45 31 20 45 32 20 4b 4c 49 53 54 20 3d 3e 20 74 20 6f 72 20 | DER-KLIST-P.E1.E2.KLIST.=>.t.or. |
| 6460 | 6e 69 6c 0a 4b 4c 49 53 54 20 65 6e 63 6f 64 65 73 20 61 20 6b 65 79 77 6f 72 64 2d 61 72 67 75 | nil.KLIST.encodes.a.keyword-argu |
| 6480 | 6d 65 6e 74 73 20 74 65 73 74 2c 20 61 73 20 69 6e 20 43 48 2e 20 31 34 20 6f 66 20 43 4c 74 4c | ments.test,.as.in.CH..14.of.CLtL |
| 64a0 | 2e 0a 54 72 75 65 20 69 66 20 65 6c 65 6d 65 6e 74 73 20 45 31 20 61 6e 64 20 45 32 20 6d 61 74 | ..True.if.elements.E1.and.E2.mat |
| 64c0 | 63 68 20 75 6e 64 65 72 20 74 68 65 20 74 65 73 74 73 20 65 6e 63 6f 64 65 64 20 69 6e 20 4b 4c | ch.under.the.tests.encoded.in.KL |
| 64e0 | 49 53 54 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 5c 6e 5c 22 c0 0b 5c 6e 5c 22 c0 0c | IST.".(byte-code."..\n\"..\n\".. |
| 6500 | 5c 6e c5 23 1e 06 1e 07 89 1e 08 83 27 00 0e 08 0e 06 0e 09 21 0e 06 0e 5c 6e 21 5c 22 82 43 00 | \n.#........'.......!...\n!\".C. |
| 6520 | 0e 07 83 3d 00 0e 07 0e 06 0e 09 21 0e 06 0e 5c 6e 21 5c 22 3f 82 43 00 cb cc cd 5c 6e 21 5c 22 | ...=.......!...\n!\"?.C....\n!\" |
| 6540 | 2b 87 22 20 5b 65 78 74 72 61 63 74 2d 66 72 6f 6d 2d 6b 6c 69 73 74 20 3a 74 65 73 74 20 6b 6c | +.".[extract-from-klist.:test.kl |
| 6560 | 69 73 74 20 3a 74 65 73 74 2d 6e 6f 74 20 3a 6b 65 79 20 69 64 65 6e 74 69 74 79 20 6b 65 79 66 | ist.:test-not.:key.identity.keyf |
| 6580 | 6e 20 74 65 73 74 2d 6e 6f 74 20 74 65 73 74 20 65 31 20 65 32 20 65 72 72 6f 72 20 22 4e 65 69 | n.test-not.test.e1.e2.error."Nei |
| 65a0 | 74 68 65 72 20 3a 74 65 73 74 20 6e 6f 72 20 3a 74 65 73 74 2d 6e 6f 74 20 69 6e 20 60 25 73 27 | ther.:test.nor.:test-not.in.`%s' |
| 65c0 | 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 37 29 29 0a 28 62 79 74 65 2d 63 6f 64 | ".prin1-to-string].7)).(byte-cod |
| 65e0 | 65 20 22 c0 c1 c2 c3 23 88 c0 c4 c2 c3 23 88 c0 c5 c2 c6 23 88 c0 c7 c2 c8 23 88 c0 c9 c2 c8 23 | e."....#.....#.....#.....#.....# |
| 6600 | 87 22 20 5b 70 75 74 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 6c 69 73 70 | .".[put.multiple-value-bind.lisp |
| 6620 | 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 32 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 | -indent-hook.2.multiple-value-se |
| 6640 | 74 71 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 6e 69 6c 20 6d 75 6c 74 69 | tq.multiple-value-list.nil.multi |
| 6660 | 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 20 31 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | ple-value-call.1.multiple-value- |
| 6680 | 70 72 6f 67 31 5d 20 34 29 0a 28 64 65 66 76 61 72 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 | prog1].4).(defvar.*mvalues-value |
| 66a0 | 73 2a 20 6e 69 6c 20 22 5c 0a 4d 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 72 65 74 75 72 6e 65 64 | s*.nil."\.Most.recently.returned |
| 66c0 | 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 73 22 29 0a 28 64 65 66 76 61 72 20 2a 6d 76 61 6c | .multiple-values").(defvar.*mval |
| 66e0 | 75 65 73 2d 63 6f 75 6e 74 2a 20 6e 69 6c 20 22 5c 0a 43 6f 75 6e 74 20 6f 66 20 6d 75 6c 74 69 | ues-count*.nil."\.Count.of.multi |
| 6700 | 70 6c 65 2d 76 61 6c 75 65 73 20 72 65 74 75 72 6e 65 64 2c 20 6f 72 20 6e 69 6c 20 69 66 20 74 | ple-values.returned,.or.nil.if.t |
| 6720 | 68 65 20 6d 65 63 68 61 6e 69 73 6d 20 77 61 73 20 6e 6f 74 20 75 73 65 64 22 29 0a 28 64 65 66 | he.mechanism.was.not.used").(def |
| 6740 | 75 6e 20 76 61 6c 75 65 73 20 28 26 72 65 73 74 20 76 61 6c 2d 66 6f 72 6d 73 29 20 22 5c 0a 50 | un.values.(&rest.val-forms)."\.P |
| 6760 | 72 6f 64 75 63 65 20 6d 75 6c 74 69 70 6c 65 20 76 61 6c 75 65 73 20 28 7a 65 72 6f 20 6f 72 20 | roduce.multiple.values.(zero.or. |
| 6780 | 6d 6f 72 65 29 2e 20 20 45 61 63 68 20 61 72 67 20 69 73 20 6f 6e 65 20 76 61 6c 75 65 2e 0a 53 | more)...Each.arg.is.one.value..S |
| 67a0 | 65 65 20 61 6c 73 6f 20 60 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 27 2c 20 77 | ee.also.`multiple-value-bind',.w |
| 67c0 | 68 69 63 68 20 69 73 20 6f 6e 65 20 77 61 79 20 74 6f 20 65 78 61 6d 69 6e 65 20 74 68 65 0a 6d | hich.is.one.way.to.examine.the.m |
| 67e0 | 75 6c 74 69 70 6c 65 20 76 61 6c 75 65 73 20 70 72 6f 64 75 63 65 64 20 62 79 20 61 20 66 6f 72 | ultiple.values.produced.by.a.for |
| 6800 | 6d 2e 20 20 49 66 20 74 68 65 20 63 6f 6e 74 61 69 6e 69 6e 67 20 66 6f 72 6d 20 6f 72 20 63 61 | m...If.the.containing.form.or.ca |
| 6820 | 6c 6c 65 72 0a 64 6f 65 73 20 6e 6f 74 20 63 68 65 63 6b 20 73 70 65 63 69 61 6c 6c 79 20 74 6f | ller.does.not.check.specially.to |
| 6840 | 20 73 65 65 20 6d 75 6c 74 69 70 6c 65 20 76 61 6c 75 65 73 2c 20 69 74 20 77 69 6c 6c 20 73 65 | .see.multiple.values,.it.will.se |
| 6860 | 65 20 6f 6e 6c 79 0a 74 68 65 20 66 69 72 73 74 20 76 61 6c 75 65 2e 22 20 28 62 79 74 65 2d 63 | e.only.the.first.value.".(byte-c |
| 6880 | 6f 64 65 20 22 08 89 11 47 12 09 40 87 22 20 5b 76 61 6c 2d 66 6f 72 6d 73 20 2a 6d 76 61 6c 75 | ode."...G..@.".[val-forms.*mvalu |
| 68a0 | 65 73 2d 76 61 6c 75 65 73 2a 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 5d 20 32 29 29 0a | es-values*.*mvalues-count*].2)). |
| 68c0 | 28 64 65 66 75 6e 20 76 61 6c 75 65 73 2d 6c 69 73 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 76 61 | (defun.values-list.(&optional.va |
| 68e0 | 6c 2d 66 6f 72 6d 73 29 20 22 5c 0a 50 72 6f 64 75 63 65 20 6d 75 6c 74 69 70 6c 65 20 76 61 6c | l-forms)."\.Produce.multiple.val |
| 6900 | 75 65 73 20 28 7a 65 72 6f 20 6f 72 20 6d 6f 64 65 29 2e 20 20 45 61 63 68 20 65 6c 65 6d 65 6e | ues.(zero.or.mode)...Each.elemen |
| 6920 | 74 20 6f 66 20 4c 49 53 54 20 69 73 20 6f 6e 65 20 76 61 6c 75 65 2e 0a 54 68 69 73 20 69 73 20 | t.of.LIST.is.one.value..This.is. |
| 6940 | 65 71 75 69 76 61 6c 65 6e 74 20 74 6f 20 28 61 70 70 6c 79 20 27 76 61 6c 75 65 73 20 4c 49 53 | equivalent.to.(apply.'values.LIS |
| 6960 | 54 29 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3c 84 0c 00 c1 c2 c3 08 21 5c 22 88 08 89 | T).".(byte-code.".<.......!\"... |
| 6980 | 14 47 15 0c 40 87 22 20 5b 76 61 6c 2d 66 6f 72 6d 73 20 65 72 72 6f 72 20 22 41 72 67 75 6d 65 | .G..@.".[val-forms.error."Argume |
| 69a0 | 6e 74 20 74 6f 20 76 61 6c 75 65 73 2d 6c 69 73 74 20 6d 75 73 74 20 62 65 20 61 20 6c 69 73 74 | nt.to.values-list.must.be.a.list |
| 69c0 | 2c 20 6e 6f 74 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 2a 6d 76 61 | ,.not.`%s'".prin1-to-string.*mva |
| 69e0 | 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 5d 20 35 29 | lues-values*.*mvalues-count*].5) |
| 6a00 | 29 0a 28 64 65 66 6d 61 63 72 6f 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 | ).(defmacro.multiple-value-list. |
| 6a20 | 28 66 6f 72 6d 29 20 22 5c 0a 45 78 65 63 75 74 65 20 46 4f 52 4d 20 61 6e 64 20 72 65 74 75 72 | (form)."\.Execute.FORM.and.retur |
| 6a40 | 6e 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 74 68 65 20 28 6d 75 6c 74 69 70 6c 65 29 20 76 | n.a.list.of.all.the.(multiple).v |
| 6a60 | 61 6c 75 65 73 20 46 4f 52 4d 20 70 72 6f 64 75 63 65 73 2e 0a 53 65 65 20 60 76 61 6c 75 65 73 | alues.FORM.produces..See.`values |
| 6a80 | 27 20 61 6e 64 20 60 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 27 2e 22 20 28 62 | '.and.`multiple-value-bind'.".(b |
| 6aa0 | 79 74 65 2d 63 6f 64 65 20 22 c0 c1 c2 c3 45 c4 c5 c6 44 43 c7 c5 0e 08 45 c9 c2 ca cb 44 c0 c1 | yte-code."....E...DC....E....D.. |
| 6ac0 | c2 cc 45 c1 cb cd ce c5 44 44 45 ca cb 44 46 46 46 45 87 22 20 5b 70 72 6f 67 6e 20 73 65 74 71 | ..E.....DDE..DFFFE.".[progn.setq |
| 6ae0 | 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 6e 69 6c 20 6c 65 74 20 69 74 20 28 67 65 6e | .*mvalues-count*.nil.let.it.(gen |
| 6b00 | 73 79 6d 29 20 73 65 74 20 66 6f 72 6d 20 69 66 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 2a | sym).set.form.if.copy-sequence.* |
| 6b20 | 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 31 20 6c 69 73 74 20 73 79 6d 62 6f 6c 2d 76 61 | mvalues-values*.1.list.symbol-va |
| 6b40 | 6c 75 65 5d 20 31 35 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c | lue].15)).(defmacro.multiple-val |
| 6b60 | 75 65 2d 63 61 6c 6c 20 28 66 75 6e 63 74 69 6f 6e 20 26 72 65 73 74 20 61 72 67 73 29 20 22 5c | ue-call.(function.&rest.args)."\ |
| 6b80 | 0a 43 61 6c 6c 20 46 55 4e 43 54 49 4f 4e 20 6f 6e 20 61 6c 6c 20 74 68 65 20 76 61 6c 75 65 73 | .Call.FUNCTION.on.all.the.values |
| 6ba0 | 20 70 72 6f 64 75 63 65 64 20 62 79 20 74 68 65 20 72 65 6d 61 69 6e 69 6e 67 20 61 72 67 75 6d | .produced.by.the.remaining.argum |
| 6bc0 | 65 6e 74 73 2e 0a 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 63 61 6c 6c 20 27 2b 20 28 76 | ents..(multiple-value-call.'+.(v |
| 6be0 | 61 6c 75 65 73 20 31 20 32 29 20 28 76 61 6c 75 65 73 20 33 20 34 29 29 20 69 73 20 31 30 2e 22 | alues.1.2).(values.3.4)).is.10." |
| 6c00 | 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 19 c0 20 1a c3 c4 c5 0c 21 44 c6 09 c7 44 43 c8 5c | .(byte-code."..........!D...DC.\ |
| 6c20 | 6e c9 0e 5c 6e 44 09 45 cb 09 cc 09 cd c5 5c 6e 44 44 45 45 45 45 45 2a 87 22 20 5b 67 65 6e 74 | n..\nD.E......\nDDEEEEE*.".[gent |
| 6c40 | 65 6d 70 20 72 65 73 75 6c 74 20 61 72 67 20 61 70 70 6c 79 20 66 75 6e 63 74 69 6f 6e 20 65 76 | emp.result.arg.apply.function.ev |
| 6c60 | 61 6c 20 6c 65 74 2a 20 6e 69 6c 20 64 6f 6c 69 73 74 20 71 75 6f 74 65 20 61 72 67 73 20 73 65 | al.let*.nil.dolist.quote.args.se |
| 6c80 | 74 71 20 61 70 70 65 6e 64 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 5d 20 31 | tq.append.multiple-value-list].1 |
| 6ca0 | 33 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e | 3)).(defmacro.multiple-value-bin |
| 6cc0 | 64 20 28 76 61 72 73 20 66 6f 72 6d 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c 0a 42 69 6e 64 | d.(vars.form.&rest.body)."\.Bind |
| 6ce0 | 20 56 41 52 53 20 74 6f 20 74 68 65 20 28 6d 75 6c 74 69 70 6c 65 29 20 76 61 6c 75 65 73 20 70 | .VARS.to.the.(multiple).values.p |
| 6d00 | 72 6f 64 75 63 65 64 20 62 79 20 46 4f 52 4d 2c 20 74 68 65 6e 20 64 6f 20 42 4f 44 59 2e 0a 56 | roduced.by.FORM,.then.do.BODY..V |
| 6d20 | 41 52 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 76 61 72 69 61 62 6c 65 73 3b 20 65 61 63 68 | ARS.is.a.list.of.variables;.each |
| 6d40 | 20 69 73 20 62 6f 75 6e 64 20 74 6f 20 6f 6e 65 20 6f 66 20 46 4f 52 4d 27 73 20 76 61 6c 75 65 | .is.bound.to.one.of.FORM's.value |
| 6d60 | 73 2e 0a 49 66 20 46 4f 52 4d 20 64 6f 65 73 6e 27 74 20 6d 61 6b 65 20 65 6e 6f 75 67 68 20 76 | s..If.FORM.doesn't.make.enough.v |
| 6d80 | 61 6c 75 65 73 2c 20 74 68 65 20 65 78 74 72 61 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 62 | alues,.the.extra.variables.are.b |
| 6da0 | 6f 75 6e 64 20 74 6f 20 6e 69 6c 2e 0a 28 4f 72 64 69 6e 61 72 79 20 66 6f 72 6d 73 20 70 72 6f | ound.to.nil..(Ordinary.forms.pro |
| 6dc0 | 64 75 63 65 20 6f 6e 6c 79 20 6f 6e 65 20 76 61 6c 75 65 3b 20 74 6f 20 70 72 6f 64 75 63 65 20 | duce.only.one.value;.to.produce. |
| 6de0 | 6d 6f 72 65 2c 20 75 73 65 20 60 76 61 6c 75 65 73 27 2e 29 0a 45 78 74 72 61 20 76 61 6c 75 65 | more,.use.`values'.).Extra.value |
| 6e00 | 73 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 0a 42 4f 44 59 20 28 7a 65 72 6f 20 6f 72 20 6d 6f 72 | s.are.ignored..BODY.(zero.or.mor |
| 6e20 | 65 20 66 6f 72 6d 73 29 20 69 73 20 65 78 65 63 75 74 65 64 20 77 69 74 68 20 74 68 65 20 76 61 | e.forms).is.executed.with.the.va |
| 6e40 | 72 69 61 62 6c 65 73 20 62 6f 75 6e 64 2c 0a 74 68 65 6e 20 74 68 65 20 62 69 6e 64 69 6e 67 73 | riables.bound,.then.the.bindings |
| 6e60 | 20 61 72 65 20 75 6e 77 6f 75 6e 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 19 c2 0b | .are.unwound.".(byte-code."..... |
| 6e80 | 09 5c 22 1c c5 c6 09 c7 0e 08 44 44 0c 42 0e 09 23 2a 87 22 20 5b 67 65 6e 74 65 6d 70 20 76 61 | .\".......DD.B..#*.".[gentemp.va |
| 6ea0 | 6c 73 20 6d 76 2d 62 69 6e 64 2d 63 6c 61 75 73 69 66 79 20 76 61 72 73 20 63 6c 61 75 73 65 73 | ls.mv-bind-clausify.vars.clauses |
| 6ec0 | 20 6c 69 73 74 2a 20 6c 65 74 2a 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 | .list*.let*.multiple-value-list. |
| 6ee0 | 66 6f 72 6d 20 62 6f 64 79 5d 20 35 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 6d 75 6c 74 69 70 6c | form.body].5)).(defmacro.multipl |
| 6f00 | 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 76 61 72 73 20 66 6f 72 6d 29 20 22 5c 0a 53 65 74 20 | e-value-setq.(vars.form)."\.Set. |
| 6f20 | 56 41 52 53 20 74 6f 20 74 68 65 20 28 6d 75 6c 74 69 70 6c 65 29 20 76 61 6c 75 65 73 20 70 72 | VARS.to.the.(multiple).values.pr |
| 6f40 | 6f 64 75 63 65 64 20 62 79 20 46 4f 52 4d 2e 0a 56 41 52 53 20 69 73 20 61 20 6c 69 73 74 20 6f | oduced.by.FORM..VARS.is.a.list.o |
| 6f60 | 66 20 76 61 72 69 61 62 6c 65 73 3b 20 65 61 63 68 20 69 73 20 73 65 74 20 74 6f 20 6f 6e 65 20 | f.variables;.each.is.set.to.one. |
| 6f80 | 6f 66 20 46 4f 52 4d 27 73 20 76 61 6c 75 65 73 2e 0a 49 66 20 46 4f 52 4d 20 64 6f 65 73 6e 27 | of.FORM's.values..If.FORM.doesn' |
| 6fa0 | 74 20 6d 61 6b 65 20 65 6e 6f 75 67 68 20 76 61 6c 75 65 73 2c 20 74 68 65 20 65 78 74 72 61 20 | t.make.enough.values,.the.extra. |
| 6fc0 | 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 73 65 74 20 74 6f 20 6e 69 6c 2e 0a 28 4f 72 64 69 6e | variables.are.set.to.nil..(Ordin |
| 6fe0 | 61 72 79 20 66 6f 72 6d 73 20 70 72 6f 64 75 63 65 20 6f 6e 6c 79 20 6f 6e 65 20 76 61 6c 75 65 | ary.forms.produce.only.one.value |
| 7000 | 3b 20 74 6f 20 70 72 6f 64 75 63 65 20 6d 6f 72 65 2c 20 75 73 65 20 60 76 61 6c 75 65 73 27 2e | ;.to.produce.more,.use.`values'. |
| 7020 | 29 0a 45 78 74 72 61 20 76 61 6c 75 65 73 20 61 72 65 20 69 67 6e 6f 72 65 64 2e 22 20 28 62 79 | ).Extra.values.are.ignored.".(by |
| 7040 | 74 65 2d 63 6f 64 65 20 22 c0 20 19 c2 0b 09 5c 22 1c c5 09 c6 0e 07 44 44 43 c8 c9 ca 0c 5c 22 | te-code."......\"......DDC....\" |
| 7060 | 42 45 2a 87 22 20 5b 67 65 6e 74 65 6d 70 20 76 61 6c 73 20 6d 76 2d 62 69 6e 64 2d 63 6c 61 75 | BE*.".[gentemp.vals.mv-bind-clau |
| 7080 | 73 69 66 79 20 76 61 72 73 20 63 6c 61 75 73 65 73 20 6c 65 74 2a 20 6d 75 6c 74 69 70 6c 65 2d | sify.vars.clauses.let*.multiple- |
| 70a0 | 76 61 6c 75 65 2d 6c 69 73 74 20 66 6f 72 6d 20 73 65 74 71 20 61 70 70 6c 79 20 61 70 70 65 6e | value-list.form.setq.apply.appen |
| 70c0 | 64 5d 20 36 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d | d].6)).(defmacro.multiple-value- |
| 70e0 | 70 72 6f 67 31 20 28 66 6f 72 6d 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 5c 0a 45 76 61 6c 75 | prog1.(form.&rest.body)."\.Evalu |
| 7100 | 61 74 65 20 46 4f 52 4d 2c 20 74 68 65 6e 20 42 4f 44 59 2c 20 74 68 65 6e 20 70 72 6f 64 75 63 | ate.FORM,.then.BODY,.then.produc |
| 7120 | 65 20 74 68 65 20 73 61 6d 65 20 76 61 6c 75 65 73 20 46 4f 52 4d 20 70 72 6f 64 75 63 65 64 2e | e.the.same.values.FORM.produced. |
| 7140 | 0a 54 68 75 73 2c 20 28 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 70 72 6f 67 31 20 28 76 61 | .Thus,.(multiple-value-prog1.(va |
| 7160 | 6c 75 65 73 20 31 20 32 29 20 28 66 6f 6f 62 61 72 29 29 20 70 72 6f 64 75 63 65 73 20 76 61 6c | lues.1.2).(foobar)).produces.val |
| 7180 | 75 65 73 20 31 20 61 6e 64 20 32 2e 0a 54 68 69 73 20 69 73 20 6c 69 6b 65 20 60 70 72 6f 67 31 | ues.1.and.2..This.is.like.`prog1 |
| 71a0 | 27 20 65 78 63 65 70 74 20 74 68 61 74 20 60 70 72 6f 67 31 27 20 77 6f 75 6c 64 20 70 72 6f 64 | '.except.that.`prog1'.would.prod |
| 71c0 | 75 63 65 20 6f 6e 6c 79 20 6f 6e 65 20 76 61 6c 75 65 2c 0a 77 68 69 63 68 20 77 6f 75 6c 64 20 | uce.only.one.value,.which.would. |
| 71e0 | 62 65 20 74 68 65 20 66 69 72 73 74 20 6f 66 20 46 4f 52 4d 27 73 20 76 61 6c 75 65 73 2e 22 20 | be.the.first.of.FORM's.values.". |
| 7200 | 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 19 c2 09 c3 0c 44 44 43 c5 0e 06 c7 09 44 43 5c 22 29 | (byte-code.".......DDC.....DC\") |
| 7220 | 42 42 87 22 20 5b 67 65 6e 74 65 6d 70 20 68 65 6c 64 76 61 6c 75 65 73 20 6c 65 74 2a 20 6d 75 | BB.".[gentemp.heldvalues.let*.mu |
| 7240 | 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 6c 69 73 74 20 66 6f 72 6d 20 61 70 70 65 6e 64 20 62 6f | ltiple-value-list.form.append.bo |
| 7260 | 64 79 20 76 61 6c 75 65 73 2d 6c 69 73 74 5d 20 36 29 29 0a 28 64 65 66 75 6e 20 6d 76 2d 62 69 | dy.values-list].6)).(defun.mv-bi |
| 7280 | 6e 64 2d 63 6c 61 75 73 69 66 79 20 28 76 61 72 73 20 76 61 6c 73 29 20 22 5c 0a 4d 56 2d 42 49 | nd-clausify.(vars.vals)."\.MV-BI |
| 72a0 | 4e 44 2d 43 4c 41 55 53 49 46 59 20 56 41 52 53 20 56 41 4c 53 20 3d 3e 20 41 75 78 69 6c 69 61 | ND-CLAUSIFY.VARS.VALS.=>.Auxilia |
| 72c0 | 72 79 20 6c 69 73 74 0a 46 6f 72 6d 73 20 61 20 6c 69 73 74 20 6f 66 20 70 61 69 72 73 20 60 28 | ry.list.Forms.a.list.of.pairs.`( |
| 72e0 | 2c 28 6e 74 68 20 69 20 76 61 72 73 29 20 28 6e 74 68 20 69 20 76 61 6c 73 29 29 20 66 6f 72 20 | ,(nth.i.vars).(nth.i.vals)).for. |
| 7300 | 69 20 66 72 6f 6d 20 30 20 74 6f 0a 74 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 56 41 52 53 20 28 | i.from.0.to.the.length.of.VARS.( |
| 7320 | 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 29 2e 20 20 56 41 4c 53 20 69 73 20 6a 75 73 | a.list.of.symbols)...VALS.is.jus |
| 7340 | 74 20 61 20 66 72 65 73 68 20 73 79 6d 62 6f 6c 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 | t.a.fresh.symbol.".(byte-code.". |
| 7360 | 3c 83 0c 00 c1 c2 08 5c 22 83 13 00 c3 c4 c5 08 21 5c 22 88 08 47 1e 06 c7 1e 08 0e 06 1e 09 ca | <......\".......!\"..G.......... |
| 7380 | 1e 0b ca 0e 09 59 84 42 00 0e 0b 08 38 cc 0e 0b 0e 0d 45 44 0e 08 42 16 08 0e 0b ce 5c 5c 89 16 | .....Y.B....8.....ED..B.....\\.. |
| 73a0 | 0b 82 5c 22 00 0e 08 2c 87 22 20 5b 76 61 72 73 20 6e 6f 74 65 76 65 72 79 20 73 79 6d 62 6f 6c | ..\"...,.".[vars.notevery.symbol |
| 73c0 | 70 20 65 72 72 6f 72 20 22 45 78 70 65 63 74 65 64 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 | p.error."Expected.a.list.of.symb |
| 73e0 | 6f 6c 73 2c 20 6e 6f 74 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6e | ols,.not.`%s'".prin1-to-string.n |
| 7400 | 76 61 72 73 20 6e 69 6c 20 63 6c 61 75 73 65 73 20 54 24 24 5f 34 20 30 20 6e 20 6e 74 68 20 76 | vars.nil.clauses.T$$_4.0.n.nth.v |
| 7420 | 61 6c 73 20 31 5d 20 35 29 29 0a 28 64 65 66 75 6e 20 70 6c 75 73 70 20 28 6e 75 6d 62 65 72 29 | als.1].5)).(defun.plusp.(number) |
| 7440 | 20 22 5c 0a 54 72 75 65 20 69 66 20 4e 55 4d 42 45 52 20 69 73 20 73 74 72 69 63 74 6c 79 20 67 | ."\.True.if.NUMBER.is.strictly.g |
| 7460 | 72 65 61 74 65 72 20 74 68 61 6e 20 7a 65 72 6f 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 | reater.than.zero.".(byte-code.". |
| 7480 | c1 56 87 22 20 5b 6e 75 6d 62 65 72 20 30 5d 20 32 29 29 0a 28 64 65 66 75 6e 20 6d 69 6e 75 73 | .V.".[number.0].2)).(defun.minus |
| 74a0 | 70 20 28 6e 75 6d 62 65 72 29 20 22 5c 0a 54 72 75 65 20 69 66 20 4e 55 4d 42 45 52 20 69 73 20 | p.(number)."\.True.if.NUMBER.is. |
| 74c0 | 73 74 72 69 63 74 6c 79 20 6c 65 73 73 20 74 68 61 6e 20 7a 65 72 6f 2e 22 20 28 62 79 74 65 2d | strictly.less.than.zero.".(byte- |
| 74e0 | 63 6f 64 65 20 22 08 c1 57 87 22 20 5b 6e 75 6d 62 65 72 20 30 5d 20 32 29 29 0a 28 64 65 66 75 | code."..W.".[number.0].2)).(defu |
| 7500 | 6e 20 6f 64 64 70 20 28 6e 75 6d 62 65 72 29 20 22 5c 0a 54 72 75 65 20 69 66 20 49 4e 54 45 47 | n.oddp.(number)."\.True.if.INTEG |
| 7520 | 45 52 20 69 73 20 6e 6f 74 20 64 69 76 69 73 69 62 6c 65 20 62 79 20 32 2e 22 20 28 62 79 74 65 | ER.is.not.divisible.by.2.".(byte |
| 7540 | 2d 63 6f 64 65 20 22 c0 09 c2 5c 22 c3 55 3f 87 22 20 5b 25 20 6e 75 6d 62 65 72 20 32 20 30 5d | -code."...\".U?.".[%.number.2.0] |
| 7560 | 20 33 29 29 0a 28 64 65 66 75 6e 20 65 76 65 6e 70 20 28 6e 75 6d 62 65 72 29 20 22 5c 0a 54 72 | .3)).(defun.evenp.(number)."\.Tr |
| 7580 | 75 65 20 69 66 20 49 4e 54 45 47 45 52 20 69 73 20 64 69 76 69 73 69 62 6c 65 20 62 79 20 32 2e | ue.if.INTEGER.is.divisible.by.2. |
| 75a0 | 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 c2 5c 22 c3 55 87 22 20 5b 25 20 6e 75 6d 62 65 | ".(byte-code."...\".U.".[%.numbe |
| 75c0 | 72 20 32 20 30 5d 20 33 29 29 0a 28 64 65 66 75 6e 20 61 62 73 20 28 6e 75 6d 62 65 72 29 20 22 | r.2.0].3)).(defun.abs.(number)." |
| 75e0 | 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 61 62 73 6f 6c 75 74 65 20 76 61 6c 75 65 20 6f 66 20 4e | \.Return.the.absolute.value.of.N |
| 7600 | 55 4d 42 45 52 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c1 57 83 09 00 08 5b 87 08 87 22 | UMBER.".(byte-code."..W....[..." |
| 7620 | 20 5b 6e 75 6d 62 65 72 20 30 5d 20 32 29 29 0a 28 64 65 66 75 6e 20 73 69 67 6e 75 6d 20 28 6e | .[number.0].2)).(defun.signum.(n |
| 7640 | 75 6d 62 65 72 29 20 22 5c 0a 52 65 74 75 72 6e 20 2d 31 2c 20 30 20 6f 72 20 31 20 61 63 63 6f | umber)."\.Return.-1,.0.or.1.acco |
| 7660 | 72 64 69 6e 67 20 74 6f 20 74 68 65 20 73 69 67 6e 20 6f 66 20 4e 55 4d 42 45 52 2e 22 20 28 62 | rding.to.the.sign.of.NUMBER.".(b |
| 7680 | 79 74 65 2d 63 6f 64 65 20 22 08 c1 57 83 08 00 c2 87 08 c1 56 83 10 00 c3 87 c1 87 22 20 5b 6e | yte-code."..W.......V.......".[n |
| 76a0 | 75 6d 62 65 72 20 30 20 2d 31 20 31 5d 20 32 29 29 0a 28 64 65 66 75 6e 20 67 63 64 20 28 26 72 | umber.0.-1.1].2)).(defun.gcd.(&r |
| 76c0 | 65 73 74 20 69 6e 74 65 67 65 72 73 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 67 72 65 61 | est.integers)."\.Return.the.grea |
| 76e0 | 74 65 73 74 20 63 6f 6d 6d 6f 6e 20 64 69 76 69 73 6f 72 20 6f 66 20 61 6c 6c 20 74 68 65 20 61 | test.common.divisor.of.all.the.a |
| 7700 | 72 67 75 6d 65 6e 74 73 2e 0a 54 68 65 20 61 72 67 75 6d 65 6e 74 73 20 6d 75 73 74 20 62 65 20 | rguments..The.arguments.must.be. |
| 7720 | 69 6e 74 65 67 65 72 73 2e 20 20 57 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2c 20 76 61 | integers...With.no.arguments,.va |
| 7740 | 6c 75 65 20 69 73 20 7a 65 72 6f 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 47 89 19 c2 55 | lue.is.zero.".(byte-code.".G...U |
| 7760 | 83 0d 00 c2 82 9c 00 09 c3 55 83 1a 00 c4 08 40 21 82 9c 00 09 c5 56 83 31 00 c6 c7 89 08 40 08 | .........U.....@!.....V.1.....@. |
| 7780 | 41 40 5c 22 08 41 41 42 5c 22 82 9c 00 c8 08 40 08 41 40 5c 22 c2 55 83 41 00 c9 ca 21 88 c4 08 | A@\".AAB\".....@.A@\".U.A...!... |
| 77a0 | 40 21 1e 0b c4 08 41 40 21 1e 0c 0e 0b 0e 0c 5d 1e 0d 0e 0b 0e 0c 5e 1e 0e c2 1e 0f c2 1e 10 d1 | @!....A@!......]......^......... |
| 77c0 | 1e 12 c2 1e 13 0e 12 84 98 00 d4 0e 0d 0e 0e 5c 22 16 0f d5 0e 0d 0e 0e 5c 22 89 16 10 c2 55 83 | ...............\".......\"....U. |
| 77e0 | 8d 00 d6 16 12 0e 0e 16 13 82 68 00 0e 0e 16 0d 0e 10 16 0e 82 68 00 0e 13 2e 08 29 87 22 20 5b | ..........h..........h.....).".[ |
| 7800 | 69 6e 74 65 67 65 72 73 20 68 6f 77 6d 61 6e 79 20 30 20 31 20 61 62 73 20 32 20 61 70 70 6c 79 | integers.howmany.0.1.abs.2.apply |
| 7820 | 20 67 63 64 20 2a 20 65 72 72 6f 72 20 22 41 20 7a 65 72 6f 20 61 72 67 75 6d 65 6e 74 20 69 73 | .gcd.*.error."A.zero.argument.is |
| 7840 | 20 69 6e 76 61 6c 69 64 20 66 6f 72 20 60 67 63 64 27 22 20 61 62 73 61 20 61 62 73 62 20 64 64 | .invalid.for.`gcd'".absa.absb.dd |
| 7860 | 20 64 73 20 71 20 72 20 6e 69 6c 20 64 6f 6e 65 20 72 65 73 75 6c 74 20 2f 20 25 20 74 5d 20 36 | .ds.q.r.nil.done.result./.%.t].6 |
| 7880 | 29 29 0a 28 64 65 66 75 6e 20 6c 63 6d 20 28 69 6e 74 65 67 65 72 20 26 72 65 73 74 20 6d 6f 72 | )).(defun.lcm.(integer.&rest.mor |
| 78a0 | 65 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 6c 65 61 73 74 20 63 6f 6d 6d 6f 6e 20 6d 75 | e)."\.Return.the.least.common.mu |
| 78c0 | 6c 74 69 70 6c 65 20 6f 66 20 61 6c 6c 20 74 68 65 20 61 72 67 75 6d 65 6e 74 73 2e 0a 54 68 65 | ltiple.of.all.the.arguments..The |
| 78e0 | 20 61 72 67 75 6d 65 6e 74 73 20 6d 75 73 74 20 62 65 20 69 6e 74 65 67 65 72 73 20 61 6e 64 20 | .arguments.must.be.integers.and. |
| 7900 | 74 68 65 72 65 20 6d 75 73 74 20 62 65 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 6f 66 20 74 68 | there.must.be.at.least.one.of.th |
| 7920 | 65 6d 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 47 09 08 40 c2 08 41 1b 1c 1d 1e 06 89 1e | em.".(byte-code.".G..@..A....... |
| 7940 | 07 c8 55 83 1c 00 c9 0e 06 21 82 4a 00 0e 07 ca 56 83 30 00 cb cc 89 0e 06 0d 5c 22 0b 42 5c 22 | ..U......!.J....V.0.......\".B\" |
| 7960 | 82 4a 00 cd 0e 06 0d 5c 22 89 14 c8 55 83 40 00 c8 82 4a 00 ce c9 0c 21 cf 0e 06 0d 5c 22 5c 22 | .J.....\"...U.@...J....!....\"\" |
| 7980 | 2d 87 22 20 5b 6d 6f 72 65 20 69 6e 74 65 67 65 72 20 6e 69 6c 20 79 65 74 6d 6f 72 65 20 70 72 | -.".[more.integer.nil.yetmore.pr |
| 79a0 | 6f 64 20 62 20 61 20 68 6f 77 6d 61 6e 79 20 30 20 61 62 73 20 31 20 61 70 70 6c 79 20 6c 63 6d | od.b.a.howmany.0.abs.1.apply.lcm |
| 79c0 | 20 2a 20 2f 20 67 63 64 5d 20 36 29 29 0a 28 64 65 66 75 6e 20 69 73 71 72 74 20 28 6e 75 6d 62 | .*./.gcd].6)).(defun.isqrt.(numb |
| 79e0 | 65 72 29 20 22 5c 0a 52 65 74 75 72 6e 20 74 68 65 20 69 6e 74 65 67 65 72 20 73 71 75 61 72 65 | er)."\.Return.the.integer.square |
| 7a00 | 20 72 6f 6f 74 20 6f 66 20 4e 55 4d 42 45 52 2e 0a 4e 55 4d 42 45 52 20 6d 75 73 74 20 6e 6f 74 | .root.of.NUMBER..NUMBER.must.not |
| 7a20 | 20 62 65 20 6e 65 67 61 74 69 76 65 2e 20 20 52 65 73 75 6c 74 20 69 73 20 6c 61 72 67 65 73 74 | .be.negative...Result.is.largest |
| 7a40 | 20 69 6e 74 65 67 65 72 20 6c 65 73 73 20 74 68 61 6e 20 6f 72 0a 65 71 75 61 6c 20 74 6f 20 74 | .integer.less.than.or.equal.to.t |
| 7a60 | 68 65 20 72 65 61 6c 20 73 71 75 61 72 65 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 61 72 67 75 6d | he.real.square.root.of.the.argum |
| 7a80 | 65 6e 74 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 21 83 5c 6e 00 c2 c3 21 87 09 c4 55 | ent.".(byte-code."..!.\n...!...U |
| 7aa0 | 83 12 00 c4 87 09 c5 58 83 1a 00 c6 87 c7 09 c8 5c 22 1e 09 ca 1e 0b c4 1e 0c 0e 0b 84 5a 00 c7 | .......X........\"...........Z.. |
| 7ac0 | 0e 09 c7 09 0e 09 5c 22 cd 09 0e 09 5c 22 c7 0e 09 c8 5c 22 59 83 45 00 c6 82 46 00 c4 5c 5c 5c | ......\"....\"....\"Y.E...F..\\\ |
| 7ae0 | 5c c8 5c 22 16 0c 0e 09 0e 0c 3d 16 0b 0e 0c 16 09 82 26 00 ce 0e 09 89 5c 22 09 56 83 6b 00 0e | \.\"......=.......&.....\".V.k.. |
| 7b00 | 09 c6 5a 82 6d 00 0e 09 2b 87 22 20 5b 6d 69 6e 75 73 70 20 6e 75 6d 62 65 72 20 65 72 72 6f 72 | ..Z.m...+.".[minusp.number.error |
| 7b20 | 20 22 41 72 67 75 6d 65 6e 74 20 74 6f 20 60 69 73 71 72 74 27 20 6d 75 73 74 20 6e 6f 74 20 62 | ."Argument.to.`isqrt'.must.not.b |
| 7b40 | 65 20 6e 65 67 61 74 69 76 65 22 20 30 20 33 20 31 20 2f 20 32 20 61 70 70 72 6f 78 20 6e 69 6c | e.negative".0.3.1./.2.approx.nil |
| 7b60 | 20 64 6f 6e 65 20 69 74 65 72 20 25 20 2a 5d 20 37 29 29 0a 28 64 65 66 75 6e 20 66 6c 6f 6f 72 | .done.iter.%.*].7)).(defun.floor |
| 7b80 | 20 28 6e 75 6d 62 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 64 69 76 69 73 6f 72 29 20 22 5c 0a 44 | .(number.&optional.divisor)."\.D |
| 7ba0 | 69 76 69 64 65 20 44 49 56 49 44 45 4e 44 20 62 79 20 44 49 56 49 53 4f 52 2c 20 72 6f 75 6e 64 | ivide.DIVIDEND.by.DIVISOR,.round |
| 7bc0 | 69 6e 67 20 74 6f 77 61 72 64 20 6d 69 6e 75 73 20 69 6e 66 69 6e 69 74 79 2e 0a 44 49 56 49 53 | ing.toward.minus.infinity..DIVIS |
| 7be0 | 4f 52 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 2e 20 20 54 68 65 20 72 65 6d 61 69 6e 64 65 72 | OR.defaults.to.1...The.remainder |
| 7c00 | 20 69 73 20 70 72 6f 64 75 63 65 64 20 61 73 20 61 20 73 65 63 6f 6e 64 20 76 61 6c 75 65 2e 22 | .is.produced.as.a.second.value." |
| 7c20 | 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 84 0f 00 c1 5c 6e 21 83 0f 00 c3 5c 6e c4 5c 22 87 c5 | .(byte-code.".....\n!....\n.\".. |
| 7c40 | 16 06 c7 20 89 1e 08 c9 5c 6e 08 5c 22 4c 88 0e 06 83 29 00 ca 0e 0b 21 82 36 00 cc 16 06 0e 08 | ........\n.\"L....)....!.6...... |
| 7c60 | 4a 43 16 0b ca 0e 0b 21 29 1e 0d ce 0e 0d 38 1e 0f 0e 0d 41 40 1e 10 0e 0d 40 1e 11 0e 0f c4 55 | JC.....!).....8....A@....@.....U |
| 7c80 | 83 58 00 c3 c4 89 5c 22 82 85 00 d2 0e 0f 21 83 68 00 c3 0e 11 0e 10 5c 22 82 85 00 0e 10 c4 55 | .X....\"......!.h......\"......U |
| 7ca0 | 84 7f 00 0e 11 cc 5c 5c 5b 16 11 5c 6e d3 0e 11 08 5c 22 5a 16 10 c3 0e 11 0e 10 5c 22 2c 87 22 | ......\\[..\n....\"Z.......\",." |
| 7cc0 | 20 5b 64 69 76 69 73 6f 72 20 6e 75 6d 62 65 72 70 20 6e 75 6d 62 65 72 20 76 61 6c 75 65 73 20 | .[divisor.numberp.number.values. |
| 7ce0 | 30 20 6e 69 6c 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 6d 20 69 74 20 | 0.nil.*mvalues-count*.gensym.it. |
| 7d00 | 73 61 66 65 2d 69 64 69 76 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 | safe-idiv.copy-sequence.*mvalues |
| 7d20 | 2d 76 61 6c 75 65 73 2a 20 31 20 54 24 24 5f 35 20 32 20 73 20 72 20 71 20 70 6c 75 73 70 20 2a | -values*.1.T$$_5.2.s.r.q.plusp.* |
| 7d40 | 5d 20 35 29 29 0a 28 64 65 66 75 6e 20 63 65 69 6c 69 6e 67 20 28 6e 75 6d 62 65 72 20 26 6f 70 | ].5)).(defun.ceiling.(number.&op |
| 7d60 | 74 69 6f 6e 61 6c 20 64 69 76 69 73 6f 72 29 20 22 5c 0a 44 69 76 69 64 65 20 44 49 56 49 44 45 | tional.divisor)."\.Divide.DIVIDE |
| 7d80 | 4e 44 20 62 79 20 44 49 56 49 53 4f 52 2c 20 72 6f 75 6e 64 69 6e 67 20 74 6f 77 61 72 64 20 70 | ND.by.DIVISOR,.rounding.toward.p |
| 7da0 | 6c 75 73 20 69 6e 66 69 6e 69 74 79 2e 0a 44 49 56 49 53 4f 52 20 64 65 66 61 75 6c 74 73 20 74 | lus.infinity..DIVISOR.defaults.t |
| 7dc0 | 6f 20 31 2e 20 20 54 68 65 20 72 65 6d 61 69 6e 64 65 72 20 69 73 20 70 72 6f 64 75 63 65 64 20 | o.1...The.remainder.is.produced. |
| 7de0 | 61 73 20 61 20 73 65 63 6f 6e 64 20 76 61 6c 75 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 | as.a.second.value.".(byte-code." |
| 7e00 | 08 84 0f 00 c1 5c 6e 21 83 0f 00 c3 5c 6e c4 5c 22 87 c5 16 06 c7 20 89 1e 08 c9 5c 6e 08 5c 22 | .....\n!....\n.\"..........\n.\" |
| 7e20 | 4c 88 0e 06 83 29 00 ca 0e 0b 21 82 36 00 cc 16 06 0e 08 4a 43 16 0b ca 0e 0b 21 29 1e 0d ce 0e | L....)....!.6......JC.....!).... |
| 7e40 | 0d 38 1e 0f 0e 0d 41 40 1e 10 0e 0d 40 1e 11 0e 0f c4 55 83 58 00 c3 c4 89 5c 22 82 84 00 d2 0e | .8....A@....@.....U.X....\"..... |
| 7e60 | 0f 21 83 68 00 c3 0e 11 0e 10 5c 22 82 84 00 0e 10 c4 55 84 7e 00 0e 11 cc 5c 5c 16 11 5c 6e d3 | .!.h......\"......U.~....\\..\n. |
| 7e80 | 0e 11 08 5c 22 5a 16 10 c3 0e 11 0e 10 5c 22 2c 87 22 20 5b 64 69 76 69 73 6f 72 20 6e 75 6d 62 | ...\"Z.......\",.".[divisor.numb |
| 7ea0 | 65 72 70 20 6e 75 6d 62 65 72 20 76 61 6c 75 65 73 20 30 20 6e 69 6c 20 2a 6d 76 61 6c 75 65 73 | erp.number.values.0.nil.*mvalues |
| 7ec0 | 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 6d 20 69 74 20 73 61 66 65 2d 69 64 69 76 20 63 6f 70 79 | -count*.gensym.it.safe-idiv.copy |
| 7ee0 | 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 31 20 54 24 24 | -sequence.*mvalues-values*.1.T$$ |
| 7f00 | 5f 38 20 32 20 73 20 72 20 71 20 6d 69 6e 75 73 70 20 2a 5d 20 35 29 29 0a 28 64 65 66 75 6e 20 | _8.2.s.r.q.minusp.*].5)).(defun. |
| 7f20 | 74 72 75 6e 63 61 74 65 20 28 6e 75 6d 62 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 64 69 76 69 73 | truncate.(number.&optional.divis |
| 7f40 | 6f 72 29 20 22 5c 0a 44 69 76 69 64 65 20 44 49 56 49 44 45 4e 44 20 62 79 20 44 49 56 49 53 4f | or)."\.Divide.DIVIDEND.by.DIVISO |
| 7f60 | 52 2c 20 72 6f 75 6e 64 69 6e 67 20 74 6f 77 61 72 64 20 7a 65 72 6f 2e 0a 44 49 56 49 53 4f 52 | R,.rounding.toward.zero..DIVISOR |
| 7f80 | 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 2e 20 20 54 68 65 20 72 65 6d 61 69 6e 64 65 72 20 69 | .defaults.to.1...The.remainder.i |
| 7fa0 | 73 20 70 72 6f 64 75 63 65 64 20 61 73 20 61 20 73 65 63 6f 6e 64 20 76 61 6c 75 65 2e 22 20 28 | s.produced.as.a.second.value.".( |
| 7fc0 | 62 79 74 65 2d 63 6f 64 65 20 22 08 84 0f 00 c1 5c 6e 21 83 0f 00 c3 5c 6e c4 5c 22 87 c5 16 06 | byte-code.".....\n!....\n.\".... |
| 7fe0 | c7 20 89 1e 08 c9 5c 6e 08 5c 22 4c 88 0e 06 83 29 00 ca 0e 0b 21 82 36 00 cc 16 06 0e 08 4a 43 | ......\n.\"L....)....!.6......JC |
| 8000 | 16 0b ca 0e 0b 21 29 1e 0d ce 0e 0d 38 1e 0f 0e 0d 41 40 1e 10 0e 0d 40 1e 11 0e 0f c4 55 83 58 | .....!).....8....A@....@.....U.X |
| 8020 | 00 c3 c4 89 5c 22 82 83 00 d2 0e 0f 21 83 68 00 c3 0e 11 0e 10 5c 22 82 83 00 0e 10 c4 55 84 7d | ....\"......!.h......\"......U.} |
| 8040 | 00 0e 11 5b 16 11 5c 6e d3 0e 11 08 5c 22 5a 16 10 c3 0e 11 0e 10 5c 22 2c 87 22 20 5b 64 69 76 | ...[..\n....\"Z.......\",.".[div |
| 8060 | 69 73 6f 72 20 6e 75 6d 62 65 72 70 20 6e 75 6d 62 65 72 20 76 61 6c 75 65 73 20 30 20 6e 69 6c | isor.numberp.number.values.0.nil |
| 8080 | 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 6d 20 69 74 20 73 61 66 65 2d | .*mvalues-count*.gensym.it.safe- |
| 80a0 | 69 64 69 76 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 | idiv.copy-sequence.*mvalues-valu |
| 80c0 | 65 73 2a 20 31 20 54 24 24 5f 31 31 20 32 20 73 20 72 20 71 20 70 6c 75 73 70 20 2a 5d 20 35 29 | es*.1.T$$_11.2.s.r.q.plusp.*].5) |
| 80e0 | 29 0a 28 64 65 66 75 6e 20 72 6f 75 6e 64 20 28 6e 75 6d 62 65 72 20 26 6f 70 74 69 6f 6e 61 6c | ).(defun.round.(number.&optional |
| 8100 | 20 64 69 76 69 73 6f 72 29 20 22 5c 0a 44 69 76 69 64 65 20 44 49 56 49 44 45 4e 44 20 62 79 20 | .divisor)."\.Divide.DIVIDEND.by. |
| 8120 | 44 49 56 49 53 4f 52 2c 20 72 6f 75 6e 64 69 6e 67 20 74 6f 20 6e 65 61 72 65 73 74 20 69 6e 74 | DIVISOR,.rounding.to.nearest.int |
| 8140 | 65 67 65 72 2e 0a 44 49 56 49 53 4f 52 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 2e 20 20 54 68 | eger..DIVISOR.defaults.to.1...Th |
| 8160 | 65 20 72 65 6d 61 69 6e 64 65 72 20 69 73 20 70 72 6f 64 75 63 65 64 20 61 73 20 61 20 73 65 63 | e.remainder.is.produced.as.a.sec |
| 8180 | 6f 6e 64 20 76 61 6c 75 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 84 0f 00 c1 5c 6e 21 | ond.value.".(byte-code.".....\n! |
| 81a0 | 83 0f 00 c3 5c 6e c4 5c 22 87 c5 16 06 c7 20 89 1e 08 c9 5c 6e 08 5c 22 4c 88 0e 06 83 29 00 ca | ....\n.\"..........\n.\"L....).. |
| 81c0 | 0e 0b 21 82 36 00 cc 16 06 0e 08 4a 43 16 0b ca 0e 0b 21 29 1e 0d ce 0e 0d 38 1e 0f 0e 0d 41 40 | ..!.6......JC.....!).....8....A@ |
| 81e0 | 1e 10 0e 0d 40 1e 11 d2 0e 10 21 16 10 d2 08 21 0e 10 5a 1e 13 0e 10 0e 13 56 83 69 00 0e 11 cc | ....@.....!....!..Z......V.i.... |
| 8200 | 5c 5c 16 11 82 7e 00 0e 10 0e 13 55 83 7e 00 d4 0e 11 21 83 7e 00 0e 11 cc 5c 5c 16 11 d5 0e 0f | \\...~.....U.~....!.~....\\..... |
| 8220 | 0e 11 5c 22 16 11 5c 6e d5 0e 11 08 5c 22 5a 16 10 c3 0e 11 0e 10 5c 22 2d 87 22 20 5b 64 69 76 | ..\"..\n....\"Z.......\"-.".[div |
| 8240 | 69 73 6f 72 20 6e 75 6d 62 65 72 70 20 6e 75 6d 62 65 72 20 76 61 6c 75 65 73 20 30 20 6e 69 6c | isor.numberp.number.values.0.nil |
| 8260 | 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 6d 20 69 74 20 73 61 66 65 2d | .*mvalues-count*.gensym.it.safe- |
| 8280 | 69 64 69 76 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 | idiv.copy-sequence.*mvalues-valu |
| 82a0 | 65 73 2a 20 31 20 54 24 24 5f 31 34 20 32 20 73 20 72 20 71 20 61 62 73 20 6f 74 68 65 72 2d 72 | es*.1.T$$_14.2.s.r.q.abs.other-r |
| 82c0 | 20 6f 64 64 70 20 2a 5d 20 35 29 29 0a 28 64 65 66 75 6e 20 6d 6f 64 20 28 6e 75 6d 62 65 72 20 | .oddp.*].5)).(defun.mod.(number. |
| 82e0 | 64 69 76 69 73 6f 72 29 20 22 5c 0a 52 65 74 75 72 6e 20 72 65 6d 61 69 6e 64 65 72 20 6f 66 20 | divisor)."\.Return.remainder.of. |
| 8300 | 58 20 62 79 20 59 20 28 72 6f 75 6e 64 69 6e 67 20 71 75 6f 74 69 65 6e 74 20 74 6f 77 61 72 64 | X.by.Y.(rounding.quotient.toward |
| 8320 | 20 6d 69 6e 75 73 20 69 6e 66 69 6e 69 74 79 29 2e 0a 54 68 61 74 20 69 73 2c 20 74 68 65 20 72 | .minus.infinity)..That.is,.the.r |
| 8340 | 65 6d 61 69 6e 64 65 72 20 67 6f 65 73 20 77 69 74 68 20 74 68 65 20 71 75 6f 74 69 65 6e 74 20 | emainder.goes.with.the.quotient. |
| 8360 | 70 72 6f 64 75 63 65 64 20 62 79 20 60 66 6c 6f 6f 72 27 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 | produced.by.`floor'.".(byte-code |
| 8380 | 20 22 c0 11 c2 20 89 1b c4 0d 0e 06 5c 22 4c 88 09 83 18 00 c7 0e 08 21 82 23 00 c9 11 0b 4a 43 | ."..........\"L........!.#....JC |
| 83a0 | 16 08 c7 0e 08 21 29 89 1e 5c 6e 41 40 1e 0b 0e 5c 6e 40 1e 0c 0e 0b 2b 87 22 20 5b 6e 69 6c 20 | .....!)..\nA@...\n@....+.".[nil. |
| 83c0 | 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 6d 20 69 74 20 66 6c 6f 6f 72 20 | *mvalues-count*.gensym.it.floor. |
| 83e0 | 6e 75 6d 62 65 72 20 64 69 76 69 73 6f 72 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 | number.divisor.copy-sequence.*mv |
| 8400 | 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 31 20 54 24 24 5f 31 37 20 72 20 71 5d 20 35 29 29 0a | alues-values*.1.T$$_17.r.q].5)). |
| 8420 | 28 64 65 66 75 6e 20 72 65 6d 20 28 6e 75 6d 62 65 72 20 64 69 76 69 73 6f 72 29 20 22 5c 0a 52 | (defun.rem.(number.divisor)."\.R |
| 8440 | 65 74 75 72 6e 20 72 65 6d 61 69 6e 64 65 72 20 6f 66 20 58 20 62 79 20 59 20 28 72 6f 75 6e 64 | eturn.remainder.of.X.by.Y.(round |
| 8460 | 69 6e 67 20 71 75 6f 74 69 65 6e 74 20 74 6f 77 61 72 64 20 7a 65 72 6f 29 2e 0a 54 68 61 74 20 | ing.quotient.toward.zero)..That. |
| 8480 | 69 73 2c 20 74 68 65 20 72 65 6d 61 69 6e 64 65 72 20 67 6f 65 73 20 77 69 74 68 20 74 68 65 20 | is,.the.remainder.goes.with.the. |
| 84a0 | 71 75 6f 74 69 65 6e 74 20 70 72 6f 64 75 63 65 64 20 62 79 20 60 74 72 75 6e 63 61 74 65 27 2e | quotient.produced.by.`truncate'. |
| 84c0 | 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 11 c2 20 89 1b c4 0d 0e 06 5c 22 4c 88 09 83 18 00 | ".(byte-code."..........\"L..... |
| 84e0 | c7 0e 08 21 82 23 00 c9 11 0b 4a 43 16 08 c7 0e 08 21 29 89 1e 5c 6e 41 40 1e 0b 0e 5c 6e 40 1e | ...!.#....JC.....!)..\nA@...\n@. |
| 8500 | 0c 0e 0b 2b 87 22 20 5b 6e 69 6c 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 | ...+.".[nil.*mvalues-count*.gens |
| 8520 | 79 6d 20 69 74 20 74 72 75 6e 63 61 74 65 20 6e 75 6d 62 65 72 20 64 69 76 69 73 6f 72 20 63 6f | ym.it.truncate.number.divisor.co |
| 8540 | 70 79 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 31 20 54 | py-sequence.*mvalues-values*.1.T |
| 8560 | 24 24 5f 32 30 20 72 20 71 5d 20 35 29 29 0a 28 64 65 66 75 6e 20 73 61 66 65 2d 69 64 69 76 20 | $$_20.r.q].5)).(defun.safe-idiv. |
| 8580 | 28 61 20 62 29 20 22 5c 0a 53 41 46 45 2d 49 44 49 56 20 41 20 42 20 3d 3e 20 51 20 52 20 53 0a | (a.b)."\.SAFE-IDIV.A.B.=>.Q.R.S. |
| 85a0 | 51 3d 7c 41 7c 2f 7c 42 7c 2c 20 52 20 69 73 20 74 68 65 20 72 65 73 74 2c 20 53 20 69 73 20 74 | Q=|A|/|B|,.R.is.the.rest,.S.is.t |
| 85c0 | 68 65 20 73 69 67 6e 20 6f 66 20 41 2f 42 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 21 | he.sign.of.A/B.".(byte-code."..! |
| 85e0 | 83 0c 00 c0 5c 6e 21 84 10 00 c3 c4 21 88 5c 6e c5 55 83 1b 00 c3 c6 09 5c 22 88 c7 09 21 1e 08 | ....\n!.....!.\n.U......\"...!.. |
| 8600 | c7 5c 6e 21 1e 09 ca 0e 08 0e 09 5c 22 1e 0b cc cd 09 21 cd 5c 6e 21 5c 22 1e 0e 09 cc 89 0e 0e | .\n!.......\".....!.\n!\"....... |
| 8620 | 0e 0b 5c 22 5c 6e 5c 22 5a 1e 0f d0 0e 0b 0e 0f 0e 0e 23 2d 87 22 20 5b 6e 75 6d 62 65 72 70 20 | ..\"\n\"Z.........#-.".[numberp. |
| 8640 | 61 20 62 20 65 72 72 6f 72 20 22 41 72 67 75 6d 65 6e 74 73 20 74 6f 20 60 73 61 66 65 2d 69 64 | a.b.error."Arguments.to.`safe-id |
| 8660 | 69 76 27 20 6d 75 73 74 20 62 65 20 6e 75 6d 62 65 72 73 22 20 30 20 22 43 61 6e 6e 6f 74 20 64 | iv'.must.be.numbers".0."Cannot.d |
| 8680 | 69 76 69 64 65 20 25 64 20 62 79 20 7a 65 72 6f 22 20 61 62 73 20 61 62 73 61 20 61 62 73 62 20 | ivide.%d.by.zero".abs.absa.absb. |
| 86a0 | 2f 20 71 20 2a 20 73 69 67 6e 75 6d 20 73 20 72 20 76 61 6c 75 65 73 5d 20 35 29 29 0a 28 62 79 | /.q.*.signum.s.r.values].5)).(by |
| 86c0 | 74 65 2d 63 6f 64 65 20 22 c0 10 c1 11 c0 87 22 20 5b 3a 73 65 74 66 2d 75 70 64 61 74 65 2d 66 | te-code."......".[:setf-update-f |
| 86e0 | 6e 20 3a 73 65 74 66 2d 75 70 64 61 74 65 2d 64 6f 63 5d 20 31 29 0a 28 64 65 66 6d 61 63 72 6f | n.:setf-update-doc].1).(defmacro |
| 8700 | 20 73 65 74 66 20 28 26 72 65 73 74 20 70 61 69 72 73 29 20 22 5c 0a 47 65 6e 65 72 61 6c 69 7a | .setf.(&rest.pairs)."\.Generaliz |
| 8720 | 65 64 20 60 73 65 74 71 27 20 74 68 61 74 20 63 61 6e 20 73 65 74 20 74 68 69 6e 67 73 20 6f 74 | ed.`setq'.that.can.set.things.ot |
| 8740 | 68 65 72 20 74 68 61 6e 20 76 61 72 69 61 62 6c 65 20 76 61 6c 75 65 73 2e 0a 41 20 75 73 65 20 | her.than.variable.values..A.use. |
| 8760 | 6f 66 20 60 73 65 74 66 27 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 28 73 65 74 66 20 7b 50 4c 41 43 | of.`setf'.looks.like.(setf.{PLAC |
| 8780 | 45 20 56 41 4c 55 45 7d 2e 2e 2e 29 2e 0a 54 68 65 20 62 65 68 61 76 69 6f 72 20 6f 66 20 28 73 | E.VALUE}...)..The.behavior.of.(s |
| 87a0 | 65 74 66 20 50 4c 41 43 45 20 56 41 4c 55 45 29 20 69 73 20 74 6f 20 61 63 63 65 73 73 20 74 68 | etf.PLACE.VALUE).is.to.access.th |
| 87c0 | 65 20 67 65 6e 65 72 61 6c 69 7a 65 64 20 76 61 72 69 61 62 6c 65 0a 61 74 20 50 4c 41 43 45 20 | e.generalized.variable.at.PLACE. |
| 87e0 | 61 6e 64 20 73 74 6f 72 65 20 56 41 4c 55 45 20 74 68 65 72 65 2e 20 20 49 74 20 72 65 74 75 72 | and.store.VALUE.there...It.retur |
| 8800 | 6e 73 20 56 41 4c 55 45 2e 20 20 49 66 20 74 68 65 72 65 20 69 73 20 6d 6f 72 65 0a 74 68 61 6e | ns.VALUE...If.there.is.more.than |
| 8820 | 20 6f 6e 65 20 50 4c 41 43 45 20 61 6e 64 20 56 41 4c 55 45 2c 20 65 61 63 68 20 50 4c 41 43 45 | .one.PLACE.and.VALUE,.each.PLACE |
| 8840 | 20 69 73 20 73 65 74 20 66 72 6f 6d 20 69 74 73 20 56 41 4c 55 45 20 62 65 66 6f 72 65 0a 74 68 | .is.set.from.its.VALUE.before.th |
| 8860 | 65 20 6e 65 78 74 20 50 4c 41 43 45 20 69 73 20 65 76 61 6c 75 61 74 65 64 2e 22 20 28 62 79 74 | e.next.PLACE.is.evaluated.".(byt |
| 8880 | 65 2d 63 6f 64 65 20 22 08 47 19 c2 09 c3 5c 22 c4 55 84 12 00 c5 c6 21 82 32 01 09 c4 55 83 1c | e-code.".G....\".U.....!.2...U.. |
| 88a0 | 00 c7 82 32 01 09 c3 56 83 61 00 c8 08 89 1e 09 40 1e 5c 6e cb 0e 09 21 1e 0c c7 1e 0d ce 0e 09 | ...2...V.a......@.\n...!........ |
| 88c0 | 21 84 58 00 cf 0e 5c 6e 0e 0c 45 0e 0d 42 16 0d d0 0e 09 21 89 16 09 40 16 5c 6e cb 0e 09 21 16 | !.X...\n..E..B.....!...@.\n...!. |
| 88e0 | 0c 82 33 00 d1 0e 0d 21 2c 42 82 32 01 08 40 1e 5c 6e cb 08 21 1e 0c c7 1e 12 c7 1e 13 0e 5c 6e | ..3....!,B.2..@.\n..!.........\n |
| 8900 | 39 83 7f 00 d4 0e 5c 6e 0e 0c 45 82 31 01 0e 5c 6e 3c 83 2a 01 0e 5c 6e 40 89 16 12 83 2a 01 0e | 9.....\n..E.1..\n<.*..\n@....*.. |
| 8920 | 12 39 83 2a 01 0e 12 0e 15 4e 89 16 13 83 2a 01 0e 13 3a 83 ad 00 0e 13 40 d6 3d 84 d5 00 0e 13 | .9.*.....N....*...:.....@.=..... |
| 8940 | 39 83 e3 00 d7 0e 13 21 83 e3 00 0e 13 4b 1e 18 d9 0e 18 21 86 d1 00 0e 18 3a 85 d1 00 0e 18 40 | 9......!.....K.....!.....:.....@ |
| 8960 | d6 3d 29 83 e3 00 0e 13 da 0e 5c 6e 41 0e 0c 43 5c 22 42 82 31 01 c7 16 1b dc 20 89 1e 1d de da | .=).......\nA..C\"B.1........... |
| 8980 | 0e 5c 6e 41 0e 0c 43 5c 22 21 4c 88 0e 1b 83 03 01 df 0e 20 21 82 10 01 e1 16 1b 0e 1d 4a 43 16 | .\nA..C\"!L.........!........JC. |
| 89a0 | 20 df 0e 20 21 29 89 1e 5c 22 41 40 1e 23 0e 5c 22 40 1e 24 e5 0e 24 0e 13 0e 23 42 45 2b 82 31 | ....!)..\"A@.#.\"@.$..$...#BE+.1 |
| 89c0 | 01 c5 e6 e7 0e 5c 6e 21 5c 22 2c 29 87 22 20 5b 70 61 69 72 73 20 6e 66 6f 72 6d 73 20 25 20 32 | .....\n!\",).".[pairs.nforms.%.2 |
| 89e0 | 20 30 20 65 72 72 6f 72 20 22 4f 64 64 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 | .0.error."Odd.number.of.argument |
| 8a00 | 73 20 74 6f 20 60 73 65 74 66 27 22 20 6e 69 6c 20 70 72 6f 67 6e 20 61 72 67 73 20 70 6c 61 63 | s.to.`setf'".nil.progn.args.plac |
| 8a20 | 65 20 63 61 64 72 20 76 61 6c 75 65 20 72 65 73 75 6c 74 20 65 6e 64 70 20 73 65 74 66 20 63 64 | e.cadr.value.result.endp.setf.cd |
| 8a40 | 64 72 20 6e 72 65 76 65 72 73 65 20 68 65 61 64 20 75 70 64 61 74 65 66 6e 20 73 65 74 71 20 3a | dr.nreverse.head.updatefn.setq.: |
| 8a60 | 73 65 74 66 2d 75 70 64 61 74 65 2d 66 6e 20 6c 61 6d 62 64 61 20 66 62 6f 75 6e 64 70 20 64 65 | setf-update-fn.lambda.fboundp.de |
| 8a80 | 66 6e 20 73 75 62 72 70 20 61 70 70 65 6e 64 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 | fn.subrp.append.*mvalues-count*. |
| 8aa0 | 67 65 6e 73 79 6d 20 69 74 20 70 61 69 72 2d 77 69 74 68 2d 6e 65 77 73 79 6d 73 20 63 6f 70 79 | gensym.it.pair-with-newsyms.copy |
| 8ac0 | 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 31 20 54 24 24 | -sequence.*mvalues-values*.1.T$$ |
| 8ae0 | 5f 32 33 20 6e 65 77 73 79 6d 73 20 62 69 6e 64 69 6e 67 73 20 6c 65 74 20 22 4e 6f 20 60 73 65 | _23.newsyms.bindings.let."No.`se |
| 8b00 | 74 66 27 20 75 70 64 61 74 65 2d 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 60 25 73 27 22 20 70 72 | tf'.update-function.for.`%s'".pr |
| 8b20 | 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 36 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 66 | in1-to-string].6)).(defmacro.def |
| 8b40 | 73 65 74 66 20 28 61 63 63 65 73 73 66 6e 20 75 70 64 61 74 65 66 6e 20 26 6f 70 74 69 6f 6e 61 | setf.(accessfn.updatefn.&optiona |
| 8b60 | 6c 20 64 6f 63 73 74 72 69 6e 67 29 20 22 5c 0a 44 65 66 69 6e 65 20 68 6f 77 20 60 73 65 74 66 | l.docstring)."\.Define.how.`setf |
| 8b80 | 27 20 77 6f 72 6b 73 20 6f 6e 20 61 20 63 65 72 74 61 69 6e 20 6b 69 6e 64 20 6f 66 20 67 65 6e | '.works.on.a.certain.kind.of.gen |
| 8ba0 | 65 72 61 6c 69 7a 65 64 20 76 61 72 69 61 62 6c 65 2e 0a 41 20 75 73 65 20 6f 66 20 60 64 65 66 | eralized.variable..A.use.of.`def |
| 8bc0 | 73 65 74 66 27 20 6c 6f 6f 6b 73 20 6c 69 6b 65 20 28 64 65 66 73 65 74 66 20 41 43 43 45 53 53 | setf'.looks.like.(defsetf.ACCESS |
| 8be0 | 46 4e 20 55 50 44 41 54 45 46 4e 20 5b 44 4f 43 53 54 52 49 4e 47 5d 29 2e 0a 41 43 43 45 53 53 | FN.UPDATEFN.[DOCSTRING])..ACCESS |
| 8c00 | 46 4e 20 69 73 20 61 20 73 79 6d 62 6f 6c 2e 20 20 55 50 44 41 54 45 46 4e 20 69 73 20 61 20 66 | FN.is.a.symbol...UPDATEFN.is.a.f |
| 8c20 | 75 6e 63 74 69 6f 6e 20 6f 72 20 6d 61 63 72 6f 20 77 68 69 63 68 20 74 61 6b 65 73 0a 6f 6e 65 | unction.or.macro.which.takes.one |
| 8c40 | 20 6d 6f 72 65 20 61 72 67 75 6d 65 6e 74 20 74 68 61 6e 20 41 43 43 45 53 53 46 4e 20 64 6f 65 | .more.argument.than.ACCESSFN.doe |
| 8c60 | 73 2e 20 20 44 45 46 53 45 54 46 20 64 65 66 69 6e 65 73 20 74 68 65 20 74 72 61 6e 73 6c 61 74 | s...DEFSETF.defines.the.translat |
| 8c80 | 69 6f 6e 0a 6f 66 20 28 53 45 54 46 20 28 41 43 43 45 53 46 4e 20 2e 20 41 52 47 53 29 20 4e 45 | ion.of.(SETF.(ACCESFN...ARGS).NE |
| 8ca0 | 57 56 41 4c 29 20 74 6f 20 62 65 20 61 20 66 6f 72 6d 20 6c 69 6b 65 20 28 55 50 44 41 54 45 46 | WVAL).to.be.a.form.like.(UPDATEF |
| 8cc0 | 4e 20 41 52 47 53 2e 2e 2e 20 4e 45 57 56 41 4c 29 2e 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 | N.ARGS....NEWVAL)..The.function. |
| 8ce0 | 55 50 44 41 54 45 46 4e 20 6d 75 73 74 20 72 65 74 75 72 6e 20 69 74 73 20 6c 61 73 74 20 61 72 | UPDATEFN.must.return.its.last.ar |
| 8d00 | 67 2c 20 61 66 74 65 72 20 70 65 72 66 6f 72 6d 69 6e 67 20 74 68 65 0a 75 70 64 61 74 69 6e 67 | g,.after.performing.the.updating |
| 8d20 | 20 63 61 6c 6c 65 64 20 66 6f 72 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 39 84 0c 00 c1 | .called.for.".(byte-code.".9.... |
| 8d40 | c2 c3 08 21 5c 22 88 c4 08 0d 0e 06 23 88 c4 08 0e 07 0e 08 23 87 22 20 5b 61 63 63 65 73 73 66 | ...!\"......#.......#.".[accessf |
| 8d60 | 6e 20 65 72 72 6f 72 20 22 46 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 60 64 65 66 73 | n.error."First.argument.of.`defs |
| 8d80 | 65 74 66 27 20 6d 75 73 74 20 62 65 20 61 20 73 79 6d 62 6f 6c 2c 20 6e 6f 74 20 60 25 73 27 22 | etf'.must.be.a.symbol,.not.`%s'" |
| 8da0 | 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 70 75 74 20 3a 73 65 74 66 2d 75 70 64 61 74 | .prin1-to-string.put.:setf-updat |
| 8dc0 | 65 2d 66 6e 20 75 70 64 61 74 65 66 6e 20 3a 73 65 74 66 2d 75 70 64 61 74 65 2d 64 6f 63 20 64 | e-fn.updatefn.:setf-update-doc.d |
| 8de0 | 6f 63 73 74 72 69 6e 67 5d 20 34 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 69 6e 63 66 20 28 72 65 | ocstring].4)).(defmacro.incf.(re |
| 8e00 | 66 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 6c 74 61 29 20 22 5c 0a 28 69 6e 63 66 20 52 45 46 20 | f.&optional.delta)."\.(incf.REF. |
| 8e20 | 5b 44 45 4c 54 41 5d 29 20 2d 3e 20 69 6e 63 72 65 6d 65 6e 74 20 74 68 65 20 67 2e 76 2e 20 52 | [DELTA]).->.increment.the.g.v..R |
| 8e40 | 45 46 20 62 79 20 44 45 4c 54 41 20 28 64 65 66 61 75 6c 74 20 31 29 22 20 28 62 79 74 65 2d 63 | EF.by.DELTA.(default.1)".(byte-c |
| 8e60 | 6f 64 65 20 22 08 84 06 00 c1 10 c2 0b c4 0b 08 45 45 87 22 20 5b 64 65 6c 74 61 20 31 20 73 65 | ode."...........EE.".[delta.1.se |
| 8e80 | 74 66 20 72 65 66 20 2b 5d 20 35 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 63 66 20 28 72 65 | tf.ref.+].5)).(defmacro.decf.(re |
| 8ea0 | 66 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 6c 74 61 29 20 22 5c 0a 28 64 65 63 66 20 52 45 46 20 | f.&optional.delta)."\.(decf.REF. |
| 8ec0 | 5b 44 45 4c 54 41 5d 29 20 2d 3e 20 64 65 63 72 65 6d 65 6e 74 20 74 68 65 20 67 2e 76 2e 20 52 | [DELTA]).->.decrement.the.g.v..R |
| 8ee0 | 45 46 20 62 79 20 44 45 4c 54 41 20 28 64 65 66 61 75 6c 74 20 31 29 22 20 28 62 79 74 65 2d 63 | EF.by.DELTA.(default.1)".(byte-c |
| 8f00 | 6f 64 65 20 22 08 84 06 00 c1 10 c2 0b c4 0b 08 45 45 87 22 20 5b 64 65 6c 74 61 20 31 20 73 65 | ode."...........EE.".[delta.1.se |
| 8f20 | 74 66 20 72 65 66 20 2d 5d 20 35 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 70 75 73 68 20 28 69 74 | tf.ref.-].5)).(defmacro.push.(it |
| 8f40 | 65 6d 20 72 65 66 29 20 22 5c 0a 28 70 75 73 68 20 49 54 45 4d 20 52 45 46 29 20 2d 3e 20 63 6f | em.ref)."\.(push.ITEM.REF).->.co |
| 8f60 | 6e 73 20 49 54 45 4d 20 61 74 20 74 68 65 20 68 65 61 64 20 6f 66 20 74 68 65 20 67 2e 76 2e 20 | ns.ITEM.at.the.head.of.the.g.v.. |
| 8f80 | 52 45 46 20 28 61 20 6c 69 73 74 29 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 c2 0b 09 45 | REF.(a.list)".(byte-code.".....E |
| 8fa0 | 45 87 22 20 5b 73 65 74 66 20 72 65 66 20 63 6f 6e 73 20 69 74 65 6d 5d 20 35 29 29 0a 28 64 65 | E.".[setf.ref.cons.item].5)).(de |
| 8fc0 | 66 6d 61 63 72 6f 20 70 75 73 68 6e 65 77 20 28 69 74 65 6d 20 72 65 66 29 20 22 5c 0a 28 70 75 | fmacro.pushnew.(item.ref)."\.(pu |
| 8fe0 | 73 68 6e 65 77 20 49 54 45 4d 20 52 45 46 29 3a 20 61 64 6a 6f 69 6e 20 49 54 45 4d 20 61 74 20 | shnew.ITEM.REF):.adjoin.ITEM.at. |
| 9000 | 74 68 65 20 68 65 61 64 20 6f 66 20 74 68 65 20 67 2e 76 2e 20 52 45 46 20 28 61 20 6c 69 73 74 | the.head.of.the.g.v..REF.(a.list |
| 9020 | 29 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 c2 0b 09 45 45 87 22 20 5b 73 65 74 66 20 72 | )".(byte-code.".....EE.".[setf.r |
| 9040 | 65 66 20 61 64 6a 6f 69 6e 20 69 74 65 6d 5d 20 35 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 70 6f | ef.adjoin.item].5)).(defmacro.po |
| 9060 | 70 20 28 72 65 66 29 20 22 5c 0a 28 70 6f 70 20 52 45 46 29 20 2d 3e 20 28 70 72 6f 67 31 20 28 | p.(ref)."\.(pop.REF).->.(prog1.( |
| 9080 | 63 61 72 20 52 45 46 29 20 28 73 65 74 66 20 52 45 46 20 28 63 64 72 20 52 45 46 29 29 29 22 20 | car.REF).(setf.REF.(cdr.REF)))". |
| 90a0 | 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 20 19 c2 09 0b 44 43 c4 c5 09 44 c6 0b c7 09 44 45 45 45 | (byte-code."......DC...D....DEEE |
| 90c0 | 29 87 22 20 5b 67 65 6e 73 79 6d 20 6c 69 73 74 6e 61 6d 65 20 6c 65 74 20 72 65 66 20 70 72 6f | ).".[gensym.listname.let.ref.pro |
| 90e0 | 67 31 20 63 61 72 20 73 65 74 66 20 63 64 72 5d 20 38 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 70 | g1.car.setf.cdr].8)).(defmacro.p |
| 9100 | 73 65 74 66 20 28 26 72 65 73 74 20 70 61 69 72 73 29 20 22 5c 0a 28 70 73 65 74 66 20 7b 50 4c | setf.(&rest.pairs)."\.(psetf.{PL |
| 9120 | 41 43 45 20 56 41 4c 55 45 7d 2e 2e 2e 29 3a 20 53 65 74 20 73 65 76 65 72 61 6c 20 67 65 6e 65 | ACE.VALUE}...):.Set.several.gene |
| 9140 | 72 61 6c 69 7a 65 64 20 76 61 72 69 61 62 6c 65 73 20 69 6e 20 70 61 72 61 6c 6c 65 6c 2e 0a 41 | ralized.variables.in.parallel..A |
| 9160 | 6c 6c 20 74 68 65 20 56 41 4c 55 45 73 20 61 72 65 20 63 6f 6d 70 75 74 65 64 2c 20 61 6e 64 20 | ll.the.VALUEs.are.computed,.and. |
| 9180 | 74 68 65 6e 20 61 6c 6c 20 74 68 65 20 50 4c 41 43 45 73 20 61 72 65 20 73 74 6f 72 65 64 20 61 | then.all.the.PLACEs.are.stored.a |
| 91a0 | 73 20 69 6e 20 60 73 65 74 66 27 2e 0a 53 65 65 20 61 6c 73 6f 20 60 70 73 65 74 71 27 2c 20 60 | s.in.`setf'..See.also.`psetq',.` |
| 91c0 | 73 68 69 66 74 66 27 20 61 6e 64 20 60 72 6f 74 61 74 65 66 27 2e 22 20 28 62 79 74 65 2d 63 6f | shiftf'.and.`rotatef'.".(byte-co |
| 91e0 | 64 65 20 22 c0 09 47 21 84 0b 00 c2 c3 21 88 c4 15 c6 20 89 1e 07 c8 09 21 4c 88 0d 83 5c 22 00 | de."..G!.....!..........!L...\". |
| 9200 | c9 0e 5c 6e 21 82 2e 00 cb 15 0e 07 4a 43 16 5c 6e c9 0e 5c 6e 21 29 89 1e 0c 41 40 1e 0d 0e 0c | ..\n!.......JC.\n..\n!)...A@.... |
| 9220 | 40 1e 0e c4 15 c6 20 89 1e 07 cf 0e 0d 21 4c 88 0d 83 53 00 c9 0e 5c 6e 21 82 5f 00 cb 15 0e 07 | @............!L...S...\n!._..... |
| 9240 | 4a 43 16 5c 6e c9 0e 5c 6e 21 29 89 1e 10 41 40 1e 11 0e 10 40 1e 12 d3 0e 12 d4 d5 0e 0e 0e 11 | JC.\n..\n!)...A@....@........... |
| 9260 | 5c 22 42 c4 46 2e 06 87 22 20 5b 65 76 65 6e 70 20 70 61 69 72 73 20 65 72 72 6f 72 20 22 4f 64 | \"B.F...".[evenp.pairs.error."Od |
| 9280 | 64 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20 60 70 73 65 74 66 27 | d.number.of.arguments.to.`psetf' |
| 92a0 | 22 20 6e 69 6c 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 6d 20 69 74 20 | ".nil.*mvalues-count*.gensym.it. |
| 92c0 | 75 6e 7a 69 70 2d 6c 69 73 74 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 61 6c 75 65 | unzip-list.copy-sequence.*mvalue |
| 92e0 | 73 2d 76 61 6c 75 65 73 2a 20 31 20 54 24 24 5f 32 36 20 66 6f 72 6d 73 20 70 6c 61 63 65 73 20 | s-values*.1.T$$_26.forms.places. |
| 9300 | 70 61 69 72 2d 77 69 74 68 2d 6e 65 77 73 79 6d 73 20 54 24 24 5f 32 39 20 6e 65 77 73 79 6d 73 | pair-with-newsyms.T$$_29.newsyms |
| 9320 | 20 62 69 6e 64 69 6e 67 73 20 6c 65 74 20 73 65 74 66 20 7a 69 70 2d 6c 69 73 74 73 5d 20 37 29 | .bindings.let.setf.zip-lists].7) |
| 9340 | 29 0a 28 64 65 66 6d 61 63 72 6f 20 73 68 69 66 74 66 20 28 26 72 65 73 74 20 66 6f 72 6d 73 29 | ).(defmacro.shiftf.(&rest.forms) |
| 9360 | 20 22 5c 0a 28 73 68 69 66 74 66 20 50 4c 41 43 45 31 20 50 4c 41 43 45 32 2e 2e 2e 20 4e 45 57 | ."\.(shiftf.PLACE1.PLACE2....NEW |
| 9380 | 56 41 4c 55 45 29 3a 20 73 65 74 20 50 4c 41 43 45 31 20 74 6f 20 50 4c 41 43 45 32 2c 20 50 4c | VALUE):.set.PLACE1.to.PLACE2,.PL |
| 93a0 | 41 43 45 32 20 74 6f 20 50 4c 41 43 45 33 2e 2e 2e 0a 45 61 63 68 20 50 4c 41 43 45 20 69 73 20 | ACE2.to.PLACE3....Each.PLACE.is. |
| 93c0 | 73 65 74 20 74 6f 20 74 68 65 20 6f 6c 64 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c | set.to.the.old.value.of.the.foll |
| 93e0 | 6f 77 69 6e 67 20 50 4c 41 43 45 2c 0a 61 6e 64 20 74 68 65 20 6c 61 73 74 20 50 4c 41 43 45 20 | owing.PLACE,.and.the.last.PLACE. |
| 9400 | 69 73 20 73 65 74 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 4e 45 57 56 41 4c 55 45 2e 22 20 28 | is.set.to.the.value.NEWVALUE.".( |
| 9420 | 62 79 74 65 2d 63 6f 64 65 20 22 08 47 c1 56 84 0b 00 c2 c3 21 88 c4 08 21 c5 08 21 40 1e 06 1e | byte-code.".G.V.....!...!..!@... |
| 9440 | 07 c8 16 09 ca 20 89 1e 0b cc 0e 07 21 4c 88 0e 09 83 30 00 cd 0e 0e 21 82 3d 00 c1 16 09 0e 0b | ............!L....0....!.=...... |
| 9460 | 4a 43 16 0e cd 0e 0e 21 29 89 1e 0f 41 40 1e 10 0e 0f 40 1e 11 d2 0e 11 d3 d4 0e 07 d5 0e 10 41 | JC.....!)...A@....@............A |
| 9480 | 0e 06 43 5c 22 5c 22 42 0e 10 40 46 2d 87 22 20 5b 66 6f 72 6d 73 20 31 20 65 72 72 6f 72 20 22 | ..C\"\"B..@F-.".[forms.1.error." |
| 94a0 | 60 73 68 69 66 74 66 27 20 6e 65 65 64 73 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 61 72 67 | `shiftf'.needs.more.than.one.arg |
| 94c0 | 75 6d 65 6e 74 22 20 62 75 74 6c 61 73 74 20 6c 61 73 74 20 6e 65 77 76 61 6c 75 65 20 70 6c 61 | ument".butlast.last.newvalue.pla |
| 94e0 | 63 65 73 20 6e 69 6c 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 6d 20 69 | ces.nil.*mvalues-count*.gensym.i |
| 9500 | 74 20 70 61 69 72 2d 77 69 74 68 2d 6e 65 77 73 79 6d 73 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 | t.pair-with-newsyms.copy-sequenc |
| 9520 | 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 54 24 24 5f 33 32 20 6e 65 77 73 79 6d | e.*mvalues-values*.T$$_32.newsym |
| 9540 | 73 20 62 69 6e 64 69 6e 67 73 20 6c 65 74 20 73 65 74 66 20 7a 69 70 2d 6c 69 73 74 73 20 61 70 | s.bindings.let.setf.zip-lists.ap |
| 9560 | 70 65 6e 64 5d 20 39 29 29 0a 28 64 65 66 6d 61 63 72 6f 20 72 6f 74 61 74 65 66 20 28 26 72 65 | pend].9)).(defmacro.rotatef.(&re |
| 9580 | 73 74 20 70 6c 61 63 65 73 29 20 22 5c 0a 28 72 6f 74 61 74 65 66 20 50 4c 41 43 45 2e 2e 2e 29 | st.places)."\.(rotatef.PLACE...) |
| 95a0 | 20 73 65 74 73 20 65 61 63 68 20 50 4c 41 43 45 20 74 6f 20 74 68 65 20 6f 6c 64 20 76 61 6c 75 | .sets.each.PLACE.to.the.old.valu |
| 95c0 | 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 50 4c 41 43 45 2e 0a 54 68 65 20 6c 61 | e.of.the.following.PLACE..The.la |
| 95e0 | 73 74 20 50 4c 41 43 45 20 69 73 20 73 65 74 20 74 6f 20 74 68 65 20 6f 6c 64 20 76 61 6c 75 65 | st.PLACE.is.set.to.the.old.value |
| 9600 | 20 6f 66 20 74 68 65 20 66 69 72 73 74 20 50 4c 41 43 45 2e 0a 54 68 75 73 2c 20 74 68 65 20 76 | .of.the.first.PLACE..Thus,.the.v |
| 9620 | 61 6c 75 65 73 20 72 6f 74 61 74 65 20 74 68 72 6f 75 67 68 20 74 68 65 20 50 4c 41 43 45 73 2e | alues.rotate.through.the.PLACEs. |
| 9640 | 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 84 06 00 c1 87 c1 12 c3 20 89 1c c5 08 21 4c 88 5c | ".(byte-code."..............!L.\ |
| 9660 | 6e 83 1c 00 c6 0e 07 21 82 27 00 c8 12 0c 4a 43 16 07 c6 0e 07 21 29 89 1e 09 41 40 1e 5c 6e 0e | n......!.'....JC.....!)...A@.\n. |
| 9680 | 09 40 1e 0b cc 0e 0b cd ce 08 cf 0e 5c 6e 41 0e 5c 6e 40 43 5c 22 5c 22 42 c1 46 2b 87 22 20 5b | .@..........\nA.\n@C\"\"B.F+.".[ |
| 96a0 | 70 6c 61 63 65 73 20 6e 69 6c 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 | places.nil.*mvalues-count*.gensy |
| 96c0 | 6d 20 69 74 20 70 61 69 72 2d 77 69 74 68 2d 6e 65 77 73 79 6d 73 20 63 6f 70 79 2d 73 65 71 75 | m.it.pair-with-newsyms.copy-sequ |
| 96e0 | 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 31 20 54 24 24 5f 33 35 20 6e | ence.*mvalues-values*.1.T$$_35.n |
| 9700 | 65 77 73 79 6d 73 20 62 69 6e 64 69 6e 67 73 20 6c 65 74 20 73 65 74 66 20 7a 69 70 2d 6c 69 73 | ewsyms.bindings.let.setf.zip-lis |
| 9720 | 74 73 20 61 70 70 65 6e 64 5d 20 39 29 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 10 c1 11 c2 | ts.append].9)).(byte-code."..... |
| 9740 | 12 c3 13 c4 14 c5 15 c6 16 06 c7 16 07 c8 16 08 c9 16 09 ca 16 5c 6e cb 16 0b cc 16 0c c0 87 22 | .....................\n........" |
| 9760 | 20 5b 3a 69 6e 63 6c 75 64 65 20 3a 6e 61 6d 65 64 20 3a 63 6f 6e 63 2d 6e 61 6d 65 20 3a 63 6f | .[:include.:named.:conc-name.:co |
| 9780 | 70 69 65 72 20 3a 70 72 65 64 69 63 61 74 65 20 3a 70 72 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 | pier.:predicate.:print-function. |
| 97a0 | 3a 74 79 70 65 20 3a 69 6e 69 74 69 61 6c 2d 6f 66 66 73 65 74 20 3a 73 74 72 75 63 74 75 72 65 | :type.:initial-offset.:structure |
| 97c0 | 2d 64 6f 63 20 3a 73 74 72 75 63 74 75 72 65 2d 73 6c 6f 74 73 6e 20 3a 73 74 72 75 63 74 75 72 | -doc.:structure-slotsn.:structur |
| 97e0 | 65 2d 73 6c 6f 74 73 20 3a 73 74 72 75 63 74 75 72 65 2d 69 6e 64 69 63 65 73 20 3a 73 74 72 75 | e-slots.:structure-indices.:stru |
| 9800 | 63 74 75 72 65 2d 69 6e 69 74 66 6f 72 6d 73 5d 20 31 29 0a 28 64 65 66 6d 61 63 72 6f 20 64 65 | cture-initforms].1).(defmacro.de |
| 9820 | 66 73 74 72 75 63 74 20 28 26 72 65 73 74 20 61 72 67 73 29 20 22 5c 0a 28 64 65 66 73 74 72 75 | fstruct.(&rest.args)."\.(defstru |
| 9840 | 63 74 20 4e 41 4d 45 20 5b 44 4f 43 2d 53 54 52 49 4e 47 5d 20 2e 20 53 4c 4f 54 53 29 20 20 64 | ct.NAME.[DOC-STRING]...SLOTS)..d |
| 9860 | 65 66 69 6e 65 20 4e 41 4d 45 20 61 73 20 73 74 72 75 63 74 75 72 65 20 74 79 70 65 2e 0a 4e 41 | efine.NAME.as.structure.type..NA |
| 9880 | 4d 45 20 6d 75 73 74 20 62 65 20 61 20 73 79 6d 62 6f 6c 2c 20 74 68 65 20 6e 61 6d 65 20 6f 66 | ME.must.be.a.symbol,.the.name.of |
| 98a0 | 20 74 68 65 20 6e 65 77 20 73 74 72 75 63 74 75 72 65 2e 20 20 49 74 20 63 6f 75 6c 64 20 61 6c | .the.new.structure...It.could.al |
| 98c0 | 73 6f 0a 62 65 20 61 20 6c 69 73 74 20 28 4e 41 4d 45 20 2e 20 4f 50 54 49 4f 4e 53 29 2c 20 62 | so.be.a.list.(NAME...OPTIONS),.b |
| 98e0 | 75 74 20 6e 6f 74 20 61 6c 6c 20 6f 70 74 69 6f 6e 73 20 61 72 65 20 73 75 70 70 6f 72 74 65 64 | ut.not.all.options.are.supported |
| 9900 | 20 63 75 72 72 65 6e 74 6c 79 2e 0a 41 73 20 6f 66 20 44 65 63 2e 20 31 39 38 36 2c 20 74 68 69 | .currently..As.of.Dec..1986,.thi |
| 9920 | 73 20 69 73 20 73 75 70 70 6f 72 74 69 6e 67 20 3a 63 6f 6e 63 2d 6e 61 6d 65 2c 20 3a 63 6f 70 | s.is.supporting.:conc-name,.:cop |
| 9940 | 69 65 72 20 61 6e 64 20 3a 70 72 65 64 69 63 61 74 65 0a 63 6f 6d 70 6c 65 74 65 6c 79 2c 20 3a | ier.and.:predicate.completely,.: |
| 9960 | 69 6e 63 6c 75 64 65 20 61 72 67 75 61 62 6c 79 20 63 6f 6d 70 6c 65 74 65 6c 79 20 61 6e 64 20 | include.arguably.completely.and. |
| 9980 | 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 6f 6e 6c 79 20 74 6f 0a 63 68 61 6e 67 65 20 74 68 65 20 | :constructor.only.to.change.the. |
| 99a0 | 6e 61 6d 65 20 6f 66 20 74 68 65 20 64 65 66 61 75 6c 74 20 63 6f 6e 73 74 72 75 63 74 6f 72 2e | name.of.the.default.constructor. |
| 99c0 | 20 20 4e 6f 20 42 4f 41 20 63 6f 6e 73 74 72 75 63 74 6f 72 73 20 61 6c 6c 6f 77 65 64 2e 0a 54 | ..No.BOA.constructors.allowed..T |
| 99e0 | 68 65 20 44 4f 43 2d 53 54 52 49 4e 47 20 69 73 20 65 73 74 61 62 6c 69 73 68 65 64 20 61 73 20 | he.DOC-STRING.is.established.as. |
| 9a00 | 74 68 65 20 27 73 74 72 75 63 74 75 72 65 2d 64 6f 63 27 20 70 72 6f 70 65 72 74 79 20 6f 66 20 | the.'structure-doc'.property.of. |
| 9a20 | 4e 41 4d 45 2e 0a 54 68 65 20 53 4c 4f 54 53 20 61 72 65 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 | NAME..The.SLOTS.are.one.or.more. |
| 9a40 | 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 3a 0a 53 59 4d 42 4f 4c 20 2d 2d 20 6d 65 61 6e | of.the.following:.SYMBOL.--.mean |
| 9a60 | 69 6e 67 20 74 68 65 20 53 59 4d 42 4f 4c 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 61 20 | ing.the.SYMBOL.is.the.name.of.a. |
| 9a80 | 53 4c 4f 54 20 6f 66 20 4e 41 4d 45 0a 6c 69 73 74 20 6f 66 20 53 59 4d 42 4f 4c 20 61 6e 64 20 | SLOT.of.NAME.list.of.SYMBOL.and. |
| 9aa0 | 56 41 4c 55 45 20 2d 2d 20 6d 65 61 6e 69 6e 67 20 74 68 61 74 20 56 41 4c 55 45 20 69 73 20 74 | VALUE.--.meaning.that.VALUE.is.t |
| 9ac0 | 68 65 20 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 6f 66 0a 74 68 65 20 73 6c 6f 74 2e 0a 60 64 | he.initial.value.of.the.slot..`d |
| 9ae0 | 65 66 73 74 72 75 63 74 27 20 64 65 66 69 6e 65 73 20 66 75 6e 63 74 69 6f 6e 73 20 60 6d 61 6b | efstruct'.defines.functions.`mak |
| 9b00 | 65 2d 4e 41 4d 45 27 2c 20 60 4e 41 4d 45 2d 70 27 2c 20 60 63 6f 70 79 2d 4e 41 4d 45 27 20 66 | e-NAME',.`NAME-p',.`copy-NAME'.f |
| 9b20 | 6f 72 20 74 68 65 0a 73 74 72 75 63 74 75 72 65 2c 20 61 6e 64 20 66 75 6e 63 74 69 6f 6e 73 20 | or.the.structure,.and.functions. |
| 9b40 | 77 69 74 68 20 74 68 65 20 73 61 6d 65 20 6e 61 6d 65 20 61 73 20 74 68 65 20 73 6c 6f 74 73 20 | with.the.same.name.as.the.slots. |
| 9b60 | 74 6f 20 61 63 63 65 73 73 0a 74 68 65 6d 2e 20 20 60 73 65 74 66 27 20 6f 66 20 74 68 65 20 61 | to.access.them...`setf'.of.the.a |
| 9b80 | 63 63 65 73 73 6f 72 73 20 73 65 74 73 20 74 68 65 69 72 20 76 61 6c 75 65 73 2e 22 20 28 62 79 | ccessors.sets.their.values.".(by |
| 9ba0 | 74 65 2d 63 6f 64 65 20 22 c0 11 c2 20 89 1b c4 0d 21 4c 88 09 83 16 00 c6 0e 07 21 82 21 00 c8 | te-code."........!L........!.!.. |
| 9bc0 | 11 0b 4a 43 16 07 c6 0e 07 21 29 1e 09 ca 0e 09 38 1e 0b cc 0e 09 38 1e 0d ce 0e 09 38 1e 0f d0 | ..JC.....!).....8.....8.....8... |
| 9be0 | 0e 09 38 1e 11 0e 09 41 40 1e 12 0e 09 40 1e 13 c0 11 c2 20 89 1b d4 0e 13 0e 12 0e 0d 23 4c 88 | ..8....A@....@...............#L. |
| 9c00 | 09 83 62 00 c6 0e 07 21 82 6d 00 c8 11 0b 4a 43 16 07 c6 0e 07 21 29 1e 15 d6 0e 15 38 1e 17 ca | ..b....!.m....JC.....!).....8... |
| 9c20 | 0e 15 38 1e 18 cc 0e 15 38 1e 19 ce 0e 15 38 1e 1a d0 0e 15 38 1e 1b 0e 15 41 40 1e 1c 0e 15 40 | ..8.....8.....8.....8....A@....@ |
| 9c40 | 1e 1d de 0e 19 21 83 be 00 0e 19 df 56 83 be 00 0e 0f 0e 19 5c 5c 16 0f e0 0e 18 0e 0d 5c 22 16 | .....!......V.......\\.......\". |
| 9c60 | 0d e0 0e 17 0e 0b 5c 22 16 0b 0e 0f df 56 84 cd 00 e1 e2 e3 0e 13 21 5c 22 88 e4 0e 0d 21 89 1e | ......\".....V........!\"....!.. |
| 9c80 | 25 83 df 00 e1 e6 e3 0e 25 21 5c 22 88 29 e7 0e 0d 0e 0b 5c 22 16 0b c0 89 89 89 89 89 1e 28 1e | %.......%!\".).....\".........(. |
| 9ca0 | 29 1e 2a 1e 2b 1e 2c 1e 2d ee ef f0 0e 13 44 0e 31 0e 11 46 ef f0 0e 13 44 0e 32 0e 0f 46 ef f0 | ).*.+.,.-.....D.1..F....D.2..F.. |
| 9cc0 | 0e 13 44 0e 33 f0 0e 0d 44 46 ef f0 0e 13 44 0e 34 f0 0e 0b 44 46 ef f0 0e 13 44 0e 35 f0 f6 0e | ..D.3...DF....D.4...DF....D.5... |
| 9ce0 | 0b 21 44 46 25 16 2d f7 f0 0e 1c 44 f8 f9 fa c5 44 fb f0 0e 13 44 c5 45 45 44 45 f7 f0 0e 1b 44 | .!DF%.-....D....D....D.EEDE....D |
| 9d00 | f8 f9 fc 43 fd fc 44 45 44 45 f7 f0 0e 1a 44 f8 f9 fe 43 ff 81 40 00 fe 44 81 41 00 81 42 00 fe | ...C..DEDE....D...C..@..D.A..B.. |
| 9d20 | df 45 f0 0e 13 44 45 81 43 00 81 44 00 fe 44 0e 0f 54 45 46 45 44 45 45 16 2c c0 11 c2 20 89 1b | .E...DE.C..D..D..TEFEDEE.,...... |
| 9d40 | 81 45 00 0e 13 0e 1d 0e 1a 0e 0d 0e 0f 25 4c 88 09 83 ac 01 c6 0e 07 21 82 b7 01 c8 11 0b 4a 43 | .E...........%L........!......JC |
| 9d60 | 16 07 c6 0e 07 21 29 1e 46 d0 0e 46 38 16 2b 0e 46 41 40 16 29 0e 46 40 16 2a 29 81 47 00 81 48 | .....!).F..F8.+.FA@.).F@.*).G..H |
| 9d80 | 00 81 49 00 0e 13 0e 0d 42 5c 22 42 43 16 28 81 4a 00 81 4b 00 0e 2d 0e 2c 0e 2b 0e 2a 0e 29 0e | ..I.....B\"BC.(.J..K..-.,.+.*.). |
| 9da0 | 28 26 06 2e 15 42 87 22 20 5b 6e 69 6c 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 67 65 | (&...B.".[nil.*mvalues-count*.ge |
| 9dc0 | 6e 73 79 6d 20 69 74 20 70 61 72 73 65 24 64 65 66 73 74 72 75 63 74 24 61 72 67 73 20 61 72 67 | nsym.it.parse$defstruct$args.arg |
| 9de0 | 73 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a | s.copy-sequence.*mvalues-values* |
| 9e00 | 20 31 20 54 24 24 5f 33 38 20 35 20 69 6e 69 74 6c 69 73 74 20 34 20 73 6c 6f 74 73 20 33 20 73 | .1.T$$_38.5.initlist.4.slots.3.s |
| 9e20 | 6c 6f 74 73 6e 20 32 20 64 6f 63 73 74 72 69 6e 67 20 6f 70 74 69 6f 6e 73 20 6e 61 6d 65 20 70 | lotsn.2.docstring.options.name.p |
| 9e40 | 61 72 73 65 24 64 65 66 73 74 72 75 63 74 24 6f 70 74 69 6f 6e 73 20 54 24 24 5f 34 31 20 36 20 | arse$defstruct$options.T$$_41.6. |
| 9e60 | 6d 6f 72 65 69 6e 69 74 73 20 6d 6f 72 65 73 6c 6f 74 73 20 6d 6f 72 65 73 6c 6f 74 73 6e 20 70 | moreinits.moreslots.moreslotsn.p |
| 9e80 | 72 65 64 69 63 61 74 65 20 63 6f 70 69 65 72 20 63 6f 6e 73 74 72 75 63 74 6f 72 20 63 6f 6e 63 | redicate.copier.constructor.conc |
| 9ea0 | 2d 6e 61 6d 65 20 6e 75 6d 62 65 72 70 20 30 20 61 70 70 65 6e 64 20 65 72 72 6f 72 20 22 25 73 | -name.numberp.0.append.error."%s |
| 9ec0 | 20 6e 65 65 64 73 20 61 74 20 6c 65 61 73 74 20 6f 6e 65 20 73 6c 6f 74 22 20 70 72 69 6e 31 2d | .needs.at.least.one.slot".prin1- |
| 9ee0 | 74 6f 2d 73 74 72 69 6e 67 20 64 75 70 6c 69 63 61 74 65 2d 73 79 6d 62 6f 6c 73 2d 70 20 64 75 | to-string.duplicate-symbols-p.du |
| 9f00 | 70 73 20 22 60 25 73 27 20 61 72 65 20 64 75 70 6c 69 63 61 74 65 73 22 20 73 69 6d 70 6c 69 66 | ps."`%s'.are.duplicates".simplif |
| 9f20 | 79 24 69 6e 69 74 73 20 72 65 74 75 72 6e 65 64 20 61 6c 74 65 72 61 74 6f 72 73 20 61 63 63 65 | y$inits.returned.alterators.acce |
| 9f40 | 73 73 6f 72 73 20 6b 65 79 77 6f 72 64 73 20 66 75 6e 63 74 69 6f 6e 73 20 70 72 6f 70 65 72 74 | ssors.keywords.functions.propert |
| 9f60 | 69 65 73 20 6c 69 73 74 20 70 75 74 20 71 75 6f 74 65 20 3a 73 74 72 75 63 74 75 72 65 2d 64 6f | ies.list.put.quote.:structure-do |
| 9f80 | 63 20 3a 73 74 72 75 63 74 75 72 65 2d 73 6c 6f 74 73 6e 20 3a 73 74 72 75 63 74 75 72 65 2d 73 | c.:structure-slotsn.:structure-s |
| 9fa0 | 6c 6f 74 73 20 3a 73 74 72 75 63 74 75 72 65 2d 69 6e 69 74 66 6f 72 6d 73 20 3a 73 74 72 75 63 | lots.:structure-initforms.:struc |
| 9fc0 | 74 75 72 65 2d 69 6e 64 69 63 65 73 20 65 78 74 72 61 63 74 24 69 6e 64 69 63 65 73 20 66 73 65 | ture-indices.extract$indices.fse |
| 9fe0 | 74 20 66 75 6e 63 74 69 6f 6e 20 6c 61 6d 62 64 61 20 26 72 65 73 74 20 6d 61 6b 65 24 73 74 72 | t.function.lambda.&rest.make$str |
| a000 | 75 63 74 75 72 65 24 69 6e 73 74 61 6e 63 65 20 73 74 72 75 63 74 20 63 6f 70 79 2d 76 65 63 74 | ucture$instance.struct.copy-vect |
| a020 | 6f 72 20 74 68 69 6e 67 20 61 6e 64 20 76 65 63 74 6f 72 70 20 65 71 20 65 6c 74 20 3d 20 6c 65 | or.thing.and.vectorp.eq.elt.=.le |
| a040 | 6e 67 74 68 20 62 75 69 6c 64 24 61 63 63 65 73 73 6f 72 73 24 66 6f 72 20 54 24 24 5f 34 34 20 | ngth.build$accessors$for.T$$_44. |
| a060 | 76 65 63 74 6f 72 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 | vector.mapcar.(lambda.(x).(byte- |
| a080 | 63 6f 64 65 20 22 c0 09 44 87 22 20 5b 71 75 6f 74 65 20 78 5d 20 32 29 29 20 70 72 6f 67 6e 20 | code."..D.".[quote.x].2)).progn. |
| a0a0 | 6e 63 6f 6e 63 5d 20 31 34 29 29 0a 28 64 65 66 75 6e 20 70 61 72 73 65 24 64 65 66 73 74 72 75 | nconc].14)).(defun.parse$defstru |
| a0c0 | 63 74 24 61 72 67 73 20 28 61 72 67 73 29 20 22 5c 0a 50 41 52 53 45 24 44 45 46 53 54 52 55 43 | ct$args.(args)."\.PARSE$DEFSTRUC |
| a0e0 | 54 24 41 52 47 53 20 41 52 47 53 20 3d 3e 20 4e 41 4d 45 20 4f 50 54 49 4f 4e 53 20 44 4f 43 53 | T$ARGS.ARGS.=>.NAME.OPTIONS.DOCS |
| a100 | 54 52 49 4e 47 20 53 4c 4f 54 53 4e 20 53 4c 4f 54 53 20 49 4e 49 54 4c 49 53 54 0a 4e 41 4d 45 | TRING.SLOTSN.SLOTS.INITLIST.NAME |
| a120 | 3d 73 79 6d 62 6f 6c 2c 20 4f 50 54 49 4f 4e 53 3d 6c 69 73 74 20 6f 66 2c 20 44 4f 43 53 54 52 | =symbol,.OPTIONS=list.of,.DOCSTR |
| a140 | 49 4e 47 3d 73 74 72 69 6e 67 2c 20 53 4c 4f 54 53 4e 3d 63 6f 75 6e 74 20 6f 66 20 73 6c 6f 74 | ING=string,.SLOTSN=count.of.slot |
| a160 | 73 2c 0a 53 4c 4f 54 53 3d 6c 69 73 74 20 6f 66 20 74 68 65 69 72 20 6e 61 6d 65 73 2c 20 49 4e | s,.SLOTS=list.of.their.names,.IN |
| a180 | 49 54 4c 49 53 54 3d 61 6c 69 73 74 20 28 6b 65 79 77 6f 72 64 20 2e 20 69 6e 69 74 66 6f 72 6d | ITLIST=alist.(keyword...initform |
| a1a0 | 29 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 89 c1 c0 c2 c0 89 1b 1c 1d 1e 06 1e 07 1e 08 | ).".(byte-code."................ |
| a1c0 | 1e 09 0e 5c 6e 40 39 83 24 00 0e 5c 6e 40 16 09 c0 16 08 82 46 00 0e 5c 6e 40 3c 83 42 00 cb 0e | ...\n@9.$..\n@......F..\n@<.B... |
| a1e0 | 5c 6e 21 39 83 42 00 cb 0e 5c 6e 21 16 09 cc 0e 5c 6e 21 16 08 82 46 00 cd ce 21 88 0e 5c 6e 41 | \n!9.B...\n!....\n!...F...!..\nA |
| a200 | 89 16 06 40 3b 83 5b 00 0e 06 40 16 07 0e 06 41 16 06 c0 16 0f d0 20 89 1e 11 d2 0e 06 21 4c 88 | ...@;.[...@....A.............!L. |
| a220 | 0e 0f 83 75 00 d3 0e 14 21 82 82 00 d5 16 0f 0e 11 4a 43 16 14 d3 0e 14 21 29 1e 16 d7 0e 16 38 | ...u....!........JC.....!).....8 |
| a240 | 1b 0e 16 41 40 1c 0e 16 40 1d d8 0e 09 0e 08 0e 07 0d 0c 0b 26 06 2e 0b 87 22 20 5b 6e 69 6c 20 | ...A@...@...........&....".[nil. |
| a260 | 22 22 20 30 20 69 6e 69 74 6c 69 73 74 20 73 6c 6f 74 73 20 73 6c 6f 74 73 6e 20 73 6c 6f 74 61 | "".0.initlist.slots.slotsn.slota |
| a280 | 72 67 73 20 64 6f 63 73 74 72 69 6e 67 20 6f 70 74 69 6f 6e 73 20 6e 61 6d 65 20 61 72 67 73 20 | rgs.docstring.options.name.args. |
| a2a0 | 63 61 61 72 20 63 64 61 72 20 65 72 72 6f 72 20 22 46 69 72 73 74 20 61 72 67 20 74 6f 20 60 64 | caar.cdar.error."First.arg.to.`d |
| a2c0 | 65 66 73 74 72 75 63 74 27 20 6d 75 73 74 20 62 65 20 73 79 6d 62 6f 6c 20 6f 72 20 28 73 79 6d | efstruct'.must.be.symbol.or.(sym |
| a2e0 | 62 6f 6c 20 2e 2e 2e 29 22 20 2a 6d 76 61 6c 75 65 73 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 6d | bol....)".*mvalues-count*.gensym |
| a300 | 20 69 74 20 70 72 6f 63 65 73 73 24 73 6c 6f 74 73 20 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 | .it.process$slots.copy-sequence. |
| a320 | 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 31 20 54 24 24 5f 34 37 20 32 20 76 61 6c 75 | *mvalues-values*.1.T$$_47.2.valu |
| a340 | 65 73 5d 20 38 29 29 0a 28 64 65 66 75 6e 20 70 72 6f 63 65 73 73 24 73 6c 6f 74 73 20 28 73 6c | es].8)).(defun.process$slots.(sl |
| a360 | 6f 74 73 29 20 22 5c 0a 50 52 4f 43 45 53 53 24 53 4c 4f 54 53 20 53 4c 4f 54 53 20 3d 3e 20 53 | ots)."\.PROCESS$SLOTS.SLOTS.=>.S |
| a380 | 4c 4f 54 53 4e 20 53 4c 4f 54 53 4c 49 53 54 20 49 4e 49 54 4c 49 53 54 0a 43 6f 6e 76 65 72 74 | LOTSN.SLOTSLIST.INITLIST.Convert |
| a3a0 | 73 20 61 20 6c 69 73 74 20 6f 66 20 73 79 6d 62 6f 6c 73 20 6f 72 20 6c 69 73 74 73 20 6f 66 20 | s.a.list.of.symbols.or.lists.of. |
| a3c0 | 73 79 6d 62 6f 6c 20 61 6e 64 20 66 6f 72 6d 20 69 6e 74 6f 20 74 68 65 20 6c 61 73 74 20 33 0a | symbol.and.form.into.the.last.3. |
| a3e0 | 76 61 6c 75 65 73 20 72 65 74 75 72 6e 65 64 20 62 79 20 50 41 52 53 45 24 44 45 46 53 54 52 55 | values.returned.by.PARSE$DEFSTRU |
| a400 | 43 54 24 41 52 47 53 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 47 c1 89 1a 1b 1c 08 89 1d | CT$ARGS.".(byte-code.".G........ |
| a420 | 40 1e 06 c7 0d 21 84 66 00 0e 06 39 83 2a 00 0e 06 0b 42 13 c8 c9 0e 06 21 c1 5c 6e 23 12 82 5c | @....!.f...9.*....B.....!.\n#..\ |
| a440 | 5c 00 0e 06 3c 83 54 00 0e 06 40 39 83 54 00 0e 06 40 ca 0e 06 21 1e 0b 89 1e 0c 0b 42 13 c8 c9 | \...<.T...@9.T...@...!......B... |
| a460 | 0e 0c 21 0e 0b 5c 6e 23 12 2a 82 5c 5c 00 cd ce cf 0e 06 21 5c 22 88 0d 41 89 15 40 16 06 82 0d | ..!..\n#.*.\\......!\"..A..@.... |
| a480 | 00 2a d0 0c d1 0b 21 d1 5c 6e 21 23 2b 87 22 20 5b 73 6c 6f 74 73 20 6e 69 6c 20 69 6e 69 74 6c | .*....!.\n!#+.".[slots.nil.initl |
| a4a0 | 69 73 74 20 73 6c 6f 74 73 6c 69 73 74 20 73 6c 6f 74 73 6e 20 70 74 72 20 74 68 69 73 20 65 6e | ist.slotslist.slotsn.ptr.this.en |
| a4c0 | 64 70 20 61 63 6f 6e 73 20 6b 65 79 77 6f 72 64 2d 6f 66 20 63 61 64 72 20 66 6f 72 6d 20 6e 61 | dp.acons.keyword-of.cadr.form.na |
| a4e0 | 6d 65 20 65 72 72 6f 72 20 22 53 6c 6f 74 20 73 68 6f 75 6c 64 20 62 65 20 73 79 6d 62 6f 6c 20 | me.error."Slot.should.be.symbol. |
| a500 | 6f 72 20 28 73 79 6d 62 6f 6c 20 2e 2e 2e 29 2c 20 6e 6f 74 20 60 25 73 27 22 20 70 72 69 6e 31 | or.(symbol....),.not.`%s'".prin1 |
| a520 | 2d 74 6f 2d 73 74 72 69 6e 67 20 76 61 6c 75 65 73 20 6e 72 65 76 65 72 73 65 5d 20 36 29 29 0a | -to-string.values.nreverse].6)). |
| a540 | 28 64 65 66 75 6e 20 70 61 72 73 65 24 64 65 66 73 74 72 75 63 74 24 6f 70 74 69 6f 6e 73 20 28 | (defun.parse$defstruct$options.( |
| a560 | 6e 61 6d 65 20 6f 70 74 69 6f 6e 73 20 73 6c 6f 74 73 29 20 22 5c 0a 50 41 52 53 45 24 44 45 46 | name.options.slots)."\.PARSE$DEF |
| a580 | 53 54 52 55 43 54 24 4f 50 54 49 4f 4e 53 20 4e 41 4d 45 20 4f 50 54 49 4f 4e 53 20 53 4c 4f 54 | STRUCT$OPTIONS.NAME.OPTIONS.SLOT |
| a5a0 | 53 20 3d 3e 20 43 4f 4e 43 2d 4e 41 4d 45 20 43 4f 4e 53 54 20 43 4f 50 49 45 52 20 50 52 45 44 | S.=>.CONC-NAME.CONST.COPIER.PRED |
| a5c0 | 0a 52 65 74 75 72 6e 73 20 61 74 20 6c 65 61 73 74 20 74 68 6f 73 65 20 34 20 76 61 6c 75 65 73 | .Returns.at.least.those.4.values |
| a5e0 | 20 28 61 20 73 74 72 69 6e 67 20 61 6e 64 20 33 20 73 79 6d 62 6f 6c 73 2c 20 74 6f 20 6e 61 6d | .(a.string.and.3.symbols,.to.nam |
| a600 | 65 20 74 68 65 20 6e 65 63 65 73 73 61 72 79 0a 66 75 6e 63 74 69 6f 6e 73 29 2c 20 20 6d 69 67 | e.the.necessary.functions),..mig |
| a620 | 68 74 20 72 65 74 75 72 6e 20 61 6c 73 6f 20 74 68 69 6e 67 73 20 64 69 73 63 6f 76 65 72 65 64 | ht.return.also.things.discovered |
| a640 | 20 62 79 20 61 63 74 75 61 6c 6c 79 0a 69 6e 73 70 65 63 74 69 6e 67 20 74 68 65 20 6f 70 74 69 | .by.actually.inspecting.the.opti |
| a660 | 6f 6e 73 2c 20 6e 61 6d 65 6c 79 20 4d 4f 52 45 53 4c 4f 54 53 4e 20 4d 4f 52 45 53 4c 4f 54 53 | ons,.namely.MORESLOTSN.MORESLOTS |
| a680 | 20 4d 4f 52 45 49 4e 49 54 53 2c 20 61 73 20 63 61 6e 0a 62 65 20 63 72 65 61 74 65 64 20 62 79 | .MOREINITS,.as.can.be.created.by |
| a6a0 | 20 3a 69 6e 63 6c 75 64 65 2c 20 61 6e 64 20 70 65 72 68 61 70 73 20 61 20 6c 69 73 74 20 6f 66 | .:include,.and.perhaps.a.list.of |
| a6c0 | 20 42 4f 41 43 4f 4e 53 54 52 55 43 54 4f 52 53 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 | .BOACONSTRUCTORS.".(byte-code.". |
| a6e0 | 09 21 89 1a c3 50 1c c5 c6 5c 6e 50 21 1e 07 c5 c8 5c 6e 50 21 1e 09 c5 5c 6e ca 50 21 1e 0b cc | .!...P...\nP!....\nP!...\n.P!... |
| a700 | 1e 0d ce 1e 0f ce 1e 10 ce 1e 11 ce 1e 12 ce 1e 13 ce 1e 14 ce 1e 15 ce 1e 16 d7 d8 0e 19 5c 22 | ..............................\" |
| a720 | 88 da 0c 0e 07 0e 09 0e 0b 0e 0d 0e 0f 0e 10 26 07 2e 0e 87 22 20 5b 73 79 6d 62 6f 6c 2d 6e 61 | ...............&....".[symbol-na |
| a740 | 6d 65 20 6e 61 6d 65 20 6e 61 6d 65 73 74 72 69 6e 67 20 22 2d 22 20 63 6f 6e 63 2d 6e 61 6d 65 | me.name.namestring."-".conc-name |
| a760 | 20 69 6e 74 65 72 6e 20 22 6d 61 6b 65 2d 22 20 63 6f 6e 73 74 20 22 63 6f 70 79 2d 22 20 63 6f | .intern."make-".const."copy-".co |
| a780 | 70 69 65 72 20 22 2d 70 22 20 70 72 65 64 20 30 20 6d 6f 72 65 73 6c 6f 74 73 6e 20 6e 69 6c 20 | pier."-p".pred.0.moreslotsn.nil. |
| a7a0 | 6d 6f 72 65 73 6c 6f 74 73 20 6d 6f 72 65 69 6e 69 74 73 20 6f 70 74 69 6f 6e 2d 68 65 61 64 20 | moreslots.moreinits.option-head. |
| a7c0 | 6f 70 74 69 6f 6e 2d 73 65 63 6f 6e 64 20 6f 70 74 69 6f 6e 2d 72 65 73 74 20 74 68 65 73 65 2d | option-second.option-rest.these- |
| a7e0 | 73 6c 6f 74 73 6e 20 74 68 65 73 65 2d 73 6c 6f 74 73 20 74 68 65 73 65 2d 69 6e 69 74 73 20 6d | slotsn.these-slots.these-inits.m |
| a800 | 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 6f 70 74 69 6f 6e 29 20 28 62 79 74 65 2d 63 6f 64 | apcar.(lambda.(option).(byte-cod |
| a820 | 65 20 22 c0 09 21 83 16 00 09 89 1a c3 3d 86 14 00 c4 c5 c6 09 21 5c 22 29 87 09 3c 83 7e 01 c0 | e."..!.......=.......!\")..<.~.. |
| a840 | 09 40 89 16 07 21 83 7e 01 c8 09 21 16 09 09 41 41 16 5c 6e 0e 07 89 1e 0b cc 3d 83 5a 00 0e 09 | .@...!.~...!...AA.\n......=.Z... |
| a860 | 3b 83 44 00 0e 09 82 54 00 0e 09 84 4d 00 cd 82 54 00 c4 ce c6 0e 09 21 5c 22 89 16 0f 82 7c 01 | ;.D....T....M...T......!\"....|. |
| a880 | 0e 0b d0 3d 83 7d 00 0e 09 39 83 71 00 0e 5c 6e 84 71 00 0e 09 82 77 00 c4 c5 c6 09 21 5c 22 89 | ...=.}...9.q..\n.q....w.....!\". |
| a8a0 | 16 11 82 7c 01 0e 0b d2 3d 83 a0 00 0e 09 39 83 94 00 0e 5c 6e 84 94 00 0e 09 82 9a 00 c4 c5 c6 | ...|....=.....9....\n........... |
| a8c0 | 09 21 5c 22 89 16 13 82 7c 01 0e 0b d4 3d 83 c3 00 0e 09 39 83 b7 00 0e 5c 6e 84 b7 00 0e 09 82 | .!\"....|....=.....9....\n...... |
| a8e0 | bd 00 c4 c5 c6 09 21 5c 22 89 16 15 82 7c 01 0e 0b d6 3d 83 6e 01 0e 09 39 84 d8 00 c4 d7 c6 0e | ......!\"....|....=.n...9....... |
| a900 | 09 21 5c 22 88 0e 09 0e 18 4e 16 19 0e 09 0e 1a 4e 16 1b 0e 09 0e 1c 4e 16 1d de 0e 19 21 83 fb | .!\".....N......N......N.....!.. |
| a920 | 00 0e 19 df 56 84 03 01 c4 e0 c6 0e 09 21 5c 22 88 e1 16 5c 22 e3 20 89 1e 24 e5 0e 5c 6e 21 4c | ....V........!\"...\"....$..\n!L |
| a940 | 88 0e 5c 22 83 1d 01 e6 0e 27 21 82 2a 01 e8 16 5c 22 0e 24 4a 43 16 27 e6 0e 27 21 29 1e 29 ea | ..\".....'!.*...\".$JC.'..'!).). |
| a960 | 0e 29 38 1e 2b 0e 29 41 40 1e 2c 0e 29 40 89 1e 2d df 56 83 52 01 ee ef 0e 2c 5c 22 88 f0 0e 2b | .)8.+.)A@.,.)@..-.V.R....,\"...+ |
| a980 | 0e 1d 5c 22 16 1d 0e 31 0e 19 5c 5c 16 31 f0 0e 1b 0e 32 5c 22 16 32 f0 0e 1d 0e 33 5c 22 89 16 | ..\"...1..\\.1....2\".2....3\".. |
| a9a0 | 33 2c 82 7c 01 f4 0e 0b f5 5c 22 86 7c 01 c4 c5 c6 09 21 5c 22 29 87 c4 c5 c6 09 21 5c 22 87 22 | 3,.|.....\".|.....!\").....!\"." |
| a9c0 | 20 5b 6b 65 79 77 6f 72 64 70 20 6f 70 74 69 6f 6e 20 54 24 24 5f 35 30 20 3a 6e 61 6d 65 64 20 | .[keywordp.option.T$$_50.:named. |
| a9e0 | 65 72 72 6f 72 20 22 43 61 6e 27 74 20 72 65 63 6f 67 6e 69 7a 65 20 6f 70 74 69 6f 6e 20 60 25 | error."Can't.recognize.option.`% |
| aa00 | 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 6f 70 74 69 6f 6e 2d 68 65 61 64 20 | s'".prin1-to-string.option-head. |
| aa20 | 73 65 63 6f 6e 64 20 6f 70 74 69 6f 6e 2d 73 65 63 6f 6e 64 20 6f 70 74 69 6f 6e 2d 72 65 73 74 | second.option-second.option-rest |
| aa40 | 20 54 24 24 5f 35 31 20 3a 63 6f 6e 63 2d 6e 61 6d 65 20 22 22 20 22 60 25 73 27 20 69 73 20 69 | .T$$_51.:conc-name.""."`%s'.is.i |
| aa60 | 6e 76 61 6c 69 64 20 61 73 20 60 63 6f 6e 63 2d 6e 61 6d 65 27 22 20 63 6f 6e 63 2d 6e 61 6d 65 | nvalid.as.`conc-name'".conc-name |
| aa80 | 20 3a 63 6f 70 69 65 72 20 63 6f 70 69 65 72 20 3a 63 6f 6e 73 74 72 75 63 74 6f 72 20 63 6f 6e | .:copier.copier.:constructor.con |
| aaa0 | 73 74 20 3a 70 72 65 64 69 63 61 74 65 20 70 72 65 64 20 3a 69 6e 63 6c 75 64 65 20 22 41 72 67 | st.:predicate.pred.:include."Arg |
| aac0 | 20 74 6f 20 60 3a 69 6e 63 6c 75 64 65 27 20 73 68 6f 75 6c 64 20 62 65 20 61 20 73 79 6d 62 6f | .to.`:include'.should.be.a.symbo |
| aae0 | 6c 2c 20 6e 6f 74 20 60 25 73 27 22 20 3a 73 74 72 75 63 74 75 72 65 2d 73 6c 6f 74 73 6e 20 74 | l,.not.`%s'".:structure-slotsn.t |
| ab00 | 68 65 73 65 2d 73 6c 6f 74 73 6e 20 3a 73 74 72 75 63 74 75 72 65 2d 73 6c 6f 74 73 20 74 68 65 | hese-slotsn.:structure-slots.the |
| ab20 | 73 65 2d 73 6c 6f 74 73 20 3a 73 74 72 75 63 74 75 72 65 2d 69 6e 69 74 66 6f 72 6d 73 20 74 68 | se-slots.:structure-initforms.th |
| ab40 | 65 73 65 2d 69 6e 69 74 73 20 6e 75 6d 62 65 72 70 20 30 20 22 60 25 73 27 20 69 73 20 6e 6f 74 | ese-inits.numberp.0."`%s'.is.not |
| ab60 | 20 61 20 76 61 6c 69 64 20 73 74 72 75 63 74 75 72 65 22 20 6e 69 6c 20 2a 6d 76 61 6c 75 65 73 | .a.valid.structure".nil.*mvalues |
| ab80 | 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 6d 20 69 74 20 70 72 6f 63 65 73 73 24 73 6c 6f 74 73 20 | -count*.gensym.it.process$slots. |
| aba0 | 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 31 | copy-sequence.*mvalues-values*.1 |
| abc0 | 20 54 24 24 5f 35 32 20 32 20 78 74 72 61 2d 69 6e 69 74 73 20 78 74 72 61 2d 73 6c 6f 74 73 20 | .T$$_52.2.xtra-inits.xtra-slots. |
| abe0 | 78 74 72 61 2d 73 6c 6f 74 73 6e 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 73 6c 6f | xtra-slotsn.mapcar.(lambda.(xslo |
| ac00 | 74 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 09 3e 3f 85 10 00 c2 c3 c4 08 21 c4 0d 21 23 87 | t).(byte-code."..>?.......!..!#. |
| ac20 | 22 20 5b 78 73 6c 6f 74 20 74 68 65 73 65 2d 73 6c 6f 74 73 20 65 72 72 6f 72 20 22 60 25 73 27 | ".[xslot.these-slots.error."`%s' |
| ac40 | 20 69 73 20 6e 6f 74 20 61 20 73 6c 6f 74 20 6f 66 20 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f | .is.not.a.slot.of.`%s'".prin1-to |
| ac60 | 2d 73 74 72 69 6e 67 20 6f 70 74 69 6f 6e 2d 73 65 63 6f 6e 64 5d 20 35 29 29 20 61 70 70 65 6e | -string.option-second].5)).appen |
| ac80 | 64 20 6d 6f 72 65 73 6c 6f 74 73 6e 20 6d 6f 72 65 73 6c 6f 74 73 20 6d 6f 72 65 69 6e 69 74 73 | d.moreslotsn.moreslots.moreinits |
| aca0 | 20 6d 65 6d 62 65 72 20 28 3a 70 72 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 3a 74 79 70 65 20 3a | .member.(:print-function.:type.: |
| acc0 | 69 6e 69 74 69 61 6c 2d 6f 66 66 73 65 74 29 5d 20 35 29 29 20 6f 70 74 69 6f 6e 73 20 76 61 6c | initial-offset)].5)).options.val |
| ace0 | 75 65 73 5d 20 39 29 29 0a 28 64 65 66 75 6e 20 73 69 6d 70 6c 69 66 79 24 69 6e 69 74 73 20 28 | ues].9)).(defun.simplify$inits.( |
| ad00 | 73 6c 6f 74 73 20 69 6e 69 74 6c 69 73 74 29 20 22 5c 0a 53 49 4d 50 4c 49 46 59 24 49 4e 49 54 | slots.initlist)."\.SIMPLIFY$INIT |
| ad20 | 53 20 53 4c 4f 54 53 20 49 4e 49 54 4c 49 53 54 20 3d 3e 20 6e 65 77 20 49 4e 49 54 4c 49 53 54 | S.SLOTS.INITLIST.=>.new.INITLIST |
| ad40 | 0a 52 65 6d 6f 76 65 73 20 66 72 6f 6d 20 49 4e 49 54 4c 49 53 54 20 2d 20 61 6e 20 41 4c 49 53 | .Removes.from.INITLIST.-.an.ALIS |
| ad60 | 54 20 2d 20 61 6e 79 20 73 68 61 64 6f 77 65 64 20 62 69 6e 64 69 6e 67 73 2e 22 20 28 62 79 74 | T.-.any.shadowed.bindings.".(byt |
| ad80 | 65 2d 63 6f 64 65 20 22 c0 89 19 1a c3 c4 0d 5c 22 88 c6 5c 6e 21 2a 87 22 20 5b 6e 69 6c 20 6b | e-code.".......\"..\n!*.".[nil.k |
| ada0 | 65 79 20 72 65 73 75 6c 74 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 73 6c 6f 74 29 20 | ey.result.mapcar.(lambda.(slot). |
| adc0 | 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 21 12 c3 5c 6e c4 5c 6e 0d 5c 22 41 0e 06 23 89 16 06 | (byte-code."..!..\n.\n.\"A..#... |
| ade0 | 87 22 20 5b 6b 65 79 77 6f 72 64 2d 6f 66 20 73 6c 6f 74 20 6b 65 79 20 61 63 6f 6e 73 20 61 73 | .".[keyword-of.slot.key.acons.as |
| ae00 | 73 6f 63 20 69 6e 69 74 6c 69 73 74 20 72 65 73 75 6c 74 5d 20 35 29 29 20 73 6c 6f 74 73 20 6e | soc.initlist.result].5)).slots.n |
| ae20 | 72 65 76 65 72 73 65 5d 20 33 29 29 0a 28 64 65 66 75 6e 20 65 78 74 72 61 63 74 24 69 6e 64 69 | reverse].3)).(defun.extract$indi |
| ae40 | 63 65 73 20 28 69 6e 69 74 6c 69 73 74 29 20 22 5c 0a 45 58 54 52 41 43 54 24 49 4e 44 49 43 45 | ces.(initlist)."\.EXTRACT$INDICE |
| ae60 | 53 20 49 4e 49 54 4c 49 53 54 20 3d 3e 20 69 6e 64 69 63 65 73 20 6c 69 73 74 0a 4b 6c 75 64 67 | S.INITLIST.=>.indices.list.Kludg |
| ae80 | 65 2e 20 20 46 72 6f 6d 20 61 20 6c 69 73 74 20 6f 66 20 70 61 69 72 73 20 28 6b 65 79 77 6f 72 | e...From.a.list.of.pairs.(keywor |
| aea0 | 64 20 2e 20 66 6f 72 6d 29 20 62 75 69 6c 64 20 61 20 6c 69 73 74 20 6f 66 20 70 61 69 72 73 0a | d...form).build.a.list.of.pairs. |
| aec0 | 6f 66 20 74 68 65 20 66 6f 72 6d 20 28 6b 65 79 77 6f 72 64 20 2e 20 70 6f 73 69 74 69 6f 6e 20 | of.the.form.(keyword...position. |
| aee0 | 69 6e 20 6c 69 73 74 20 66 72 6f 6d 20 30 29 2e 20 20 55 73 65 66 75 6c 20 74 6f 20 70 72 65 63 | in.list.from.0)...Useful.to.prec |
| af00 | 6f 6d 70 75 74 65 0a 73 6f 6d 65 20 6f 66 20 74 68 65 20 77 6f 72 6b 20 6f 66 20 4d 41 4b 45 24 | ompute.some.of.the.work.of.MAKE$ |
| af20 | 53 54 52 55 43 54 55 52 45 24 49 4e 53 54 41 4e 43 45 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 | STRUCTURE$INSTANCE.".(byte-code. |
| af40 | 22 c0 c1 1a 1b c4 c5 0e 06 5c 22 88 c0 1e 07 c8 0b 21 2b 87 22 20 5b 6e 69 6c 20 30 20 69 6e 64 | "........\"......!+.".[nil.0.ind |
| af60 | 65 78 20 72 65 73 75 6c 74 20 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 | ex.result.mapcar.(lambda.(entry) |
| af80 | 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 09 40 5c 6e 0b 23 13 5c 6e c4 5c 5c 89 12 87 22 20 5b | .(byte-code."..@\n.#.\n.\\...".[ |
| afa0 | 61 63 6f 6e 73 20 65 6e 74 72 79 20 69 6e 64 65 78 20 72 65 73 75 6c 74 20 31 5d 20 34 29 29 20 | acons.entry.index.result.1].4)). |
| afc0 | 69 6e 69 74 6c 69 73 74 20 65 6e 74 72 79 20 6e 72 65 76 65 72 73 65 5d 20 33 29 29 0a 28 64 65 | initlist.entry.nreverse].3)).(de |
| afe0 | 66 75 6e 20 62 75 69 6c 64 24 61 63 63 65 73 73 6f 72 73 24 66 6f 72 20 28 6e 61 6d 65 20 63 6f | fun.build$accessors$for.(name.co |
| b000 | 6e 63 2d 6e 61 6d 65 20 70 72 65 64 69 63 61 74 65 20 73 6c 6f 74 73 20 73 6c 6f 74 73 6e 29 20 | nc-name.predicate.slots.slotsn). |
| b020 | 22 5c 0a 42 55 49 4c 44 24 41 43 43 45 53 53 4f 52 53 24 46 4f 52 20 4e 41 4d 45 20 50 52 45 44 | "\.BUILD$ACCESSORS$FOR.NAME.PRED |
| b040 | 49 43 41 54 45 20 53 4c 4f 54 53 20 53 4c 4f 54 53 4e 20 20 3d 3e 20 46 53 45 54 53 20 44 45 46 | ICATE.SLOTS.SLOTSN..=>.FSETS.DEF |
| b060 | 53 45 54 46 53 20 4b 57 44 53 0a 47 65 6e 65 72 61 74 65 20 74 68 65 20 63 6f 64 65 20 66 6f 72 | SETFS.KWDS.Generate.the.code.for |
| b080 | 20 61 63 63 65 73 6f 72 73 20 61 6e 64 20 64 65 66 73 65 74 66 73 20 6f 66 20 61 20 73 74 72 75 | .accesors.and.defsetfs.of.a.stru |
| b0a0 | 63 74 75 72 65 20 63 61 6c 6c 65 64 0a 4e 41 4d 45 2c 20 77 68 6f 73 65 20 73 6c 6f 74 73 20 61 | cture.called.NAME,.whose.slots.a |
| b0c0 | 72 65 20 53 4c 4f 54 53 2e 20 20 41 6c 73 6f 2c 20 65 73 74 61 62 6c 69 73 68 65 73 20 74 68 65 | re.SLOTS...Also,.establishes.the |
| b0e0 | 20 6b 65 79 77 6f 72 64 73 20 66 6f 72 20 74 68 65 0a 73 6c 6f 74 73 20 6e 61 6d 65 73 2e 22 20 | .keywords.for.the.slots.names.". |
| b100 | 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 89 89 c2 1b 1c 1d 1e 06 1e 07 0e 07 0e 08 59 84 8b 00 | (byte-code."................Y... |
| b120 | c9 0e 5c 6e cb 0e 07 0e 0c 38 21 50 21 13 cd ce 0b 44 cf d0 d1 43 d2 0e 13 d1 44 d4 d1 0e 07 54 | ..\n.....8!P!....D...C....D....T |
| b140 | 45 44 d5 d6 d7 d8 d1 44 d8 ce 0e 19 44 44 46 44 45 45 44 45 0e 06 42 16 06 da 0b d0 d1 db 44 d2 | ED.....D....DDFDEEDE..B.......D. |
| b160 | 0e 13 d1 44 dc d1 0e 07 54 db 46 44 d5 d6 dd d8 d1 44 d8 ce 0e 19 44 44 46 44 45 45 45 0d 42 15 | ...D....T.FD.....D....DDFDEEE.B. |
| b180 | de df 0e 07 0e 0c 38 21 44 0c 42 14 0e 07 54 89 1e 20 16 07 29 82 0c 00 e1 e2 0e 06 21 e2 0d 21 | ......8!D.B...T.....).......!..! |
| b1a0 | e2 0c 21 23 2d 87 22 20 5b 30 20 6e 69 6c 20 22 22 20 63 61 6e 6f 6e 69 63 20 6b 65 79 77 6f 72 | ..!#-.".[0.nil."".canonic.keywor |
| b1c0 | 64 73 20 61 6c 74 65 72 61 74 6f 72 73 20 61 63 63 65 73 73 6f 72 73 20 69 20 73 6c 6f 74 73 6e | ds.alterators.accessors.i.slotsn |
| b1e0 | 20 69 6e 74 65 72 6e 20 63 6f 6e 63 2d 6e 61 6d 65 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 73 6c | .intern.conc-name.symbol-name.sl |
| b200 | 6f 74 73 20 66 73 65 74 20 71 75 6f 74 65 20 66 75 6e 63 74 69 6f 6e 20 6c 61 6d 62 64 61 20 6f | ots.fset.quote.function.lambda.o |
| b220 | 62 6a 65 63 74 20 63 6f 6e 64 20 70 72 65 64 69 63 61 74 65 20 61 72 65 66 20 74 20 65 72 72 6f | bject.cond.predicate.aref.t.erro |
| b240 | 72 20 22 60 25 73 27 20 6e 6f 74 20 61 20 25 73 2e 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 | r."`%s'.not.a.%s.".prin1-to-stri |
| b260 | 6e 67 20 6e 61 6d 65 20 64 65 66 73 65 74 66 20 6e 65 77 76 61 6c 20 61 73 65 74 20 22 60 25 73 | ng.name.defsetf.newval.aset."`%s |
| b280 | 27 20 6e 6f 74 20 61 20 60 25 73 27 22 20 64 65 66 6b 65 79 77 6f 72 64 20 6b 65 79 77 6f 72 64 | '.not.a.`%s'".defkeyword.keyword |
| b2a0 | 2d 6f 66 20 47 24 24 5f 31 37 37 30 20 76 61 6c 75 65 73 20 6e 72 65 76 65 72 73 65 5d 20 31 35 | -of.G$$_1770.values.nreverse].15 |
| b2c0 | 29 29 0a 28 64 65 66 75 6e 20 6d 61 6b 65 24 73 74 72 75 63 74 75 72 65 24 69 6e 73 74 61 6e 63 | )).(defun.make$structure$instanc |
| b2e0 | 65 20 28 6e 61 6d 65 20 61 72 67 73 29 20 22 5c 0a 4d 41 4b 45 24 53 54 52 55 43 54 55 52 45 24 | e.(name.args)."\.MAKE$STRUCTURE$ |
| b300 | 49 4e 53 54 41 4e 43 45 20 4e 41 4d 45 20 41 52 47 53 20 3d 3e 20 6e 65 77 20 73 74 72 75 63 74 | INSTANCE.NAME.ARGS.=>.new.struct |
| b320 | 20 4e 41 4d 45 0a 41 20 73 74 72 75 63 74 20 6f 66 20 74 79 70 65 20 4e 41 4d 45 20 69 73 20 63 | .NAME.A.struct.of.type.NAME.is.c |
| b340 | 72 65 61 74 65 64 2c 20 73 6f 6d 65 20 73 6c 6f 74 73 20 6d 69 67 68 74 20 62 65 20 69 6e 69 74 | reated,.some.slots.might.be.init |
| b360 | 69 61 6c 69 7a 65 64 0a 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 41 52 47 53 20 28 74 68 65 20 26 | ialized.according.to.ARGS.(the.& |
| b380 | 72 65 73 74 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 4d 41 4b 45 2d 6e 61 6d 65 29 2e 22 20 28 62 | rest.argument.of.MAKE-name).".(b |
| b3a0 | 79 74 65 2d 63 6f 64 65 20 22 08 39 84 0c 00 c1 c2 c3 08 21 5c 22 88 08 0c 4e 08 0d 4e 08 0e 06 | yte-code.".9.......!\"...N..N... |
| b3c0 | 4e c7 89 1e 08 1e 09 1e 5c 6e 1e 0b 1e 0c cd 0e 0b 21 83 30 00 0e 0b ce 56 84 37 00 c1 cf c3 08 | N.......\n.......!.0....V.7..... |
| b3e0 | 21 5c 22 88 d0 0e 11 47 21 84 47 00 c1 d2 c3 0e 11 21 5c 22 88 c7 16 13 d4 20 89 1e 15 d6 0e 11 | !\"....G!.G......!\"............ |
| b400 | 21 4c 88 0e 13 83 61 00 d7 0e 18 21 82 6e 00 d9 16 13 0e 15 4a 43 16 18 d7 0e 18 21 29 89 1e 1a | !L....a....!.n......JC.....!)... |
| b420 | 41 40 1e 1b 0e 1a 40 1e 1c dd de 0e 1c 5c 22 84 8b 00 c1 df c3 0e 1c 21 5c 22 88 e0 e1 0e 1c 5c | A@....@......\"........!\".....\ |
| b440 | 22 88 e2 0e 1c 0e 1b 89 1e 23 40 1e 24 c7 1e 25 e6 0e 23 21 84 bb 00 e7 0e 24 44 0e 25 42 16 25 | "........#@.$..%..#!.....$D.%B.% |
| b460 | 0e 23 41 89 16 23 40 16 24 82 9f 00 e8 0e 25 21 2b d7 0e 0c 21 23 16 09 0e 5c 6e 1e 23 e9 0e 23 | .#A..#@.$.....%!+...!#...\n.#..# |
| b480 | 21 1e 2a c7 1e 25 e6 0e 23 21 84 f7 00 eb ec 0e 2a 0e 09 5c 22 41 21 0e 25 42 16 25 0e 23 41 16 | !.*..%..#!......*..\"A!.%B.%.#A. |
| b4a0 | 23 e9 0e 23 21 16 2a 82 d4 00 e8 0e 25 21 2b 16 08 ed ee 08 0e 08 42 5c 22 2e 08 87 22 20 5b 6e | #..#!.*.....%!+.......B\"...".[n |
| b4c0 | 61 6d 65 20 65 72 72 6f 72 20 22 60 25 73 27 20 69 73 20 6e 6f 74 20 61 20 70 6f 73 73 69 62 6c | ame.error."`%s'.is.not.a.possibl |
| b4e0 | 65 20 6e 61 6d 65 20 66 6f 72 20 61 20 73 74 72 75 63 74 75 72 65 22 20 70 72 69 6e 31 2d 74 6f | e.name.for.a.structure".prin1-to |
| b500 | 2d 73 74 72 69 6e 67 20 3a 73 74 72 75 63 74 75 72 65 2d 69 6e 69 74 66 6f 72 6d 73 20 3a 73 74 | -string.:structure-initforms.:st |
| b520 | 72 75 63 74 75 72 65 2d 73 6c 6f 74 73 6e 20 3a 73 74 72 75 63 74 75 72 65 2d 69 6e 64 69 63 65 | ructure-slotsn.:structure-indice |
| b540 | 73 20 6e 69 6c 20 69 6e 69 74 69 61 6c 69 7a 65 72 73 20 69 6e 69 74 61 6c 69 73 74 20 69 6e 64 | s.nil.initializers.initalist.ind |
| b560 | 69 63 65 73 20 73 6c 6f 74 73 6e 20 69 6e 69 74 66 6f 72 6d 73 20 6e 75 6d 62 65 72 70 20 30 20 | ices.slotsn.initforms.numberp.0. |
| b580 | 22 60 25 73 27 20 69 73 20 6e 6f 74 20 61 20 64 65 66 69 6e 65 64 20 73 74 72 75 63 74 75 72 65 | "`%s'.is.not.a.defined.structure |
| b5a0 | 22 20 65 76 65 6e 70 20 61 72 67 73 20 22 53 6c 6f 74 20 69 6e 69 74 69 61 6c 69 7a 65 72 73 20 | ".evenp.args."Slot.initializers. |
| b5c0 | 60 25 73 27 20 6e 6f 74 20 6f 66 20 65 76 65 6e 20 6c 65 6e 67 74 68 22 20 2a 6d 76 61 6c 75 65 | `%s'.not.of.even.length".*mvalue |
| b5e0 | 73 2d 63 6f 75 6e 74 2a 20 67 65 6e 73 79 6d 20 69 74 20 75 6e 7a 69 70 2d 6c 69 73 74 20 63 6f | s-count*.gensym.it.unzip-list.co |
| b600 | 70 79 2d 73 65 71 75 65 6e 63 65 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 31 20 54 | py-sequence.*mvalues-values*.1.T |
| b620 | 24 24 5f 35 35 20 73 70 65 63 76 61 6c 73 20 73 70 65 63 6b 77 64 73 20 65 76 65 72 79 20 6b 65 | $$_55.specvals.speckwds.every.ke |
| b640 | 79 77 6f 72 64 70 20 22 41 6c 6c 20 6f 66 20 74 68 65 20 6e 61 6d 65 73 20 69 6e 20 60 25 73 27 | ywordp."All.of.the.names.in.`%s' |
| b660 | 20 73 68 6f 75 6c 64 20 62 65 20 6b 65 79 77 6f 72 64 73 22 20 6d 61 70 63 61 72 20 28 6c 61 6d | .should.be.keywords".mapcar.(lam |
| b680 | 62 64 61 20 28 6b 77 64 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 5c 6e 0b 5c 22 41 21 3f | bda.(kwd).(byte-code."..\n.\"A!? |
| b6a0 | 85 15 00 c4 c5 c6 5c 6e 21 c6 0e 07 21 23 87 22 20 5b 6e 75 6d 62 65 72 70 20 61 73 73 6f 63 20 | ......\n!...!#.".[numberp.assoc. |
| b6c0 | 6b 77 64 20 69 6e 64 69 63 65 73 20 65 72 72 6f 72 20 22 60 25 73 27 20 69 73 20 6e 6f 74 20 61 | kwd.indices.error."`%s'.is.not.a |
| b6e0 | 20 76 61 6c 69 64 20 73 6c 6f 74 20 6e 61 6d 65 20 66 6f 72 20 25 73 22 20 70 72 69 6e 31 2d 74 | .valid.slot.name.for.%s".prin1-t |
| b700 | 6f 2d 73 74 72 69 6e 67 20 6e 61 6d 65 5d 20 35 29 29 20 70 61 69 72 6c 69 73 20 70 74 72 20 76 | o-string.name].5)).pairlis.ptr.v |
| b720 | 61 6c 20 72 65 73 75 6c 74 20 65 6e 64 70 20 71 75 6f 74 65 20 6e 72 65 76 65 72 73 65 20 63 61 | al.result.endp.quote.nreverse.ca |
| b740 | 61 72 20 6b 65 79 20 65 76 61 6c 20 61 73 73 6f 63 20 61 70 70 6c 79 20 76 65 63 74 6f 72 5d 20 | ar.key.eval.assoc.apply.vector]. |
| b760 | 36 29 29 0a | 6)). |
 |
index : emacs | |
| [no description] | git repository hosting |
| summaryrefslogtreecommitdiff |
blob: 8586823a77509dd75475bf250760ee362eaae925 (plain)