/ Gold Fish 3 / goldfish_volume_3.bin / files / util / edit / jade / lisp / lisp.jlc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 3b 20 53 6f 75 72 | 63 65 20 66 69 6c 65 3a |;;; Sour|ce file:|
|00000010| 20 2f 75 73 72 2f 6c 6f | 63 61 6c 2f 6c 69 62 2f | /usr/lo|cal/lib/|
|00000020| 6a 61 64 65 2f 33 2e 32 | 2f 6c 69 73 70 2f 6c 69 |jade/3.2|/lisp/li|
|00000030| 73 70 2e 6a 6c 0a 3b 3b | 3b 20 43 6f 6d 70 69 6c |sp.jl.;;|; Compil|
|00000040| 65 64 20 62 79 20 6a 73 | 68 40 6f 72 63 72 69 73 |ed by js|h@orcris|
|00000050| 74 20 6f 6e 20 53 75 6e | 20 4f 63 74 20 31 36 20 |t on Sun| Oct 16 |
|00000060| 32 30 3a 32 30 3a 35 38 | 20 31 39 39 34 0a 3b 3b |20:20:58| 1994.;;|
|00000070| 3b 20 4a 61 64 65 20 33 | 2e 32 0a 0a 28 64 65 66 |; Jade 3|.2..(def|
|00000080| 76 61 72 20 66 65 61 74 | 75 72 65 73 20 6e 69 6c |var feat|ures nil|
|00000090| 20 38 32 30 39 38 29 0a | 0a 28 64 65 66 75 6e 20 | 82098).|.(defun |
|000000a0| 72 65 71 75 69 72 65 20 | 28 66 65 61 74 75 72 65 |require |(feature|
|000000b0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 66 69 6c 65 29 | &option|al file)|
|000000c0| 20 38 32 32 34 30 20 28 | 6a 61 64 65 2d 62 79 74 | 82240 (|jade-byt|
|000000d0| 65 2d 63 6f 64 65 20 22 | 18 19 88 ff 00 0f 12 1b |e-code "|........|
|000000e0| ff 00 0e 14 18 09 09 22 | 20 5b 66 65 61 74 75 72 |......."| [featur|
|000000f0| 65 20 66 65 61 74 75 72 | 65 73 20 6c 6f 61 64 20 |e featur|es load |
|00000100| 66 69 6c 65 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |file sym|bol-name|
|00000110| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 70 72 |] 3))..(|defun pr|
|00000120| 6f 76 69 64 65 20 28 66 | 65 61 74 75 72 65 29 20 |ovide (f|eature) |
|00000130| 38 32 33 37 33 20 28 6a | 61 64 65 2d 62 79 74 65 |82373 (j|ade-byte|
|00000140| 2d 63 6f 64 65 20 22 18 | 19 88 ff 00 0b 18 19 4b |-code ".|.......K|
|00000150| 46 21 22 20 5b 66 65 61 | 74 75 72 65 20 66 65 61 |F!" [fea|ture fea|
|00000160| 74 75 72 65 73 5d 20 32 | 29 29 0a 0a 28 64 65 66 |tures] 2|))..(def|
|00000170| 75 6e 20 66 65 61 74 75 | 72 65 70 20 28 66 65 61 |un featu|rep (fea|
|00000180| 74 75 72 65 29 20 38 32 | 34 33 31 20 28 6a 61 64 |ture) 82|431 (jad|
|00000190| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 18 19 88 |e-byte-c|ode "...|
|000001a0| 22 20 5b 66 65 61 74 75 | 72 65 20 66 65 61 74 75 |" [featu|re featu|
|000001b0| 72 65 73 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |res] 2))|..(defun|
|000001c0| 20 61 75 74 6f 6c 6f 61 | 64 20 28 73 79 6d 62 6f | autoloa|d (symbo|
|000001d0| 6c 20 26 72 65 73 74 20 | 61 75 74 6f 6c 6f 61 64 |l &rest |autoload|
|000001e0| 2d 64 65 66 6e 29 20 38 | 32 34 39 30 20 28 6a 61 |-defn) 8|2490 (ja|
|000001f0| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 10 19 |de-byte-|code "..|
|00000200| 4b 46 1a 43 22 20 5b 61 | 75 74 6f 6c 6f 61 64 20 |KF.C" [a|utoload |
|00000210| 61 75 74 6f 6c 6f 61 64 | 2d 64 65 66 6e 20 73 79 |autoload|-defn sy|
|00000220| 6d 62 6f 6c 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |mbol] 3)|)..(defu|
|00000230| 6e 20 61 64 64 2d 68 6f | 6f 6b 20 28 68 6f 6f 6b |n add-ho|ok (hook|
|00000240| 2d 73 79 6d 62 6f 6c 20 | 6e 65 77 2d 66 75 6e 63 |-symbol |new-func|
|00000250| 20 26 6f 70 74 69 6f 6e | 61 6c 20 61 74 2d 65 6e | &option|al at-en|
|00000260| 64 29 20 38 32 38 34 36 | 20 28 6a 61 64 65 2d 62 |d) 82846| (jade-b|
|00000270| 79 74 65 2d 63 6f 64 65 | 20 22 18 78 ff 00 09 49 |yte-code| ".x...I|
|00000280| 46 18 41 48 19 fc 00 1c | 12 13 18 09 1c 49 4b 0a |F.AH....|.....IK.|
|00000290| 46 18 41 fb 00 24 1c 13 | 18 09 4b 46 18 41 22 20 |F.A..$..|..KF.A" |
|000002a0| 5b 68 6f 6f 6b 2d 73 79 | 6d 62 6f 6c 20 61 74 2d |[hook-sy|mbol at-|
|000002b0| 65 6e 64 20 6e 63 6f 6e | 63 20 73 79 6d 62 6f 6c |end ncon|c symbol|
|000002c0| 2d 76 61 6c 75 65 20 6e | 65 77 2d 66 75 6e 63 5d |-value n|ew-func]|
|000002d0| 20 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 72 65 6d | 4))..(d|efun rem|
|000002e0| 6f 76 65 2d 68 6f 6f 6b | 20 28 68 6f 6f 6b 2d 73 |ove-hook| (hook-s|
|000002f0| 79 6d 62 6f 6c 20 6f 6c | 64 2d 66 75 6e 63 29 20 |ymbol ol|d-func) |
|00000300| 38 33 30 33 37 20 28 6a | 61 64 65 2d 62 79 74 65 |83037 (j|ade-byte|
|00000310| 2d 63 6f 64 65 20 22 18 | 11 1a 09 8a 46 1a 41 22 |-code ".|....F.A"|
|00000320| 20 5b 6f 6c 64 2d 66 75 | 6e 63 20 73 79 6d 62 6f | [old-fu|nc symbo|
|00000330| 6c 2d 76 61 6c 75 65 20 | 68 6f 6f 6b 2d 73 79 6d |l-value |hook-sym|
|00000340| 62 6f 6c 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |bol] 3))|..(defun|
|00000350| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00000360| 20 28 61 72 67 29 20 38 | 33 30 38 35 20 28 6a 61 | (arg) 8|3085 (ja|
|00000370| 64 65 2d 62 79 74 65 2d | 63 6f 64 65 20 22 10 49 |de-byte-|code ".I|
|00000380| 11 1a 0b 22 20 5b 66 6f | 72 6d 61 74 20 22 25 53 |..." [fo|rmat "%S|
|00000390| 22 20 61 72 67 5d 20 34 | 29 29 0a 0a 28 64 65 66 |" arg] 4|))..(def|
|000003a0| 75 6e 20 72 65 61 64 2d | 66 72 6f 6d 2d 73 74 72 |un read-|from-str|
|000003b0| 69 6e 67 20 28 73 74 72 | 69 6e 67 20 26 6f 70 74 |ing (str|ing &opt|
|000003c0| 69 6f 6e 61 6c 20 73 74 | 61 72 74 29 20 38 33 31 |ional st|art) 831|
|000003d0| 32 32 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |22 (jade|-byte-co|
|000003e0| 64 65 20 22 10 11 1a 1b | 0a 09 22 20 5b 72 65 61 |de "....|.." [rea|
|000003f0| 64 20 6d 61 6b 65 2d 73 | 74 72 69 6e 67 2d 69 6e |d make-s|tring-in|
|00000400| 70 75 74 2d 73 74 72 65 | 61 6d 20 73 74 72 69 6e |put-stre|am strin|
|00000410| 67 20 73 74 61 72 74 5d | 20 34 29 29 0a 0a 28 64 |g start]| 4))..(d|
|00000420| 65 66 6d 61 63 72 6f 20 | 73 65 74 63 61 72 20 28 |efmacro |setcar (|
|00000430| 26 72 65 73 74 20 61 72 | 67 73 29 20 28 6a 61 64 |&rest ar|gs) (jad|
|00000440| 65 2d 62 79 74 65 2d 63 | 6f 64 65 20 22 10 19 4b |e-byte-c|ode "..K|
|00000450| 22 20 5b 72 70 6c 61 63 | 61 20 61 72 67 73 5d 20 |" [rplac|a args] |
|00000460| 32 29 29 0a 0a 28 64 65 | 66 6d 61 63 72 6f 20 73 |2))..(de|fmacro s|
|00000470| 65 74 63 64 72 20 28 26 | 72 65 73 74 20 61 72 67 |etcdr (&|rest arg|
|00000480| 73 29 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |s) (jade|-byte-co|
|00000490| 64 65 20 22 10 19 4b 22 | 20 5b 72 70 6c 61 63 64 |de "..K"| [rplacd|
|000004a0| 20 61 72 67 73 5d 20 32 | 29 29 0a 0a 28 64 65 66 | args] 2|))..(def|
|000004b0| 6d 61 63 72 6f 20 73 74 | 72 69 6e 67 3d 20 28 26 |macro st|ring= (&|
|000004c0| 72 65 73 74 20 61 72 67 | 73 29 20 28 6a 61 64 65 |rest arg|s) (jade|
|000004d0| 2d 62 79 74 65 2d 63 6f | 64 65 20 22 10 19 4b 22 |-byte-co|de "..K"|
|000004e0| 20 5b 65 71 75 61 6c 20 | 61 72 67 73 5d 20 32 29 | [equal |args] 2)|
|000004f0| 29 0a 0a 28 66 73 65 74 | 20 28 71 75 6f 74 65 20 |)..(fset| (quote |
|00000500| 73 74 72 69 6e 67 2d 65 | 71 75 61 6c 2d 70 29 20 |string-e|qual-p) |
|00000510| 28 73 79 6d 62 6f 6c 2d | 66 75 6e 63 74 69 6f 6e |(symbol-|function|
|00000520| 20 28 71 75 6f 74 65 20 | 73 74 72 69 6e 67 3d 29 | (quote |string=)|
|00000530| 29 29 0a 0a 28 64 65 66 | 6d 61 63 72 6f 20 73 74 |))..(def|macro st|
|00000540| 72 69 6e 67 3c 20 28 26 | 72 65 73 74 20 61 72 67 |ring< (&|rest arg|
|00000550| 73 29 20 28 6a 61 64 65 | 2d 62 79 74 65 2d 63 6f |s) (jade|-byte-co|
|00000560| 64 65 20 22 10 19 4b 22 | 20 5b 3c 20 61 72 67 73 |de "..K"| [< args|
|00000570| 5d 20 32 29 29 0a 0a 28 | 66 73 65 74 20 28 71 75 |] 2))..(|fset (qu|
|00000580| 6f 74 65 20 73 74 72 69 | 6e 67 2d 6c 65 73 73 2d |ote stri|ng-less-|
|00000590| 70 29 20 28 73 79 6d 62 | 6f 6c 2d 66 75 6e 63 74 |p) (symb|ol-funct|
|000005a0| 69 6f 6e 20 28 71 75 6f | 74 65 20 73 74 72 69 6e |ion (quo|te strin|
|000005b0| 67 3c 29 29 29 0a 0a 28 | 64 65 66 75 6e 20 65 72 |g<)))..(|defun er|
|000005c0| 72 6f 72 20 28 26 72 65 | 73 74 20 61 72 67 73 29 |ror (&re|st args)|
|000005d0| 20 28 6a 61 64 65 2d 62 | 79 74 65 2d 63 6f 64 65 | (jade-b|yte-code|
|000005e0| 20 22 10 11 12 49 1b 0b | 29 7d 22 20 5b 65 72 72 | "...I..|)}" [err|
|000005f0| 6f 72 20 61 70 70 6c 79 | 20 66 6f 72 6d 61 74 20 |or apply| format |
|00000600| 61 72 67 73 5d 20 35 29 | 29 0a 0a 28 64 65 66 75 |args] 5)|)..(defu|
|00000610| 6e 20 65 76 61 6c 2d 61 | 6e 64 2d 70 72 69 6e 74 |n eval-a|nd-print|
|00000620| 20 28 66 6f 72 6d 29 20 | 38 33 32 30 32 20 28 69 | (form) |83202 (i|
|00000630| 6e 74 65 72 61 63 74 69 | 76 65 20 22 78 45 76 61 |nteracti|ve "xEva|
|00000640| 6c 3a 20 22 29 20 28 6a | 61 64 65 2d 62 79 74 65 |l: ") (j|ade-byte|
|00000650| 2d 63 6f 64 65 20 22 10 | 19 55 4a 0a 22 20 5b 70 |-code ".|.UJ." [p|
|00000660| 72 69 6e 31 20 66 6f 72 | 6d 5d 20 33 29 29 0a    |rin1 for|m] 3)). |
+--------+-------------------------+-------------------------+--------+--------+