|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: c
Length: 53720 (0xd1d8)
Names: »cl.elc«
└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
└─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z«
└─⟦fa971747f⟧
└─⟦this⟧ »dist-18.55/lisp/cl.elc«
0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 63 6c 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f ┆ (provide (quote cl)) (defmacro┆
0x0020…0040 20 70 73 65 74 71 20 28 26 72 65 73 74 20 70 61 69 72 73 29 20 22 28 70 73 65 74 71 20 7b 56 41 ┆ psetq (&rest pairs) "(psetq {VA┆
0x0040…0060 52 49 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 ┆RIABLE VALUE}...): In parallel, ┆
0x0060…0080 73 65 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 ┆set each VARIABLE to its VALUE. ┆
0x0080…00a0 41 6c 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 ┆All the VALUEs are evaluated, an┆
0x00a0…00c0 64 20 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 ┆d then all the VARIABLEs are set┆
0x00c0…00e0 2e 0a 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 ┆. Aside from order of evaluation┆
0x00e0…0100 2c 20 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 ┆, this is the same as `setq'." (┆
0x0100…0120 62 79 74 65 2d 63 6f 64 65 20 22 09 47 ce ce ce ce ce ce 1e 07 1e 06 1d 1c 1b 1a 18 cf d0 08 d1 ┆byte-code " G ┆
0x0120…0140 5c 22 d2 5c 22 85 1e 00 d3 d4 21 88 09 ce 1e 09 1e 08 0e 08 85 5b 00 0e 08 40 89 16 09 88 0e 09 ┆\" \" ! [ @ ┆
0x0140…0160 39 3f 85 3f 00 d3 d5 d6 0e 09 21 5c 22 88 0e 09 0a 42 89 12 88 0e 08 41 40 0b 42 89 13 88 0e 08 ┆9? ? !\" B A@ B ┆
0x0160…0180 41 41 89 16 08 88 82 25 00 2a 88 0b ce ce 1e 0b 1e 0a 1e 08 0e 08 85 93 00 0e 08 40 89 16 0a 88 ┆AA % * @ ┆
0x0180…01a0 d7 20 89 16 0b 88 0e 0b 0e 0a 44 0c 42 89 14 88 0e 0b 0d 42 89 15 88 0e 08 41 89 16 08 88 82 66 ┆ D B B A f┆
0x01a0…01c0 00 2b 88 d8 0d 21 89 15 88 0a 0d 1e 0d 1e 0c 0e 0c 85 c5 00 0e 0c 40 0e 0d 40 0e 06 42 42 89 16 ┆ + ! @ @ BB ┆
0x01c0…01e0 06 88 0e 0c 41 89 16 0c 88 0e 0d 41 89 16 0d 88 82 a1 00 2a 88 d9 0c da 0e 06 42 ce 46 2e 07 87 ┆ A A * B F. ┆
0x01e0…0200 22 20 5b 6e 66 6f 72 6d 73 20 70 61 69 72 73 20 73 79 6d 62 6f 6c 73 20 66 6f 72 6d 73 20 62 69 ┆" [nforms pairs symbols forms bi┆
0x0200…0220 6e 64 69 6e 67 73 20 6e 65 77 73 79 6d 73 20 61 73 73 69 67 6e 6d 65 6e 74 73 20 69 20 70 74 72 ┆ndings newsyms assignments i ptr┆
0x0220…0240 20 76 61 72 20 66 6f 72 6d 20 6e 65 77 73 79 6d 20 70 74 72 31 20 70 74 72 32 20 6e 69 6c 20 2f ┆ var form newsym ptr1 ptr2 nil /┆
0x0240…0260 3d 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 ┆= % 2 0 error "Odd number of arg┆
0x0260…0280 75 6d 65 6e 74 73 20 74 6f 20 60 70 73 65 74 71 27 22 20 22 60 70 73 65 74 71 27 20 65 78 70 65 ┆uments to `psetq'" "`psetq' expe┆
0x0280…02a0 63 74 65 64 20 61 20 73 79 6d 62 6f 6c 2c 20 66 6f 75 6e 64 20 27 25 73 27 2e 22 20 70 72 69 6e ┆cted a symbol, found '%s'." prin┆
0x02a0…02c0 31 2d 74 6f 2d 73 74 72 69 6e 67 20 67 65 6e 73 79 6d 20 6e 72 65 76 65 72 73 65 20 6c 65 74 20 ┆1-to-string gensym nreverse let ┆
0x02c0…02e0 73 65 74 71 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 70 61 69 72 2d 77 69 74 68 2d 6e 65 77 ┆setq] 11)) (defun pair-with-new┆
0x02e0…0300 73 79 6d 73 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 ┆syms (oldforms) "\ PAIR-WITH-NEW┆
0x0300…0320 53 59 4d 53 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 ┆SYMS OLDFORMS The top-level comp┆
0x0320…0340 6f 6e 65 6e 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 ┆onents of the list oldforms are ┆
0x0340…0360 70 61 69 72 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 ┆paired with fresh symbols, the p┆
0x0360…0380 61 69 72 69 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 ┆airings list and the newsyms lis┆
0x0380…03a0 74 20 61 72 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 09 c6 c6 ┆t are returned." (byte-code " ┆
0x03a0…03c0 1b 1a 18 c7 08 21 3f 85 2d 00 c8 20 1c 0c 08 40 44 0a 42 89 12 88 0c 0b 42 89 13 29 88 08 41 1d ┆ !? - @D B B ) A ┆
0x03c0…03e0 0d 89 10 88 c6 29 88 82 06 00 88 c9 ca 0a 21 ca 0b 21 5c 22 2b 87 22 20 5b 70 74 72 20 6f 6c 64 ┆ ) ! !\"+ " [ptr old┆
0x03e0…0400 66 6f 72 6d 73 20 62 69 6e 64 69 6e 67 73 20 6e 65 77 73 79 6d 73 20 6e 65 77 73 79 6d 20 47 24 ┆forms bindings newsyms newsym G$┆
0x0400…0420 24 5f 30 20 6e 69 6c 20 65 6e 64 70 20 67 65 6e 74 65 6d 70 20 76 61 6c 75 65 73 20 6e 72 65 76 ┆$_0 nil endp gentemp values nrev┆
0x0420…0440 65 72 73 65 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 7a 69 70 2d 6c 69 73 74 73 20 28 65 76 65 ┆erse] 7)) (defun zip-lists (eve┆
0x0440…0460 6e 73 20 6f 64 64 73 29 20 22 5c 0a 4d 65 72 67 65 20 74 77 6f 20 6c 69 73 74 73 20 45 56 45 4e ┆ns odds) "\ Merge two lists EVEN┆
0x0460…0480 53 20 61 6e 64 20 4f 44 44 53 2c 20 74 61 6b 69 6e 67 20 65 6c 74 73 20 66 72 6f 6d 20 65 61 63 ┆S and ODDS, taking elts from eac┆
0x0480…04a0 68 20 6c 69 73 74 20 61 6c 74 65 72 6e 61 74 69 6e 67 6c 79 2e 0a 45 56 45 4e 53 20 61 6e 64 20 ┆h list alternatingly. EVENS and ┆
0x04a0…04c0 4f 44 44 53 20 61 72 65 20 74 77 6f 20 6c 69 73 74 73 2e 20 20 5a 49 50 2d 4c 49 53 54 53 20 63 ┆ODDS are two lists. ZIP-LISTS c┆
0x04c0…04e0 6f 6e 73 74 72 75 63 74 73 20 61 20 6e 65 77 20 6c 69 73 74 2c 20 77 68 6f 73 65 0a 65 76 65 6e ┆onstructs a new list, whose even┆
0x04e0…0500 20 6e 75 6d 62 65 72 65 64 20 65 6c 65 6d 65 6e 74 73 20 28 30 2c 32 2c 2e 2e 2e 29 20 63 6f 6d ┆ numbered elements (0,2,...) com┆
0x0500…0520 65 20 66 72 6f 6d 20 45 56 45 4e 53 20 61 6e 64 20 77 68 6f 73 65 20 6f 64 64 0a 6e 75 6d 62 65 ┆e from EVENS and whose odd numbe┆
0x0520…0540 72 65 64 20 65 6c 65 6d 65 6e 74 73 20 28 31 2c 33 2c 2e 2e 2e 29 20 63 6f 6d 65 20 66 72 6f 6d ┆red elements (1,3,...) come from┆
0x0540…0560 20 4f 44 44 53 2e 20 0a 54 68 65 20 63 6f 6e 73 74 72 75 63 74 69 6f 6e 20 73 74 6f 70 73 20 77 ┆ ODDS. The construction stops w┆
0x0560…0580 68 65 6e 20 74 68 65 20 73 68 6f 72 74 65 72 20 6c 69 73 74 20 69 73 20 65 78 68 61 75 73 74 65 ┆hen the shorter list is exhauste┆
0x0580…05a0 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 18 0b 1a 08 40 1c 0a 40 1d c7 1e 06 c8 08 21 ┆d." (byte-code " @ @ !┆
0x05a0…05c0 86 16 00 c8 0a 21 3f 85 35 00 0d 0c 0e 06 42 42 89 16 06 88 08 41 10 0a 41 12 08 40 14 0a 40 89 ┆ !? 5 BB A A @ @ ┆
0x05c0…05e0 15 88 82 0d 00 88 c9 0e 06 21 2d 87 22 20 5b 70 30 20 65 76 65 6e 73 20 70 31 20 6f 64 64 73 20 ┆ !- " [p0 evens p1 odds ┆
0x05e0…0600 65 76 65 6e 20 6f 64 64 20 72 65 73 75 6c 74 20 6e 69 6c 20 65 6e 64 70 20 6e 72 65 76 65 72 73 ┆even odd result nil endp nrevers┆
0x0600…0620 65 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 75 6e 7a 69 70 2d 6c 69 73 74 20 28 6c 69 73 74 29 ┆e] 6)) (defun unzip-list (list)┆
0x0620…0640 20 22 5c 0a 45 78 74 72 61 63 74 20 65 76 65 6e 20 61 6e 64 20 6f 64 64 20 65 6c 65 6d 65 6e 74 ┆ "\ Extract even and odd element┆
0x0640…0660 73 20 6f 66 20 4c 49 53 54 20 69 6e 74 6f 20 74 77 6f 20 73 65 70 61 72 61 74 65 20 6c 69 73 74 ┆s of LIST into two separate list┆
0x0660…0680 73 2e 0a 54 68 65 20 61 72 67 75 6d 65 6e 74 20 4c 49 53 54 20 69 73 20 73 65 70 61 72 61 74 65 ┆s. The argument LIST is separate┆
0x0680…06a0 64 20 69 6e 20 74 77 6f 20 73 74 72 61 6e 64 73 2c 20 74 68 65 20 65 76 65 6e 20 61 6e 64 20 74 ┆d in two strands, the even and t┆
0x06a0…06c0 68 65 20 6f 64 64 0a 6e 75 6d 62 65 72 65 64 20 65 6c 65 6d 65 6e 74 73 2e 20 20 4e 75 6d 62 65 ┆he odd numbered elements. Numbe┆
0x06c0…06e0 72 69 6e 67 20 73 74 61 72 74 73 20 77 69 74 68 20 30 2c 20 73 6f 20 74 68 65 20 66 69 72 73 74 ┆ring starts with 0, so the first┆
0x06e0…0700 20 65 6c 65 6d 65 6e 74 0a 62 65 6c 6f 6e 67 73 20 69 6e 20 45 56 45 4e 53 2e 20 4e 6f 20 63 68 ┆ element belongs in EVENS. No ch┆
0x0700…0720 65 63 6b 20 69 73 20 6d 61 64 65 20 74 68 61 74 20 74 68 65 72 65 20 69 73 20 61 6e 20 65 76 65 ┆eck is made that there is an eve┆
0x0720…0740 6e 20 6e 75 6d 62 65 72 20 6f 66 0a 65 6c 65 6d 65 6e 74 73 20 74 6f 20 73 74 61 72 74 20 77 69 ┆n number of elements to start wi┆
0x0740…0760 74 68 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 18 08 40 1a c6 08 21 1b c7 1c c7 1d c8 08 ┆th." (byte-code " @ ! ┆
0x0760…0780 21 3f 85 30 00 0a 0c 42 89 14 88 0b 0d 42 89 15 88 c9 08 21 10 08 40 12 c6 08 21 89 13 88 82 0d ┆!? 0 B B ! @ ! ┆
0x0780…07a0 00 88 ca cb 0c 21 cb 0d 21 5c 22 2d 87 22 20 5b 70 74 72 20 6c 69 73 74 20 74 68 69 73 20 6e 65 ┆ ! !\"- " [ptr list this ne┆
0x07a0…07c0 78 74 20 65 76 65 6e 73 20 6f 64 64 73 20 63 61 64 72 20 6e 69 6c 20 65 6e 64 70 20 63 64 64 72 ┆xt evens odds cadr nil endp cddr┆
0x07c0…07e0 20 76 61 6c 75 65 73 20 6e 72 65 76 65 72 73 65 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 ┆ values nreverse] 9)) (defun re┆
0x07e0…0800 61 73 73 65 6d 62 6c 65 2d 61 72 67 73 6c 69 73 74 73 20 28 61 72 67 73 6c 69 73 74 73 29 20 22 ┆assemble-argslists (argslists) "┆
0x0800…0820 5c 0a 28 72 65 61 73 73 65 6d 62 6c 65 2d 61 72 67 73 6c 69 73 74 73 20 41 52 47 53 4c 49 53 54 ┆\ (reassemble-argslists ARGSLIST┆
0x0820…0840 53 29 2e 0a 41 52 47 53 4c 49 53 54 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 65 71 75 65 ┆S). ARGSLISTS is a list of seque┆
0x0840…0860 6e 63 65 73 2e 20 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 6c 69 73 74 73 2c 20 74 ┆nces. Return a list of lists, t┆
0x0860…0880 68 65 20 66 69 72 73 74 0a 73 75 62 6c 69 73 74 20 62 65 69 6e 67 20 61 6c 6c 20 74 68 65 20 65 ┆he first sublist being all the e┆
0x0880…08a0 6e 74 72 69 65 73 20 63 6f 6d 69 6e 67 20 66 72 6f 6d 20 45 4c 54 20 30 20 6f 66 20 74 68 65 20 ┆ntries coming from ELT 0 of the ┆
0x08a0…08c0 6f 72 69 67 69 6e 61 6c 0a 73 75 62 6c 69 73 74 73 2c 20 74 68 65 20 6e 65 78 74 20 74 68 6f 73 ┆original sublists, the next thos┆
0x08c0…08e0 65 20 63 6f 6d 69 6e 67 20 66 72 6f 6d 20 45 4c 54 20 31 20 61 6e 64 20 73 6f 20 6f 6e 2c 20 75 ┆e coming from ELT 1 and so on, u┆
0x08e0…0900 6e 74 69 6c 20 74 68 65 0a 73 68 6f 72 74 65 73 74 20 6c 69 73 74 20 69 73 20 65 78 68 61 75 73 ┆ntil the shortest list is exhaus┆
0x0900…0920 74 65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c5 c6 c7 c8 09 5c 22 5c 22 18 c9 1a 08 1b ┆ted." (byte-code " \"\" ┆
0x0920…0940 ca 1c 0c 0b 59 3f 85 27 00 c7 cb 09 5c 22 0a 42 89 12 88 0c cc 5c 5c 89 14 88 82 0e 00 88 cd 0a ┆ Y? ' \" B \\ ┆
0x0940…0960 21 29 29 2a 87 22 20 5b 6d 69 6e 6c 65 6e 20 61 72 67 73 6c 69 73 74 73 20 72 65 73 75 6c 74 20 ┆!))* " [minlen argslists result ┆
0x0960…0980 54 24 24 5f 32 20 69 20 61 70 70 6c 79 20 6d 69 6e 20 6d 61 70 63 61 72 20 6c 65 6e 67 74 68 20 ┆T$$_2 i apply min mapcar length ┆
0x0980…09a0 6e 69 6c 20 30 20 28 6c 61 6d 62 64 61 20 28 73 75 62 6c 69 73 74 29 20 28 62 79 74 65 2d 63 6f ┆nil 0 (lambda (sublist) (byte-co┆
0x09a0…09c0 64 65 20 22 c2 08 09 5c 22 87 22 20 5b 73 75 62 6c 69 73 74 20 69 20 65 6c 74 5d 20 33 29 29 20 ┆de " \" " [sublist i elt] 3)) ┆
0x09c0…09e0 31 20 6e 72 65 76 65 72 73 65 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 62 75 69 6c 64 2d 6b 6c ┆1 nreverse] 6)) (defun build-kl┆
0x09e0…0a00 69 73 74 20 28 61 72 67 73 6c 69 73 74 20 61 63 63 65 70 74 61 62 6c 65 29 20 22 5c 0a 44 65 63 ┆ist (argslist acceptable) "\ Dec┆
0x0a00…0a20 6f 64 65 20 61 20 6b 65 79 77 6f 72 64 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 41 52 47 53 ┆ode a keyword argument list ARGS┆
0x0a20…0a40 4c 49 53 54 20 66 6f 72 20 6b 65 79 77 6f 72 64 73 20 69 6e 20 41 43 43 45 50 54 41 42 4c 45 2e ┆LIST for keywords in ACCEPTABLE.┆
0x0a40…0a60 0a 41 52 47 53 4c 49 53 54 20 69 73 20 61 20 6c 69 73 74 2c 20 70 72 65 73 75 6d 61 62 6c 79 20 ┆ ARGSLIST is a list, presumably ┆
0x0a60…0a80 74 68 65 20 26 72 65 73 74 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 61 20 63 61 6c 6c 2c 20 77 68 ┆the &rest argument of a call, wh┆
0x0a80…0aa0 6f 73 65 0a 65 76 65 6e 20 6e 75 6d 62 65 72 65 64 20 65 6c 65 6d 65 6e 74 73 20 6d 75 73 74 20 ┆ose even numbered elements must ┆
0x0aa0…0ac0 62 65 20 6b 65 79 77 6f 72 64 73 2e 0a 41 43 43 45 50 54 41 42 4c 45 20 69 73 20 61 20 6c 69 73 ┆be keywords. ACCEPTABLE is a lis┆
0x0ac0…0ae0 74 20 6f 66 20 6b 65 79 77 6f 72 64 73 2c 20 74 68 65 20 6f 6e 6c 79 20 6f 6e 65 73 20 74 68 61 ┆t of keywords, the only ones tha┆
0x0ae0…0b00 74 20 61 72 65 20 74 72 75 6c 79 20 61 63 63 65 70 74 61 62 6c 65 2e 0a 54 68 65 20 72 65 73 75 ┆t are truly acceptable. The resu┆
0x0b00…0b20 6c 74 20 69 73 20 61 6e 20 61 6c 69 73 74 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 61 72 ┆lt is an alist containing the ar┆
0x0b20…0b40 67 75 6d 65 6e 74 73 20 6e 61 6d 65 64 20 62 79 20 74 68 65 20 6b 65 79 77 6f 72 64 73 0a 69 6e ┆guments named by the keywords in┆
0x0b40…0b60 20 41 43 43 45 50 54 41 42 4c 45 2c 20 6f 72 20 6e 69 6c 20 69 66 20 73 6f 6d 65 74 68 69 6e 67 ┆ ACCEPTABLE, or nil if something┆
0x0b60…0b80 20 66 61 69 6c 65 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3c 85 09 00 ce 08 47 21 83 ┆ failed." (byte-code " < G! ┆
0x0b80…0ba0 10 00 c1 82 13 00 cf d0 21 88 0a 3c 85 1d 00 d1 d2 0a 5c 22 83 24 00 c1 82 27 00 cf d3 21 88 c1 ┆ ! < \" $ ' ! ┆
0x0ba0…0bc0 89 14 88 d4 20 1d 0d d5 08 21 4c 88 0c 83 40 00 d6 0e 06 21 82 4f 00 d7 89 14 88 0d 4a 43 89 16 ┆ !L @ ! O JC ┆
0x0bc0…0be0 06 88 d6 0e 06 21 29 1b d7 0b 38 1e 07 d8 0b 38 1e 08 d1 d2 0e 08 5c 22 83 67 00 c1 82 6e 00 cf ┆ !) 8 8 \" g n ┆
0x0be0…0c00 d9 da 0e 08 21 5c 22 88 db 0e 08 0e 07 5c 22 1e 09 0a 1e 0a 0e 0a 40 1e 0b c1 1e 0c c1 1e 0d dc ┆ !\" \" @ ┆
0x0c00…0c20 0e 0a 21 3f 85 b6 00 dd 0e 0b 0e 09 5c 22 89 16 0c 3f 83 9e 00 c1 82 a6 00 0e 0c 0e 0d 42 89 16 ┆ !? \" ? B ┆
0x0c20…0c40 0d 88 0e 0a 41 16 0a 0e 0a 40 89 16 0b 88 82 85 00 88 0e 0d 2d 2b 87 22 20 5b 61 72 67 73 6c 69 ┆ A @ -+ " [argsli┆
0x0c40…0c60 73 74 20 6e 69 6c 20 61 63 63 65 70 74 61 62 6c 65 20 54 24 24 5f 33 20 2a 6d 76 61 6c 75 65 73 ┆st nil acceptable T$$_3 *mvalues┆
0x0c60…0c80 2d 63 6f 75 6e 74 2a 20 69 74 20 2a 6d 76 61 6c 75 65 73 2d 76 61 6c 75 65 73 2a 20 66 6f 72 6d ┆-count* it *mvalues-values* form┆
0x0c80…0ca0 73 20 6b 65 79 77 6f 72 64 73 20 61 75 78 6c 69 73 74 20 70 74 72 20 74 68 69 73 20 61 75 78 76 ┆s keywords auxlist ptr this auxv┆
0x0ca0…0cc0 61 6c 20 61 6c 69 73 74 20 65 76 65 6e 70 20 65 72 72 6f 72 20 22 4f 64 64 20 6e 75 6d 62 65 72 ┆al alist evenp error "Odd number┆
0x0cc0…0ce0 20 6f 66 20 6b 65 79 77 6f 72 64 2d 61 72 67 73 22 20 65 76 65 72 79 20 6b 65 79 77 6f 72 64 70 ┆ of keyword-args" every keywordp┆
0x0ce0…0d00 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 20 6f 66 ┆ "Second arg should be a list of┆
0x0d00…0d20 20 6b 65 79 77 6f 72 64 73 22 20 67 65 6e 73 79 6d 20 75 6e 7a 69 70 2d 6c 69 73 74 20 63 6f 70 ┆ keywords" gensym unzip-list cop┆
0x0d20…0d40 79 2d 73 65 71 75 65 6e 63 65 20 31 20 30 20 22 45 78 70 65 63 74 65 64 20 6b 65 79 77 6f 72 64 ┆y-sequence 1 0 "Expected keyword┆
0x0d40…0d60 73 2c 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 ┆s, found `%s'" prin1-to-string p┆
0x0d60…0d80 61 69 72 6c 69 73 20 65 6e 64 70 20 61 73 73 6f 63 5d 20 31 37 29 29 0a 0a 28 64 65 66 75 6e 20 ┆airlis endp assoc] 17)) (defun ┆
0x0d80…0da0 64 75 70 6c 69 63 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 ┆duplicate-symbols-p (list) "\ Fi┆
0x0da0…0dc0 6e 64 20 61 6c 6c 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 ┆nd all symbols appearing more th┆
0x0dc0…0de0 61 6e 20 6f 6e 63 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 ┆an once in LIST. Return a list o┆
0x0de0…0e00 66 20 61 6c 6c 20 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 ┆f all such duplicates; `nil' if ┆
0x0e00…0e20 74 68 65 72 65 20 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 ┆there are no duplicates." (byte-┆
0x0e20…0e40 63 6f 64 65 20 22 c3 c5 20 19 18 0a 3c 85 0e 00 c6 c7 0a 5c 22 83 15 00 c3 82 18 00 c8 c9 21 88 ┆code " < \" ! ┆
0x0e40…0e60 ca cb 0a 5c 22 88 c3 1c c3 29 88 ca cc 0a 5c 22 88 c3 1c c3 29 88 ca cd 0a 5c 22 88 c3 1c c3 29 ┆ \" ) \" ) \" )┆
0x0e60…0e80 88 08 2a 87 22 20 5b 64 75 70 6c 69 63 61 74 65 73 20 70 72 6f 70 6e 61 6d 65 20 6c 69 73 74 20 ┆ * " [duplicates propname list ┆
0x0e80…0ea0 6e 69 6c 20 78 20 67 65 6e 73 79 6d 20 65 76 65 72 79 20 73 79 6d 62 6f 6c 70 20 65 72 72 6f 72 ┆nil x gensym every symbolp error┆
0x0ea0…0ec0 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 65 64 22 20 6d ┆ "A list of symbols is needed" m┆
0x0ec0…0ee0 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 ┆apcar (lambda (x) (byte-code " ┆
0x0ee0…0f00 09 c3 23 87 22 20 5b 78 20 70 72 6f 70 6e 61 6d 65 20 70 75 74 20 30 5d 20 34 29 29 20 28 6c 61 ┆ # " [x propname put 0] 4)) (la┆
0x0f00…0f20 6d 62 64 61 20 28 78 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 08 09 08 09 4e 54 23 87 22 20 ┆mbda (x) (byte-code " NT# " ┆
0x0f20…0f40 5b 78 20 70 72 6f 70 6e 61 6d 65 20 70 75 74 5d 20 35 29 29 20 28 6c 61 6d 62 64 61 20 28 78 29 ┆[x propname put] 5)) (lambda (x)┆
0x0f40…0f60 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 09 4e c3 56 85 0d 00 08 0a 42 89 12 87 22 20 5b 78 20 ┆ (byte-code " N V B " [x ┆
0x0f60…0f80 70 72 6f 70 6e 61 6d 65 20 64 75 70 6c 69 63 61 74 65 73 20 31 5d 20 32 29 29 5d 20 38 29 29 0a ┆propname duplicates 1] 2))] 8)) ┆
0x0f80…0fa0 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 26 6f 70 74 69 6f 6e ┆ (defmacro defkeyword (x &option┆
0x0fa0…0fc0 61 6c 20 64 6f 63 73 74 72 69 6e 67 29 20 22 4d 61 6b 65 20 73 79 6d 62 6f 6c 20 58 20 61 20 6b ┆al docstring) "Make symbol X a k┆
0x0fc0…0fe0 65 79 77 6f 72 64 20 28 73 79 6d 62 6f 6c 20 77 68 6f 73 65 20 76 61 6c 75 65 20 69 73 20 69 74 ┆eyword (symbol whose value is it┆
0x0fe0…1000 73 65 6c 66 29 2e 0a 4f 70 74 69 6f 6e 61 6c 20 73 65 63 6f 6e 64 20 61 72 67 75 6d 65 6e 74 20 ┆self). Optional second argument ┆
0x1000…1020 69 73 20 61 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 20 66 6f 72 20 69 74 ┆is a documentation string for it┆
0x1020…1040 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 39 83 0e 00 c2 08 c3 08 44 45 82 14 00 c4 c5 c6 ┆." (byte-code " 9 DE ┆
0x1040…1060 08 21 5c 22 87 22 20 5b 78 20 74 20 64 65 66 63 6f 6e 73 74 20 71 75 6f 74 65 20 65 72 72 6f 72 ┆ !\" " [x t defconst quote error┆
0x1060…1080 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 6e 31 2d 74 6f ┆ "`%s' is not a symbol" prin1-to┆
0x1080…10a0 2d 73 74 72 69 6e 67 5d 20 34 29 29 0a 0a 28 64 65 66 75 6e 20 6b 65 79 77 6f 72 64 70 20 28 73 ┆-string] 4)) (defun keywordp (s┆
0x10a0…10c0 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 61 20 6b 65 ┆ym) "\ Return `t' if SYM is a ke┆
0x10c0…10e0 79 77 6f 72 64 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 39 85 0d 00 c3 c4 08 21 c5 48 c6 ┆yword." (byte-code " 9 ! H ┆
0x10e0…1100 5c 22 83 16 00 08 08 4c 82 17 00 c2 87 22 20 5b 73 79 6d 20 74 20 6e 69 6c 20 63 68 61 72 2d 65 ┆\" L " [sym t nil char-e┆
0x1100…1120 71 75 61 6c 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 30 20 35 38 5d 20 34 29 29 0a 0a 28 64 65 66 ┆qual symbol-name 0 58] 4)) (def┆
0x1120…1140 75 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 ┆un keyword-of (sym) "\ Return a ┆
0x1140…1160 6b 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 ┆keyword that is naturally associ┆
0x1160…1180 61 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 ┆ated with symbol SYM. If SYM is ┆
0x1180…11a0 6b 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 ┆keyword, the value is SYM. Other┆
0x11a0…11c0 77 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 ┆wise it is a keyword whose name ┆
0x11c0…11e0 69 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 ┆is `:' followed by SYM's name." ┆
0x11e0…1200 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 08 21 83 0a 00 08 82 24 00 08 39 83 1e 00 c4 c5 c6 08 21 ┆(byte-code " ! $ 9 !┆
0x1200…1220 50 21 19 09 09 4c 29 82 24 00 c7 c8 c9 08 21 5c 22 87 22 20 5b 73 79 6d 20 6e 65 77 73 79 6d 20 ┆P! L) $ !\" " [sym newsym ┆
0x1220…1240 74 20 6b 65 79 77 6f 72 64 70 20 69 6e 74 65 72 6e 20 22 3a 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d ┆t keywordp intern ":" symbol-nam┆
0x1240…1260 65 20 65 72 72 6f 72 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 ┆e error "Expected a symbol, not ┆
0x1260…1280 60 25 73 27 22 20 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 37 29 29 0a 0a 28 64 65 66 ┆`%s'" prin1-to-string] 7)) (def┆
0x1280…12a0 76 61 72 20 2a 67 65 6e 74 65 6d 70 2d 69 6e 64 65 78 2a 20 30 20 22 5c 0a 49 6e 74 65 67 65 72 ┆var *gentemp-index* 0 "\ Integer┆
0x12a0…12c0 20 75 73 65 64 20 62 79 20 67 65 6e 74 65 6d 70 20 74 6f 20 70 72 6f 64 75 63 65 20 6e 65 77 20 ┆ used by gentemp to produce new ┆
0x12c0…12e0 6e 61 6d 65 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 67 65 6e 74 65 6d 70 2d 70 72 65 66 69 ┆names.") (defvar *gentemp-prefi┆
0x12e0…1300 78 2a 20 22 54 24 24 5f 22 20 22 5c 0a 4e 61 6d 65 73 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 ┆x* "T$$_" "\ Names generated by ┆
0x1300…1320 67 65 6e 74 65 6d 70 20 62 65 67 69 6e 20 77 69 74 68 20 74 68 69 73 20 73 74 72 69 6e 67 20 62 ┆gentemp begin with this string b┆
0x1320…1340 79 20 64 65 66 61 75 6c 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 67 65 6e 74 65 6d 70 20 28 26 6f ┆y default.") (defun gentemp (&o┆
0x1340…1360 70 74 69 6f 6e 61 6c 20 70 72 65 66 69 78 20 6f 62 6c 69 73 74 29 20 22 5c 0a 47 65 6e 65 72 61 ┆ptional prefix oblist) "\ Genera┆
0x1360…1380 74 65 20 61 20 66 72 65 73 68 20 69 6e 74 65 72 6e 65 64 20 73 79 6d 62 6f 6c 2e 0a 54 68 65 72 ┆te a fresh interned symbol. Ther┆
0x1380…13a0 65 20 61 72 65 20 32 20 6f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 73 2c 20 50 52 45 46 ┆e are 2 optional arguments, PREF┆
0x13a0…13c0 49 58 20 61 6e 64 20 4f 42 4c 49 53 54 2e 20 20 50 52 45 46 49 58 20 69 73 20 74 68 65 0a 73 74 ┆IX and OBLIST. PREFIX is the st┆
0x13c0…13e0 72 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 2c 20 4f ┆ring that begins the new name, O┆
0x13e0…1400 42 4c 49 53 54 20 69 73 20 74 68 65 20 6f 62 61 72 72 61 79 20 75 73 65 64 20 74 6f 20 73 65 61 ┆BLIST is the obarray used to sea┆
0x1400…1420 72 63 68 20 66 6f 72 0a 6f 6c 64 20 6e 61 6d 65 73 2e 20 20 54 68 65 20 64 65 66 61 75 6c 74 73 ┆rch for old names. The defaults┆
0x1420…1440 20 61 72 65 20 6a 75 73 74 20 72 69 67 68 74 2c 20 59 4f 55 20 53 48 4f 55 4c 44 20 4e 45 56 45 ┆ are just right, YOU SHOULD NEVE┆
0x1440…1460 52 20 4e 45 45 44 20 54 48 45 53 45 0a 41 52 47 55 4d 45 4e 54 53 20 49 4e 20 59 4f 55 52 20 4f ┆R NEED THESE ARGUMENTS IN YOUR O┆
0x1460…1480 57 4e 20 43 4f 44 45 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3f 85 08 00 09 89 10 88 0a ┆WN CODE." (byte-code " ? ┆
0x1480…14a0 3f 85 11 00 0b 89 12 88 c5 c5 1e 06 1c 0c 3f 85 40 00 08 0e 07 50 89 16 06 88 0e 07 c8 5c 5c 89 ┆? ? @ P \\ ┆
0x14a0…14c0 16 07 88 c9 0e 06 0a 5c 22 3f 85 3c 00 ca 0e 06 0a 5c 22 89 14 88 82 17 00 88 0c 2a 87 22 20 5b ┆ \"? < \" * " [┆
0x14c0…14e0 70 72 65 66 69 78 20 2a 67 65 6e 74 65 6d 70 2d 70 72 65 66 69 78 2a 20 6f 62 6c 69 73 74 20 6f ┆prefix *gentemp-prefix* oblist o┆
0x14e0…1500 62 61 72 72 61 79 20 6e 65 77 73 79 6d 62 6f 6c 20 6e 69 6c 20 6e 65 77 6e 61 6d 65 20 2a 67 65 ┆barray newsymbol nil newname *ge┆
0x1500…1520 6e 74 65 6d 70 2d 69 6e 64 65 78 2a 20 31 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 69 6e 74 65 72 ┆ntemp-index* 1 intern-soft inter┆
0x1520…1540 6e 5d 20 35 29 29 0a 0a 28 64 65 66 76 61 72 20 2a 67 65 6e 73 79 6d 2d 69 6e 64 65 78 2a 20 30 ┆n] 5)) (defvar *gensym-index* 0┆
0x1540…1560 20 22 5c 0a 49 6e 74 65 67 65 72 20 75 73 65 64 20 62 79 20 67 65 6e 73 79 6d 20 74 6f 20 70 72 ┆ "\ Integer used by gensym to pr┆
0x1560…1580 6f 64 75 63 65 20 6e 65 77 20 6e 61 6d 65 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 2a 67 65 6e ┆oduce new names.") (defvar *gen┆
0x1580…15a0 73 79 6d 2d 70 72 65 66 69 78 2a 20 22 47 24 24 5f 22 20 22 5c 0a 4e 61 6d 65 73 20 67 65 6e 65 ┆sym-prefix* "G$$_" "\ Names gene┆
0x15a0…15c0 72 61 74 65 64 20 62 79 20 67 65 6e 73 79 6d 20 62 65 67 69 6e 20 77 69 74 68 20 74 68 69 73 20 ┆rated by gensym begin with this ┆
0x15c0…15e0 73 74 72 69 6e 67 20 62 79 20 64 65 66 61 75 6c 74 2e 22 29 0a 0a 28 64 65 66 75 6e 20 67 65 6e ┆string by default.") (defun gen┆
0x15e0…1600 73 79 6d 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 65 66 69 78 29 20 22 5c 0a 47 65 6e 65 72 61 ┆sym (&optional prefix) "\ Genera┆
0x1600…1620 74 65 20 61 20 66 72 65 73 68 20 75 6e 69 6e 74 65 72 6e 65 64 20 73 79 6d 62 6f 6c 2e 0a 54 68 ┆te a fresh uninterned symbol. Th┆
0x1620…1640 65 72 65 20 69 73 20 61 6e 20 20 6f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 2c 20 50 52 ┆ere is an optional argument, PR┆
0x1640…1660 45 46 49 58 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 ┆EFIX. PREFIX is the string that┆
0x1660…1680 20 62 65 67 69 6e 73 20 74 68 65 20 6e 65 77 20 6e 61 6d 65 2e 20 4d 6f 73 74 20 70 65 6f 70 6c ┆ begins the new name. Most peopl┆
0x1680…16a0 65 20 74 61 6b 65 20 6a 75 73 74 20 74 68 65 20 64 65 66 61 75 6c 74 2c 0a 65 78 63 65 70 74 20 ┆e take just the default, except ┆
0x16a0…16c0 77 68 65 6e 20 64 65 62 75 67 67 69 6e 67 20 6e 65 65 64 73 20 73 75 67 67 65 73 74 20 6f 74 68 ┆when debugging needs suggest oth┆
0x16c0…16e0 65 72 77 69 73 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 3f 85 08 00 09 89 10 88 c3 c6 ┆erwise." (byte-code " ? ┆
0x16e0…1700 1c 1a 0a 3f 85 2e 00 08 0d 50 89 14 88 0d c7 5c 5c 89 15 88 c8 0c 21 3f 85 2a 00 c9 0c 21 89 12 ┆ ? . P \\ !? * ! ┆
0x1700…1720 88 82 0d 00 88 0a 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 78 ┆ * " [prefix *gensym-prefix┆
0x1720…1740 2a 20 6e 65 77 73 79 6d 62 6f 6c 20 6e 69 6c 20 6e 65 77 6e 61 6d 65 20 2a 67 65 6e 73 79 6d 2d ┆* newsymbol nil newname *gensym-┆
0x1740…1760 69 6e 64 65 78 2a 20 22 22 20 31 20 69 6e 74 65 72 6e 2d 73 6f 66 74 20 6d 61 6b 65 2d 73 79 6d ┆index* "" 1 intern-soft make-sym┆
0x1760…1780 62 6f 6c 5d 20 35 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 63 61 73 65 29 20 28 71 75 6f ┆bol] 5)) (put (quote case) (quo┆
0x1780…17a0 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74 20 28 71 ┆te lisp-indent-hook) 1) (put (q┆
0x17a0…17c0 75 6f 74 65 20 65 63 61 73 65 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 ┆uote ecase) (quote lisp-indent-h┆
0x17c0…17e0 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 77 68 65 6e 29 20 28 71 75 6f 74 ┆ook) 1) (put (quote when) (quot┆
0x17e0…1800 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 29 20 31 29 0a 0a 28 70 75 74 20 28 71 75 ┆e lisp-indent-hook) 1) (put (qu┆
0x1800…1820 6f 74 65 20 75 6e 6c 65 73 73 29 20 28 71 75 6f 74 65 20 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 68 ┆ote unless) (quote lisp-indent-h┆
0x1820…1840 6f 6f 6b 29 20 31 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 77 68 65 6e 20 28 63 6f 6e 64 69 74 69 ┆ook) 1) (defmacro when (conditi┆
0x1840…1860 6f 6e 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 28 77 68 65 6e 20 43 4f 4e 44 49 54 49 4f 4e 20 ┆on &rest body) "(when CONDITION ┆
0x1860…1880 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 66 20 43 4f 4e 44 ┆. BODY) => evaluate BODY if COND┆
0x1880…18a0 49 54 49 4f 4e 20 69 73 20 74 72 75 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 c4 08 ┆ITION is true." (byte-code " ┆
0x18a0…18c0 44 c5 09 24 87 22 20 5b 63 6f 6e 64 69 74 69 6f 6e 20 62 6f 64 79 20 6c 69 73 74 2a 20 69 66 20 ┆D $ " [condition body list* if ┆
0x18c0…18e0 6e 6f 74 20 6e 69 6c 5d 20 35 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 75 6e 6c 65 73 73 20 28 ┆not nil] 5)) (defmacro unless (┆
0x18e0…1900 63 6f 6e 64 69 74 69 6f 6e 20 26 72 65 73 74 20 62 6f 64 79 29 20 22 28 75 6e 6c 65 73 73 20 43 ┆condition &rest body) "(unless C┆
0x1900…1920 4f 4e 44 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 ┆ONDITION . BODY) => evaluate BOD┆
[…truncated at 200 lines…]