$ od -c -N 50000 [eris]<Lisp>Harmony>Patches>RECORDPATCH.DCOM!1
0000000 ( F I L E C R E A T E D " 6
0000020 - N o v - 8 4 1 1 : 1 7 : 0 6
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P N E W
0000100 > P A T C H E S > R E C O R D P
0000120 A T C H . ; 1 ) \r " 2 - N o
0000140 v - 8 4 1 2 : 0 9 : 4 1 " t
0000160 c o m p l ' d i n " I N T E
0000200 R L I S P - D 2 - N o v - 8
0000220 4 . . . " d a t e d " 2
0000240 - N o v - 8 4 1 2 : 2 5 : 1 6
0000260 " ) \r ( F I L E C R E A T E D
0000300 " 6 - N o v - 8 4 1 1 : 1 6
0000320 : 4 5 " { E R I S } < L I S P
0000340 N E W > P A T C H E S > R E C O
0000360 R D P A T C H . ; 1 1 3 1 7 9
0000400 c h a n g e s t o : ( V A
0000420 R S \r R E C O R D P A T C H C
0000440 O M S ) ( F N S \ R E C O R
0000460 D B L O C K / M A K E C R E A T
0000500 E 1 ) ) \r \ R E C O R D B L O C
0000520 K / M A K E C R E A T E 1 D 1
0000540 \r ( P 4 2 Q B I N D I N G S
0000560 P 4 1 Q D E C L S T P
0000600 4 0 Q X P 3 3 Q V A R 1
0000620 P 3 2 Q F I E L D . U S A
0000640 G E P 3 1 Q S U B S T Y P
0000660 E P 3 0 Q D E C L S T P
0000700 2 7 Q S P E C I A L F I E L
0000720 D S P 2 6 Q F I E L D P
0000740 7 B I N D I N G S P 6
0000760 S M A S H F I E L D S P 5
0001000 V A L P 4 T E M 3 P 3
0001020 T E M P 2 D E F P 1
0001040 C K V A L F L G P 0 U S
0001060 I N G T Y P E I 2 N E E D
0001100 A C E L L I 1 C R E A T E
0001120 I N F O I 0 T Y P E F
0001140 4 3 Q U S I N G E X P R F
0001160 4 4 Q M S B L I P F 4 5 Q
0001200 H A S H L I N K S F 4 6 Q
0001220 F I E L D I N F O F 4 7 Q
0001240 F I E L D S . I N . C R E A T
0001260 E F 5 0 Q U S I N G T Y P
0001300 E F 5 1 Q R E C O R D E X
0001320 P R E S S I O N F 5 2 Q D
0001340 E C L S T F 5 3 Q R E C O
0001360 R D . T R A N ) \a 366 # \t \0 003 W
0001400 P i 021 362 020 021 020 021 W J 223 i b 004 277 H
0001420 g \0 \0 360 242 261 001 270 @ d g \0 \0 360 262 032
0001440 277 A d 003 231 277 W F A \n \0 \0 261 \a - W
0001460 F B \v \0 \0 261 \a $ g \0 \0 360 262 023 W F
0001500 A g \0 \0 A 001 h 032 032 \v \0 \0 261 \a \r @
0001520 d g \0 \0 360 262 Q 277 A 002 \t \0 \0 021 A 026
0001540 O $ 003 265 \f O & 022 \t \0 \0 ^ 261 006 355 001
0001560 _ , W F i d H \r 005 \0 \0 ] W H 360 263
0001600 030 O , M h 032 032 _ * 277 O ( 265 022 O *
0001620 h 032 _ ( _ & 277 O $ 002 _ $ 260 306 O *
0001640 & _ ( 277 260 363 g \0 \0 360 250 @ d g \0 \0
0001660 360 262 u 277 W F 272 A 002 001 \t \0 \0 \t \0 \0
0001700 021 021 026 O * 003 265 \a 023 J 261 006 217 001 _ ,
0001720 W F j i H A 002 002 001 \r 006 \0 \0 ] W H
0001740 360 263 > I 243 g \0 \0 204 h 271 g \0 \0 O ,
0001760 A 002 002 002 \n \0 \0 002 002 _ 020 d 262 033 d i
0002000 360 263 026 d 005 001 245 d 005 002 241 005 003 265 \n g
0002020 \0 \0 O 020 h 032 032 J M h 032 032 032 032 272 O
0002040 * 002 _ * 260 241 g \0 \0 360 242 261 006 214 o \0
0002060 \0 \0 \t \0 \0 o \0 \0 \0 g \0 \0 021 # 033 @
0002100 g \0 \0 360 225 A 001 \t \0 \0 201 A 001 \t \0 \0
0002120 272 O . 001 002 001 g \0 \0 360 235 W L 021 A
0002140 O 8 003 265 016 O : 022 276 J \t \0 \0 022 261 005
0002160 353 001 _ @ 001 262 I O @ 001 O 4 \n \0 \0 263
0002200 ? O @ 001 W N \n \0 \0 263 5 O @ 001 W F
0002220 h i H d g \0 \0 360 223 277 g \0 \0 \r 005 \0
0002240 \0 [ W H 360 263 031 O @ 001 K h 032 032 _ >
0002260 277 O < 265 022 O > h 032 _ < _ : 277 O 8
0002300 002 _ 8 260 237 O > & _ < 277 260 363 @ d g
0002320 \0 \0 360 232 277 A W F B \v \0 \0 261 005 } g
0002340 \0 \0 360 262 K W H A 002 W F 264 \v g \0 \0
0002360 W F h 032 032 \ B \v \0 \0 [ 360 263 - g \0
0002400 \0 A 001 _ 022 d 262 033 d i 360 263 026 d 005 001
0002420 245 d 005 002 241 005 003 265 \n g \0 \0 O 022 h 032
0002440 032 K h 032 032 032 261 005 3 W H 261 005 . @ g
0002460 \0 \0 360 252 @ d g \0 \0 360 242 261 002 \n 277 H
0002500 230 H d g \0 \0 360 262 024 277 A \t \0 \0 021 A
0002520 O 8 003 265 * O : 022 273 H 222 261 001 001 K
0002540 246 A 001 h 032 h 032 273 g \0 \0 @ g \0 \0 360
0002560 242 261 \0 226 021 0 024 K \t \0 \0 261 \0 204 001 _
0002600 @ W F g \0 \0 i H 264 005 g \0 \0 \r 005 \0
0002620 \0 \ W H 360 263 026 O @ L 032 _ > 277 O <
0002640 265 022 O > h 032 _ < _ : 277 O 8 002 _ 8
0002660 260 243 O > & _ < 277 260 363 d 001 _ 026 277 g
0002700 \0 \0 O 026 001 _ 024 d 262 033 d i 360 263 026 d
0002720 005 001 245 d 005 002 241 005 003 265 \n g \0 \0 O 024
0002740 h 032 032 O 026 002 h 032 032 032 _ $ 277 O & 265
0002760 \t O $ h 032 _ ( 202 O $ & _ & 277 002 003
0003000 265 272 O ( 022 260 J 021 0 024 K \t \0 \0 260 ;
0003020 d 001 _ 032 001 _ 030 d 262 033 d i 360 263 026 d
0003040 005 001 245 d 005 002 241 005 003 265 \n g \0 \0 O 030
0003060 h 032 032 O 032 002 h 032 032 _ $ 003 232 O & 265
0003100 024 O $ _ ( _ & 277 002 003 265 306 O ( 022 032
0003120 261 004 \t \t \0 \0 _ & O $ 031 260 354 H d g
0003140 \0 \0 360 242 261 \0 260 277 K 265 003 202 261 \0 227 B
0003160 242 261 \0 236 g \0 \0 W F h 032 032 261 003 335 d
0003200 001 021 001 @ d g \0 \0 360 262 7 277 g \0 \0
0003220 d O @ 001 _ 034 d 262 033 d i 360 263 026 d 005
0003240 001 245 d 005 002 241 005 003 265 \n g \0 \0 O 034 h
0003260 032 032 O @ 002 h 032 032 032 W F h 032 032 032 260
0003300 @ g \0 \0 360 262 7 g \0 \0 O @ 001 _ 036 d
0003320 262 033 d i 360 263 026 d 005 001 245 d 005 002 241 005
0003340 003 265 \n g \0 \0 O 036 h 032 032 g \0 \0 O @
0003360 002 W F h 032 032 032 h 032 032 032 202 \b \0 \0 c
0003400 F 023 002 003 265 003 202 261 377 x W F 261 003 M W
0003420 H 261 003 H g \0 \0 360 232 g \0 \0 W F h 032
0003440 032 261 003 8 @ g \0 \0 360 237 g \0 \0 W F o
0003460 \0 \0 \0 h 032 032 032 261 003 " g \0 \0 W F h
0003500 032 032 261 003 027 g \0 \0 360 242 261 \0 226 H 225 H
0003520 g \0 \0 360 237 A \t \0 \0 021 A O 8 003 265
0003540 024 O : 022 273 o \0 \0 \0 272 H 263 F K 276 J
0003560 261 002 351 001 _ @ W F g \0 \0 i H 264 005 g
0003600 \0 \0 \r 005 \0 \0 \ W H 360 263 030 O @ L h
0003620 032 032 _ > 277 O < 265 022 O > h 032 _ < _
0003640 : 277 O 8 002 _ 8 260 267 O > & _ < 277 260
0003660 363 g \0 \0 g \0 \0 J \t \0 \0 Z H g \0 \0
0003700 360 223 g \0 \0 202 g \0 \0 g \0 \0 W F h 032
0003720 032 h 032 032 h 032 032 032 J h 032 032 032 261 002 |
0003740 @ d g \0 \0 360 242 261 \0 305 277 A 002 \t \0 \0
0003760 021 A 026 O $ 003 265 - O & 022 \t \0 \0 276 H
0004000 g \0 \0 360 250 H d g \0 \0 360 262 O 277 N 244
0004020 B 242 261 001 - h ^ 271 g \0 \0 W F h 032 032
0004040 261 002 9 001 _ , W F i d H \r 005 \0 \0 ]
0004060 W H 360 263 030 O , M h 032 032 _ * 277 O (
0004100 265 022 O * h 032 _ ( _ & 277 O $ 002 _ $
0004120 260 245 O * & _ ( 277 260 363 g \0 \0 360 234 h
0004140 276 g \0 \0 W F h 032 032 261 001 360 H 263 9 021
0004160 0 024 N 260 037 d 001 002 001 262 030 d 001 _ $ 277
0004200 O & 265 \t O $ h 032 _ ( 202 O $ & _ &
0004220 277 002 003 265 342 O ( 022 276 h 271 g \0 \0 A 001
0004240 h 032 032 261 001 266 \b \0 \0 261 001 260 g \0 \0 360
0004260 252 @ d g \0 \0 360 242 261 \0 354 277 H g \0 \0
0004300 360 230 g \0 \0 W F h 032 260 M @ g \0 \0 360
0004320 264 032 h 271 H 230 g \0 \0 W F h 032 260 9 g
0004340 \0 \0 A 001 001 A 001 002 260 + 271 g \0 \0 A 001
0004360 _ d 262 033 d i 360 263 026 d 005 001 245 d 005
0004400 002 241 005 003 265 \n g \0 \0 O h 032 032 H 264
0004420 006 W F h 032 032 032 272 A 002 001 \t \0 \0 \t \0
0004440 \0 021 021 026 O * 003 265 033 023 B 263 u H g \0
0004460 \0 360 262 n J d 001 g \0 \0 360 222 261 001 035 W
0004500 H 020 001 _ , W F j i H 264 005 g \0 \0 A
0004520 002 002 001 \r 006 \0 \0 ] W H 360 263 > I 243 g
0004540 \0 \0 204 h 271 g \0 \0 O , A 002 002 002 \n \0
0004560 \0 002 002 _ " d 262 033 d i 360 263 026 d 005 001
0004600 245 d 005 002 241 005 003 265 \n g \0 \0 O " h 032
0004620 032 J M h 032 032 032 032 272 O * 002 _ * 260 210
0004640 J 261 \0 270 g \0 \0 360 250 @ g \0 \0 360 242 261
0004660 \0 241 o \0 \0 \0 \t \0 \0 o \0 \0 \0 g \0 \0
0004700 021 # 033 @ g \0 \0 360 225 A 001 \t \0 \0 201 A
0004720 001 \t \0 \0 272 O . 001 002 001 g \0 \0 360 235 W
0004740 L 021 A O 8 003 265 \r O : 022 276 J \t \0
0004760 \0 022 260 g 001 _ @ 001 262 I O @ 001 O 4 \n
0005000 \0 \0 263 ? O @ 001 W N \n \0 \0 263 5 O @
0005020 001 W F h i H d g \0 \0 360 223 277 g \0 \0
0005040 \r 005 \0 \0 [ W H 360 263 031 O @ 001 K h 032
0005060 032 _ > 277 O < 265 022 O > h 032 _ < _ :
0005100 277 O 8 002 _ 8 260 240 O > & _ < 277 260 363
0005120 g \0 \0 @ W R \v \0 \0 272 N 262 M I 265 005
0005140 g \0 \0 W T 032 021 021 " J \t \0 \0 [ h 032
0005160 272 N \t \0 \0 260 ' d 001 021 001 O @ 001 h
0005200 032 W V \n \0 \0 001 K O @ 002 g \0 \0 \f \0
0005220 \0 J 032 272 O B g \0 \0 030 023 002 003 265 332 J
0005240 \t \0 \0 \t \0 \0 Z 023 W J 226 J W J \n \0
0005260 \0 200 J \t \0 \0 020 W F 272 021 0 024 W L 260
0005300 + d 001 021 001 026 O , 001 O , 001 h i \v \0
0005320 \0 h 032 032 022 _ $ 277 O & 265 \t O $ h 032
0005340 _ ( 202 O $ & _ & 277 002 003 265 326 O ( 022
0005360 ^ 261 377 j \0 ( 3 7 2 1 Q \ R E C
0005400 O R D B L O C K / G E T F I E L
0005420 D F O R C R E A T E 3 6 6 6 Q
0005440 \ R E C O R D B L O C K / E M
0005460 B E D P R O G 3 6 6 1 Q \ R
0005500 E C O R D B L O C K / M A K E H
0005520 A S H L I N K S 3 6 4 6 Q \
0005540 R E C O R D B L O C K / E M B E
0005560 D P R O G 3 6 4 3 Q M K P R
0005600 O G N 3 6 2 1 Q \ R E C O R
0005620 D B L O C K / M A K E A C C E S
0005640 S 3 6 0 6 Q \ R E C O R D B
0005660 L O C K / A C C E S S D E F 4
0005700 3 5 6 5 Q D R E V E R S E 3
0005720 5 5 5 Q \ R E C O R D B L O C
0005740 K / R E C O R D B I N D V A L
0005760 3 5 3 1 Q \ R E C O R D B L O
0006000 C K / R E C O R D E R R O R 3
0006020 4 4 4 Q \ R E C O R D B L O C
0006040 K / G E T F I E L D F O R C R E
0006060 A T E 3 4 1 4 Q F A S S O C
0006100 3 4 0 2 Q F A S S O C 3 3
0006120 6 1 Q \ R E C O R D B L O C K
0006140 / E M B E D P R O G 3 3 2 4 Q
0006160 \ R E C O R D B L O C K / C S
0006200 U B S T 3 3 1 6 Q E V A L
0006220 3 2 7 1 Q C O P Y 3 1 6 1 Q
0006240 F A S S O C 3 1 2 7 Q \ R
0006260 E C O R D B L O C K / G E T F I
0006300 E L D F O R C R E A T E 3 0 4
0006320 1 Q D R E V E R S E 3 0 3 6
0006340 Q \ R E C O R D B L O C K / C
0006360 R E A T E F I E L D S 2 6 5 1
0006400 Q S H O U L D N T 2 4 5 7 Q
0006420 \ R E C O R D B L O C K / G E
0006440 T F I E L D F O R C R E A T E
0006460 2 3 7 6 Q D R E V E R S E 2
0006500 3 6 0 Q \ R E C O R D B L O C
0006520 K / C R E A T E F I E L D S 2
0006540 2 7 3 Q \ R E C O R D B L O C
0006560 K / R E C O R D B I N D 2 2 0
0006600 6 Q \ R E C O R D B L O C K /
0006620 G E T F I E L D F O R C R E A T
0006640 E 2 1 3 1 Q \ R E C O R D B
0006660 L O C K / C R E A T E F I E L D
0006700 S 1 7 7 7 Q S H O U L D N T
0006720 1 5 2 6 Q L A S T 1 4 1 6
0006740 Q D R E V E R S E 1 2 2 1 Q
0006760 \ R E C O R D B L O C K / G E
0007000 T F I E L D F O R C R E A T E
0007020 1 1 7 3 Q D R E V E R S E 1
0007040 1 1 6 Q \ R E C O R D B L O C
0007060 K / C R E A T E F I E L D S 7
0007100 7 2 Q \ R E C O R D B L O C K
0007120 / M A K E C R E A T E L S T 7
0007140 3 4 Q \ R E C O R D B L O C K
0007160 / M A K E C R E A T E L S T 6
0007200 4 1 Q \ R E C O R D B L O C K
0007220 / G E T F I E L D F O R C R E A
0007240 T E 6 1 1 Q F A S S O C 5
0007260 7 7 Q F A S S O C 5 5 5 Q
0007300 \ R E C O R D B L O C K / E M B
0007320 E D P R O G 5 2 0 Q \ R E C
0007340 O R D B L O C K / C S U B S T
0007360 5 1 2 Q E V A L 4 6 5 Q C
0007400 O P Y 3 6 7 Q F A S S O C
0007420 3 3 5 Q \ R E C O R D B L O C
0007440 K / G E T F I E L D F O R C R E
0007460 A T E 3 0 0 Q D R E V E R S
0007500 E 2 7 5 Q \ R E C O R D B L
0007520 O C K / C R E A T E F I E L D S
0007540 1 7 3 Q \ R E C O R D B L O
0007560 C K / G E T F I E L D F O R C R
0007600 E A T E 1 5 3 Q D R E V E R
0007620 S E 1 3 5 Q \ R E C O R D B
0007640 L O C K / C R E A T E F I E L D
0007660 S 1 1 4 Q \ R E C O R D B L
0007700 O C K / S M A S H P A T T E R N
0007720 6 5 Q \ R E C O R D B L O C
0007740 K / M A K E C R E A T E L S T
0007760 5 4 Q \ R E C O R D B L O C K
0010000 / S M A S H P A T T E R N ) \r (
0010020 3 6 3 1 Q F A S T 3 6 1 6 Q
0010040 r e p l a c e 3 5 4 3 Q F
0010060 A S T 3 5 2 3 Q C R E A T E
0010100 3 4 4 0 Q u s i n g 3 4 3
0010120 2 Q r e u s i n g 3 3 3 5 Q
0010140 C R E A T E 3 3 0 7 Q C C
0010160 R E A T E 3 3 0 0 Q C R E A
0010200 T E 3 2 5 5 Q C C R E A T E
0010220 3 2 4 7 Q C R E A T E 3 2
0010240 1 4 Q Q U O T E 3 1 5 0 Q
0010260 R E P L A C E F I E L D V A L
0010300 3 1 4 2 Q F R E P L A C E F I
0010320 E L D V A L 3 1 1 7 Q r e u
0010340 s i n g 3 0 7 2 Q F R E P L
0010360 A C E F I E L D 3 0 6 1 Q r
0010400 e u s i n g 3 0 1 1 Q Q U O
0010420 T E 2 7 5 6 Q N C R E A T E
0010440 2 7 4 2 Q A R R A Y 2 7 3
0010460 1 Q C O P Y A R R A Y 2 7 1
0010500 7 Q A R R A Y B L O C K 2 7
0010520 0 5 Q C O P Y A L L 2 7 0 0
0010540 Q c o p y i n g 2 6 6 6 Q
0010560 D A T A T Y P E 2 6 5 7 Q A
0010600 R R A Y B L O C K 2 6 3 6 Q
0010620 A R R A Y 2 5 4 4 Q C O P Y
0010640 A L L 2 5 3 5 Q c o p y i n
0010660 g 2 4 3 3 Q C O P Y A R R A
0010700 Y 2 4 1 2 Q r e u s i n g
0010720 2 4 0 3 Q u s i n g 2 3 4 5
0010740 Q A R R A Y R E C O R D 2 3
0010760 1 4 Q G E T P R O P L I S T
0011000 2 3 1 1 Q A P P E N D 2 3 0
0011020 5 Q C O P Y A L L 2 3 0 0 Q
0011040 c o p y i n g 2 2 6 7 Q S
0011060 E T P R O P L I S T 2 2 6 4 Q
0011100 P R O G N 2 2 0 2 Q r e u
0011120 s i n g 2 1 7 3 Q N O T N I
0011140 L 2 1 2 3 Q r e u s i n g
0011160 2 1 1 0 Q A T O M R E C O R D
0011200 2 0 7 5 Q A P P E N D 2 0
0011220 5 5 Q M A P C A R 2 0 5 0 Q
0011240 A S S O C R E C O R D 2 0 3
0011260 4 Q C O P Y A L L 2 0 2 7 Q
0011300 c o p y i n g 1 7 5 6 Q C
0011320 O N S 1 7 4 6 Q Q U O T E
0011340 1 7 1 2 Q C O N S 1 7 0 4 Q
0011360 P R O P R E C O R D 1 6 5 5
0011400 Q Q U O T E 1 6 2 0 Q C O
0011420 N S 1 6 1 1 Q A S S O C R E
0011440 C O R D 1 5 6 7 Q A P P E N
0011460 D 1 5 4 2 Q r e u s i n g
0011500 1 4 5 6 Q Q U O T E 1 3 3 6
0011520 Q Q U O T E 1 3 0 2 Q C O
0011540 N S 1 2 1 5 Q r e u s i n g
0011560 1 2 0 6 Q N O T N I L 1 1
0011600 5 7 Q A S S O C R E C O R D
0011620 1 1 5 3 Q L I S T 1 1 0 6 Q
0011640 r e u s i n g 1 0 7 1 Q A
0011660 S S O C R E C O R D 1 0 6 2 Q
0011700 P R O P R E C O R D 1 0 3 4
0011720 Q Q U O T E 1 0 0 1 Q C O
0011740 N S 7 6 0 Q C D R 7 4 2 Q
0011760 T Y P E R E C O R D 7 2 2 Q
0012000 R E C O R D 6 3 5 Q u s i
0012020 n g 6 2 7 Q r e u s i n g
0012040 5 3 1 Q C R E A T E 5 0 3 Q
0012060 C C R E A T E 4 7 4 Q C R
0012100 E A T E 4 5 1 Q C C R E A T
0012120 E 4 2 2 Q Q U O T E 3 5 6
0012140 Q R E P L A C E F I E L D V A
0012160 L 3 5 0 Q F R E P L A C E F
0012200 I E L D V A L 2 6 0 Q D A T
0012220 A T Y P E 2 5 1 Q A R R A Y
0012240 B L O C K 1 2 4 Q A R R A Y
0012260 R E C O R D 1 0 4 Q Q U O T
0012300 E 7 3 Q T Y P E R E C O R D
0012320 3 5 Q R E C O R D 2 3 Q
0012340 s m a s h i n g ) \r ( 3 2 7 5
0012360 Q ( F A S T ) 3 2 6 6 Q (
0012400 ( D A T U M C R E A T E ) (
0012420 O L D D A T U M U S I N G ) )
0012440 2 1 5 1 Q ( G E N S Y M )
0012460 2 0 6 3 Q ( F U N C T I O N
0012500 ( L A M B D A ( X ) ( C O N
0012520 S ( C A R X ) ( C D R X
0012540 ) ) ) ) 4 7 1 Q ( F A S T )
0012560 4 6 2 Q ( ( D A T U M C R
0012600 E A T E ) ( O L D D A T U M
0012620 U S I N G ) ) ) \r ( P R E T T Y
0012640 C O M P R I N T R E C O R D P
0012660 A T C H C O M S ) \r ( R P A Q Q
0012700 R E C O R D P A T C H C O M S
0012720 ( ( F N S \ R E C O R D B L
0012740 O C K / M A K E C R E A T E 1 )
0012760 ) ) \r ( P U T P R O P S R E C
0013000 O R D P A T C H C O P Y R I G
0013020 H T ( " X e r o x C o r p o
0013040 r a t i o n " 1 9 8 4 ) ) \r N
0013060 I L \r
0013063