Artifact
40bdd959b6407019d40bcdc226e7233698d377df:
0000: 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 ;; Copyright (c)
0010: 20 32 30 30 39 20 44 65 72 69 63 6b 20 45 64 64 2009 Derick Edd
0020: 69 6e 67 74 6f 6e 0a 3b 3b 0a 3b 3b 20 50 65 72 ington.;;.;; Per
0030: 6d 69 73 73 69 6f 6e 20 69 73 20 68 65 72 65 62 mission is hereb
0040: 79 20 67 72 61 6e 74 65 64 2c 20 66 72 65 65 20 y granted, free
0050: 6f 66 20 63 68 61 72 67 65 2c 20 74 6f 20 61 6e of charge, to an
0060: 79 20 70 65 72 73 6f 6e 20 6f 62 74 61 69 6e 69 y person obtaini
0070: 6e 67 20 61 0a 3b 3b 20 63 6f 70 79 20 6f 66 20 ng a.;; copy of
0080: 74 68 69 73 20 73 6f 66 74 77 61 72 65 20 61 6e this software an
0090: 64 20 61 73 73 6f 63 69 61 74 65 64 20 64 6f 63 d associated doc
00a0: 75 6d 65 6e 74 61 74 69 6f 6e 20 66 69 6c 65 73 umentation files
00b0: 20 28 74 68 65 20 22 53 6f 66 74 77 61 72 65 22 (the "Software"
00c0: 29 2c 0a 3b 3b 20 74 6f 20 64 65 61 6c 20 69 6e ),.;; to deal in
00d0: 20 74 68 65 20 53 6f 66 74 77 61 72 65 20 77 69 the Software wi
00e0: 74 68 6f 75 74 20 72 65 73 74 72 69 63 74 69 6f thout restrictio
00f0: 6e 2c 20 69 6e 63 6c 75 64 69 6e 67 20 77 69 74 n, including wit
0100: 68 6f 75 74 20 6c 69 6d 69 74 61 74 69 6f 6e 0a hout limitation.
0110: 3b 3b 20 74 68 65 20 72 69 67 68 74 73 20 74 6f ;; the rights to
0120: 20 75 73 65 2c 20 63 6f 70 79 2c 20 6d 6f 64 69 use, copy, modi
0130: 66 79 2c 20 6d 65 72 67 65 2c 20 70 75 62 6c 69 fy, merge, publi
0140: 73 68 2c 20 64 69 73 74 72 69 62 75 74 65 2c 20 sh, distribute,
0150: 73 75 62 6c 69 63 65 6e 73 65 2c 0a 3b 3b 20 61 sublicense,.;; a
0160: 6e 64 2f 6f 72 20 73 65 6c 6c 20 63 6f 70 69 65 nd/or sell copie
0170: 73 20 6f 66 20 74 68 65 20 53 6f 66 74 77 61 72 s of the Softwar
0180: 65 2c 20 61 6e 64 20 74 6f 20 70 65 72 6d 69 74 e, and to permit
0190: 20 70 65 72 73 6f 6e 73 20 74 6f 20 77 68 6f 6d persons to whom
01a0: 20 74 68 65 0a 3b 3b 20 53 6f 66 74 77 61 72 65 the.;; Software
01b0: 20 69 73 20 66 75 72 6e 69 73 68 65 64 20 74 6f is furnished to
01c0: 20 64 6f 20 73 6f 2c 20 73 75 62 6a 65 63 74 20 do so, subject
01d0: 74 6f 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 to the following
01e0: 20 63 6f 6e 64 69 74 69 6f 6e 73 3a 0a 3b 3b 0a conditions:.;;.
01f0: 3b 3b 20 54 68 65 20 61 62 6f 76 65 20 63 6f 70 ;; The above cop
0200: 79 72 69 67 68 74 20 6e 6f 74 69 63 65 20 61 6e yright notice an
0210: 64 20 74 68 69 73 20 70 65 72 6d 69 73 73 69 6f d this permissio
0220: 6e 20 6e 6f 74 69 63 65 20 73 68 61 6c 6c 20 62 n notice shall b
0230: 65 20 69 6e 63 6c 75 64 65 64 20 69 6e 0a 3b 3b e included in.;;
0240: 20 61 6c 6c 20 63 6f 70 69 65 73 20 6f 72 20 73 all copies or s
0250: 75 62 73 74 61 6e 74 69 61 6c 20 70 6f 72 74 69 ubstantial porti
0260: 6f 6e 73 20 6f 66 20 74 68 65 20 53 6f 66 74 77 ons of the Softw
0270: 61 72 65 2e 0a 3b 3b 0a 3b 3b 20 45 78 63 65 70 are..;;.;; Excep
0280: 74 20 61 73 20 63 6f 6e 74 61 69 6e 65 64 20 69 t as contained i
0290: 6e 20 74 68 69 73 20 6e 6f 74 69 63 65 2c 20 74 n this notice, t
02a0: 68 65 20 6e 61 6d 65 28 73 29 20 6f 66 20 74 68 he name(s) of th
02b0: 65 20 61 62 6f 76 65 20 63 6f 70 79 72 69 67 68 e above copyrigh
02c0: 74 0a 3b 3b 20 68 6f 6c 64 65 72 73 20 73 68 61 t.;; holders sha
02d0: 6c 6c 20 6e 6f 74 20 62 65 20 75 73 65 64 20 69 ll not be used i
02e0: 6e 20 61 64 76 65 72 74 69 73 69 6e 67 20 6f 72 n advertising or
02f0: 20 6f 74 68 65 72 77 69 73 65 20 74 6f 20 70 72 otherwise to pr
0300: 6f 6d 6f 74 65 20 74 68 65 20 73 61 6c 65 2c 0a omote the sale,.
0310: 3b 3b 20 75 73 65 20 6f 72 20 6f 74 68 65 72 20 ;; use or other
0320: 64 65 61 6c 69 6e 67 73 20 69 6e 20 74 68 69 73 dealings in this
0330: 20 53 6f 66 74 77 61 72 65 20 77 69 74 68 6f 75 Software withou
0340: 74 20 70 72 69 6f 72 20 77 72 69 74 74 65 6e 20 t prior written
0350: 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e 2e 0a 3b authorization..;
0360: 3b 0a 3b 3b 20 54 48 45 20 53 4f 46 54 57 41 52 ;.;; THE SOFTWAR
0370: 45 20 49 53 20 50 52 4f 56 49 44 45 44 20 22 41 E IS PROVIDED "A
0380: 53 20 49 53 22 2c 20 57 49 54 48 4f 55 54 20 57 S IS", WITHOUT W
0390: 41 52 52 41 4e 54 59 20 4f 46 20 41 4e 59 20 4b ARRANTY OF ANY K
03a0: 49 4e 44 2c 20 45 58 50 52 45 53 53 20 4f 52 0a IND, EXPRESS OR.
03b0: 3b 3b 20 49 4d 50 4c 49 45 44 2c 20 49 4e 43 4c ;; IMPLIED, INCL
03c0: 55 44 49 4e 47 20 42 55 54 20 4e 4f 54 20 4c 49 UDING BUT NOT LI
03d0: 4d 49 54 45 44 20 54 4f 20 54 48 45 20 57 41 52 MITED TO THE WAR
03e0: 52 41 4e 54 49 45 53 20 4f 46 20 4d 45 52 43 48 RANTIES OF MERCH
03f0: 41 4e 54 41 42 49 4c 49 54 59 2c 0a 3b 3b 20 46 ANTABILITY,.;; F
0400: 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 ITNESS FOR A PAR
0410: 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 20 TICULAR PURPOSE
0420: 41 4e 44 20 4e 4f 4e 49 4e 46 52 49 4e 47 45 4d AND NONINFRINGEM
0430: 45 4e 54 2e 20 20 49 4e 20 4e 4f 20 45 56 45 4e ENT. IN NO EVEN
0440: 54 20 53 48 41 4c 4c 0a 3b 3b 20 54 48 45 20 41 T SHALL.;; THE A
0450: 55 54 48 4f 52 53 20 4f 52 20 43 4f 50 59 52 49 UTHORS OR COPYRI
0460: 47 48 54 20 48 4f 4c 44 45 52 53 20 42 45 20 4c GHT HOLDERS BE L
0470: 49 41 42 4c 45 20 46 4f 52 20 41 4e 59 20 43 4c IABLE FOR ANY CL
0480: 41 49 4d 2c 20 44 41 4d 41 47 45 53 20 4f 52 20 AIM, DAMAGES OR
0490: 4f 54 48 45 52 0a 3b 3b 20 4c 49 41 42 49 4c 49 OTHER.;; LIABILI
04a0: 54 59 2c 20 57 48 45 54 48 45 52 20 49 4e 20 41 TY, WHETHER IN A
04b0: 4e 20 41 43 54 49 4f 4e 20 4f 46 20 43 4f 4e 54 N ACTION OF CONT
04c0: 52 41 43 54 2c 20 54 4f 52 54 20 4f 52 20 4f 54 RACT, TORT OR OT
04d0: 48 45 52 57 49 53 45 2c 20 41 52 49 53 49 4e 47 HERWISE, ARISING
04e0: 0a 3b 3b 20 46 52 4f 4d 2c 20 4f 55 54 20 4f 46 .;; FROM, OUT OF
04f0: 20 4f 52 20 49 4e 20 43 4f 4e 4e 45 43 54 49 4f OR IN CONNECTIO
0500: 4e 20 57 49 54 48 20 54 48 45 20 53 4f 46 54 57 N WITH THE SOFTW
0510: 41 52 45 20 4f 52 20 54 48 45 20 55 53 45 20 4f ARE OR THE USE O
0520: 52 20 4f 54 48 45 52 0a 3b 3b 20 44 45 41 4c 49 R OTHER.;; DEALI
0530: 4e 47 53 20 49 4e 20 54 48 45 20 53 4f 46 54 57 NGS IN THE SOFTW
0540: 41 52 45 2e 0a 0a 28 6c 69 62 72 61 72 79 20 28 ARE...(library (
0550: 73 72 66 69 20 73 37 38 20 6c 69 67 68 74 77 65 srfi s78 lightwe
0560: 69 67 68 74 2d 74 65 73 74 69 6e 67 20 63 6f 6d ight-testing com
0570: 70 61 74 29 0a 20 20 28 65 78 70 6f 72 74 0a 20 pat). (export.
0580: 20 20 28 72 65 6e 61 6d 65 20 28 70 72 65 74 74 (rename (prett
0590: 79 2d 70 72 69 6e 74 20 63 68 65 63 6b 3a 77 72 y-print check:wr
05a0: 69 74 65 29 29 29 0a 20 20 28 69 6d 70 6f 72 74 ite))). (import
05b0: 0a 20 20 20 28 6f 6e 6c 79 20 28 6d 6f 73 68 20 . (only (mosh
05c0: 70 70 29 20 70 72 65 74 74 79 2d 70 72 69 6e 74 pp) pretty-print
05d0: 29 29 29 0a ))).