$ od -c -N 50000 [qv]<IDL>DINDE>UNBOXEDOPS.DCOM!1
0000000 ( F I L E C R E A T E D " 3
0000020 - M a r - 8 6 2 2 : 4 1 : 0 6
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < P E D E R S E N >
0000100 L I S P > U N B O X E D O P S .
0000120 ; 1 ) \r " 1 2 - N o v - 8 5
0000140 1 4 : 5 9 : 2 3 " t c o m p l
0000160 ' d i n " I N T E R L I S P
0000200 - D 7 - F e b - 8 6 . . .
0000220 " d a t e d " 7 - F e b -
0000240 8 6 1 1 : 4 3 : 0 5 " ) \r ( F
0000260 I L E C R E A T E D " 3 - M
0000300 a r - 8 6 2 2 : 4 0 : 2 2 "
0000320 { Q V } < P E D E R S E N > L I
0000340 S P > U N B O X E D O P S . ; 1
0000360 9 3 5 8 c h a n g e s t o
0000400 : ( V A R S \r U N B O X E D
0000420 O P S C O M S ) ( F N S \ U
0000440 N B O X F L O A T 1 . P A T C H
0000460 ) p r e v i o u s d a t e :
0000500 " 2 0 - F e b - 8 6 1 5 : 5
0000520 8 : 5 5 " \r { E R I S } < L I
0000540 S P U S E R S > K O T O > U N B
0000560 O X E D O P S . ; 1 ) \r U F A B
0000600 S D 1 \r ( L ( 0 X ) ) \0
0000620 \t \0 \0 \0 001 @ 355 001 355 002 355 \0 020 \0 N I
0000640 L \r N I L \r ( ) \r U F E Q P D
0000660 1 \r ( L ( 1 Y 0 X ) )
0000700 \0 \a \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4
0000720 F E Q P ) \r N I L \r ( ) \r U F G
0000740 E Q D 1 \r ( L ( 1 Y 0
0000760 X ) ) \0 \a \0 \0 \0 002 A @ 363 h 360 020
0001000 \0 N I L \r N I L \r ( ) \r U F G R
0001020 E A T E R P D 1 \r ( L ( 1
0001040 Y 0 X ) ) \0 005 \0 \0 \0 002 @ A
0001060 362 020 \0 N I L \r N I L \r ( ) \r U F
0001100 I X D 1 \r ( L ( 0 X ) )
0001120 \0 005 \0 \0 \0 001 @ j 330 020 \0 N I L \r N
0001140 I L \r ( ) \r U F L E Q D 1 \r (
0001160 L ( 1 Y 0 X ) ) \0 \a \0
0001200 \0 \0 002 @ A 363 h 360 020 \0 N I L \r N I
0001220 L \r ( ) \r U F L E S S P D 1 \r
0001240 ( L ( 1 Y 0 X ) ) \0 005
0001260 \0 \0 \0 002 A @ 362 020 \0 N I L \r N I L
0001300 \r ( ) \r U F M A X D 1 \r ( L
0001320 ( 0 A R G S ) ) \0 ! 004 \0 002 \0
0001340 e 021 001 \0 H k ` \0 \0 021 003 003 J d I 363
0001360 221 K 020 a K 362 222 J a 273 J k 324 Z 260 357
0001400 \0 N I L \r ( 1 0 Q M I N . F L
0001420 O A T ) \r ( ) \r U F M I N D 1
0001440 \r ( L ( 0 A R G S ) ) \0 "
0001460 004 \0 002 \0 e 021 001 \0 H k ` \0 \0 021 003 003
0001500 J d I 363 221 K 020 a K 375 362 222 J a 273 J
0001520 k 324 Z 260 356 \0 N I L \r ( 1 0 Q M
0001540 A X . F L O A T ) \r ( ) \r U F M
0001560 I N U S D 1 \r ( L ( 0 X )
0001600 ) \0 006 \0 \0 \0 001 @ \t \0 \0 020 \0 ( 3
0001620 F M I N U S ) \r N I L \r ( ) \r
0001640 U F R E M A I N D E R D 1 \r (
0001660 L ( 1 Y 0 X ) ) \0 \a \0
0001700 \0 \0 002 @ A \n \0 \0 020 \0 ( 4 F R E
0001720 M A I N D E R ) \r N I L \r ( ) \r
0001740 \ U N B O X F L O A T 1 . P A T
0001760 C H D 1 \r ( L ( 0 O P ) )
0002000 001 3 004 \0 \0 001 \b \0 \0 @ d j 360 262 <
0002020 277 \b \0 \0 f 021 1 003 k H 321 310 004 Y ` \0
0002040 \0 I l 002 331 Y 320 d 310 \0 375 310 001 321 Z I
0002060 l 002 \n \0 \0 k H 321 I 315 004 l 003 037 [ J
0002100 322 315 \0 K J 323 315 001 K 020 k 360 262 8 \b \0
0002120 \0 f 021 1 003 k H 321 310 004 Y ` \0 \0 I l
0002140 002 331 Y 320 d 310 \0 375 310 001 321 Z I l 002 \n
0002160 \0 \0 k H 321 I 315 004 J 006 \0 \0 [ 310 \0 K
0002200 310 001 321 020 @ d l 002 360 262 7 277 \b \0 \0 f
0002220 h 021 022 002 k H 321 310 004 Z ` \0 \0 J l 002
0002240 331 Z 320 d 310 \0 375 310 001 321 Y J l 002 \n \0
0002260 \0 k H 321 J 315 004 I 355 \0 \t \0 \0 355 001 020
0002300 l 003 360 262 6 \b \0 \0 f h 021 022 002 k H 321
0002320 310 004 Z ` \0 \0 J l 002 331 Z 320 d 310 \0 375
0002340 310 001 321 Y J l 002 \n \0 \0 k H 321 J 315 004
0002360 I 355 \0 \t \0 \0 355 001 020 @ l 004 360 262 3 \b
0002400 \0 \0 f h 021 022 002 k H 321 310 004 Z ` \0 \0
0002420 J l 002 331 Z 320 d 310 \0 375 310 001 321 Y J l
0002440 002 \n \0 \0 k H 321 J 315 004 I 355 \0 j 330 020
0002460 o \0 \0 \0 @ \n \0 \0 020 \0 ( 4 6 0 Q
0002500 H E L P 4 3 4 Q \ M A K E F
0002520 R E E B L O C K 3 7 2 Q \ S
0002540 L O W R E T U R N 3 5 6 Q F
0002560 M I N U S 3 4 2 Q \ M A K E
0002600 F R E E B L O C K 3 0 0 Q \
0002620 S L O W R E T U R N 2 6 5 Q
0002640 A B S 2 5 1 Q \ M A K E F R
0002660 E E B L O C K 2 0 7 Q \ S L
0002700 O W R E T U R N 1 5 2 Q \ M
0002720 A K E F R E E B L O C K 1 1 1
0002740 Q \ S L O W R E T U R N 5 5
0002760 Q \ M A K E F R E E B L O C K
0003000 1 4 Q \ S L O W R E T U R N
0003020 2 \ S L O W R E T U R N ) \r
0003040 ( 4 1 0 Q \ S T A C K S P A C
0003060 E 3 1 6 Q \ S T A C K S P A
0003100 C E 2 2 5 Q \ S T A C K S P
0003120 A C E 1 6 4 Q F L O A T P
0003140 1 2 6 Q \ S T A C K S P A C E
0003160 3 1 Q \ S T A C K S P A C E
0003200 ) \r ( 4 5 4 Q " \ U N B O X
0003220 F L O A T 1 c a l l e d w i
0003240 t h i l l e g a l o p " )
0003260 \r ( P R E T T Y C O M P R I N T
0003300 U N B O X E D O P S C O M S )
0003320 \r ( R P A Q Q U N B O X E D O
0003340 P S C O M S ( ( M A C R O S
0003360 U F A B S U F A B S 1 U F E
0003400 Q P U F E Q P 2 U F G E Q
0003420 U F G E Q 2 U F G R E A T E R
0003440 P U F G R E A T E R P 2 U F
0003460 I X \r U F I X 1 U F L E Q
0003500 U F L E Q 2 U F L E S S P U
0003520 F L E S S P 2 U F M A X U F
0003540 M A X 2 U F M I N U F M I N
0003560 2 U F M I N U S U F M I N U
0003600 S 1 U F R E M A I N D E R \r
0003620 U F R E M A I N D E R 2 ) ( F
0003640 N S U F A B S U F E Q P U
0003660 F G E Q U F G R E A T E R P
0003700 U F I X U F L E Q U F L E S
0003720 S P U F M A X U F M I N U
0003740 F M I N U S U F R E M A I N D
0003760 E R \r \ U N B O X F L O A T 1
0004000 . P A T C H ) ( D E C L A R E
0004020 : D O N T E V A L @ L O A D
0004040 D O C O P Y ( P ( M O V D
0004060 ( Q U O T E \ U N B O X F L O
0004100 A T 1 . P A T C H ) ( Q U O T
0004120 E \r \ U N B O X F L O A T 1 )
0004140 ) ) ) ( D E C L A R E : D O
0004160 N T E V A L @ L O A D D O E V
0004200 A L @ C O M P I L E D O N T C
0004220 O P Y ( L O C A L V A R S .
0004240 T ) ) ( D E C L A R E : \r
0004260 D O N T E V A L @ L O A D D O
0004300 E V A L @ C O M P I L E D O N
0004320 T C O P Y C O M P I L E R V A
0004340 R S ( A D D V A R S ( N L A
0004360 M A ) ( N L A M L ) ( L A M
0004400 A U F M I N U F M A X ) ) )
0004420 ) ) \r ( D E F M A C R O U F A
0004440 B S ( & O P T I O N A L ( A
0004460 R G 1 N I L A R G 1 G I V E
0004500 N ) & R E S T R E S T A R G
0004520 S & W H O L E O R I G I N A
0004540 L ) ( i f ( O R ( N O T
0004560 A R G 1 G I V E N \r ) R E S T
0004600 A R G S ) t h e n ( P R I N
0004620 T O U T T " * * * * * * * *
0004640 * * * * " T ) ( P R I N T O
0004660 U T T " I l l e g a l a r
0004700 g s t o U F A B S " , ,
0004720 O R I G I N A L T ) ( \r P
0004740 R I N T O U T T " * * * * *
0004760 * * * * * * * " T ) ) ( L I
0005000 S T ( Q U O T E U F A B S 1
0005020 ) A R G 1 ) ) \r ( P U T P R O
0005040 P S U F A B S 1 D M A C R O
0005060 ( ( X ) ( \ F L O A T B O X
0005100 ( ( O P C O D E S U B F L O
0005120 A T 1 2 ) ( \ F L O A T U N
0005140 B O X X ) ) ) ) ) \r ( D E F M
0005160 A C R O U F E Q P ( & W H O
0005200 L E O R I G I N A L & O P T
0005220 I O N A L ( A R G 1 N I L
0005240 A R G 1 G I V E N ) ( A R G 2
0005260 N I L A R G 2 G I V E N )
0005300 & R E S T R E S T A R G S )
0005320 ( \r i f ( O R ( N O T A R
0005340 G 1 G I V E N ) ( N O T A R
0005360 G 2 G I V E N ) R E S T A R G
0005400 S ) t h e n ( P R I N T O U
0005420 T T " * * * * * * * * * * *
0005440 * " T ) ( P R I N T O U T
0005460 T \r " I l l e g a l a r g s
0005500 t o U F E Q P " , , O
0005520 R I G I N A L T ) ( P R I N
0005540 T O U T T " * * * * * * * *
0005560 * * * * " T ) ) ( L I S T
0005600 ( Q U O T E U F E Q P 2 ) A
0005620 R G 1 A R G 2 ) \r ) \r ( P U T
0005640 P R O P S U F E Q P 2 D M A
0005660 C R O ( ( X Y ) ( E Q (
0005700 \ F L O A T U N B O X ( F D I
0005720 F F E R E N C E X Y ) ) N
0005740 I L ) ) ) \r ( D E F M A C R O
0005760 U F G E Q ( & W H O L E O R
0006000 I G I N A L & O P T I O N A L
0006020 ( A R G 1 N I L A R G 1 G
0006040 I V E N ) ( A R G 2 N I L
0006060 A R G 2 G I V E N ) & R E S T
0006100 R E S T A R G S ) ( \r i f
0006120 ( O R ( N O T A R G 1 G I V
0006140 E N ) ( N O T A R G 2 G I V
0006160 E N ) R E S T A R G S ) t h
0006200 e n ( P R I N T O U T T "
0006220 * * * * * * * * * * * * " T )
0006240 ( P R I N T O U T T \r " I
0006260 l l e g a l a r g s t o U
0006300 F G E Q " , , O R I G I N
0006320 A L T ) ( P R I N T O U T
0006340 T " * * * * * * * * * * * * "
0006360 T ) ) ( L I S T ( Q U O T
0006400 E U F G E Q 2 ) A R G 1 A
0006420 R G 2 ) \r ) \r ( P U T P R O P S
0006440 U F G E Q 2 D M A C R O (
0006460 ( X Y ) ( N O T ( ( O P C
0006500 O D E S S W A P U B F L O A
0006520 T 2 5 ) ( \ F L O A T U N B
0006540 O X X ) ( \ F L O A T U N B
0006560 O X Y ) ) ) ) ) \r ( D E F M A
0006600 C R O U F G R E A T E R P (
0006620 & W H O L E O R I G I N A L
0006640 & O P T I O N A L ( A R G 1
0006660 N I L A R G 1 G I V E N ) (
0006700 A R G 2 N I L A R G 2 G I V
0006720 E N ) & R E S T \r R E S T A
0006740 R G S ) ( i f ( O R ( N O
0006760 T A R G 1 G I V E N ) ( N O
0007000 T A R G 2 G I V E N ) R E S
0007020 T A R G S ) t h e n ( P R I
0007040 N T O U T T " * * * * * * *
0007060 * * * * * " T ) ( \r P R I N
0007100 T O U T T " I l l e g a l
0007120 a r g s t o U F G R E A T E
0007140 R P " , , O R I G I N A L
0007160 T ) ( P R I N T O U T T
0007200 " * * * * * * * * * * * * " T
0007220 ) ) ( L I S T ( Q U O T E
0007240 \r U F G R E A T E R P 2 ) A R
0007260 G 1 A R G 2 ) ) \r ( P U T P R
0007300 O P S U F G R E A T E R P 2
0007320 D M A C R O ( ( X Y ) ( (
0007340 O P C O D E S U B F L O A T 2
0007360 5 ) ( \ F L O A T U N B O X
0007400 X ) ( \ F L O A T U N B O X
0007420 Y ) ) ) ) \r ( D E F M A C R O
0007440 U F I X ( & W H O L E O R
0007460 I G I N A L & O P T I O N A L
0007500 ( A R G 1 N I L A R G 1 G
0007520 I V E N ) & R E S T R E S T
0007540 A R G S ) ( i f ( O R ( N
0007560 O T A R G 1 G I V E N ) \r R
0007600 E S T A R G S ) t h e n ( P
0007620 R I N T O U T T " * * * * *
0007640 * * * * * * * " T ) ( P R I
0007660 N T O U T T " I l l e g a l
0007700 a r g s t o U F I X " ,
0007720 , O R I G I N A L T ) (
0007740 \r P R I N T O U T T " * * *
0007760 * * * * * * * * * " T ) ) (
0010000 L I S T ( Q U O T E U F I X
0010020 1 ) A R G 1 ) ) \r ( P U T P R
0010040 O P S U F I X 1 D M A C R O
0010060 ( ( X ) ( ( O P C O D E S
0010100 U B F L O A T 1 4 ) ( \ F L
0010120 O A T U N B O X X ) ) ) ) \r (
0010140 D E F M A C R O U F L E Q (
0010160 & W H O L E O R I G I N A L
0010200 & O P T I O N A L ( A R G 1
0010220 N I L A R G 1 G I V E N ) (
0010240 A R G 2 N I L A R G 2 G I V
0010260 E N ) & R E S T R E S T A R
0010300 G S ) ( \r i f ( O R ( N O
0010320 T A R G 1 G I V E N ) ( N O
0010340 T A R G 2 G I V E N ) R E S
0010360 T A R G S ) t h e n ( P R I
0010400 N T O U T T " * * * * * * *
0010420 * * * * * " T ) ( P R I N T
0010440 O U T T \r " I l l e g a l
0010460 a r g s t o U F L E Q " ,
0010500 , O R I G I N A L T ) (
0010520 P R I N T O U T T " * * * *
0010540 * * * * * * * * " T ) ) ( L
0010560 I S T ( Q U O T E U F L E Q
0010600 2 ) A R G 1 A R G 2 ) \r ) \r
0010620 ( P U T P R O P S U F L E Q 2
0010640 D M A C R O ( ( X Y ) (
0010660 N O T ( ( O P C O D E S U B
0010700 F L O A T 2 5 ) ( \ F L O A
0010720 T U N B O X X ) ( \ F L O A
0010740 T U N B O X Y ) ) ) ) ) \r ( D
0010760 E F M A C R O U F L E S S P
0011000 ( & W H O L E O R I G I N A L
0011020 & O P T I O N A L ( A R G 1
0011040 N I L A R G 1 G I V E N )
0011060 ( A R G 2 N I L A R G 2 G I
0011100 V E N ) & R E S T R E S T A
0011120 R G S ) \r ( i f ( O R ( N
0011140 O T A R G 1 G I V E N ) ( N
0011160 O T A R G 2 G I V E N ) R E
0011200 S T A R G S ) t h e n ( P R
0011220 I N T O U T T " * * * * * *
0011240 * * * * * * " T ) ( P R I N
0011260 T O U T T \r " I l l e g a l
0011300 a r g s t o U F L E S S P
0011320 " , , O R I G I N A L T
0011340 ) ( P R I N T O U T T " *
0011360 * * * * * * * * * * * " T ) )
0011400 ( L I S T ( Q U O T E U F
0011420 L E S S P 2 ) A R G 1 \r A R
0011440 G 2 ) ) \r ( P U T P R O P S U
0011460 F L E S S P 2 D M A C R O (
0011500 ( X Y ) ( ( O P C O D E S
0011520 S W A P U B F L O A T 2 5 )
0011540 ( \ F L O A T U N B O X X )
0011560 ( \ F L O A T U N B O X Y )
0011600 ) ) ) \r ( D E F M A C R O U F
0011620 M A X ( & O P T I O N A L (
0011640 A R G 1 N I L A R G 1 G I V
0011660 E N ) ( A R G 2 N I L A R
0011700 G 2 G I V E N ) & R E S T R
0011720 E S T A R G S ) ( i f ( N O
0011740 T \r A R G 1 G I V E N ) t h
0011760 e n ( Q U O T E M I N . F L
0012000 O A T ) e l s e i f ( N O T
0012020 A R G 2 G I V E N ) t h e n
0012040 ( B Q U O T E ( F L O A T
0012060 , A R G 1 ) ) e l s e i f
0012100 R E S T A R G S \r t h e n (
0012120 B Q U O T E ( U F M A X ( U
0012140 F M A X 2 , A R G 1 , A
0012160 R G 2 ) . , R E S T A R G S
0012200 ) ) e l s e ( L I S T ( Q
0012220 U O T E U F M A X 2 ) A R G
0012240 1 A R G 2 ) ) ) \r ( P U T P R
0012260 O P S U F M A X 2 D M A C R
0012300 O ( ( X Y ) ( \ F L O A T
0012320 B O X ( ( O P C O D E S U B
0012340 F L O A T 2 6 ) ( \ F L O A
0012360 T U N B O X X ) ( \ F L O A
0012400 T U N B O X Y ) ) ) ) ) \r ( D
0012420 E F M A C R O U F M I N ( &
0012440 O P T I O N A L ( A R G 1 N
0012460 I L A R G 1 G I V E N ) ( A
0012500 R G 2 N I L A R G 2 G I V E
0012520 N ) & R E S T R E S T A R G
0012540 S ) ( i f ( N O T \r A R G
0012560 1 G I V E N ) t h e n ( Q U
0012600 O T E M A X . F L O A T ) e
0012620 l s e i f ( N O T A R G 2 G
0012640 I V E N ) t h e n ( B Q U O
0012660 T E ( F L O A T , A R G 1
0012700 ) ) e l s e i f R E S T A R
0012720 G S \r t h e n ( B Q U O T E
0012740 ( U F M I N ( U F M I N 2
0012760 , A R G 1 , A R G 2 ) .
0013000 , R E S T A R G S ) ) e l s
0013020 e ( L I S T ( Q U O T E U
0013040 F M I N 2 ) A R G 1 A R G 2
0013060 ) ) ) \r ( P U T P R O P S U F
0013100 M I N 2 D M A C R O ( ( X
0013120 Y ) ( \ F L O A T B O X ( (
0013140 O P C O D E S U B F L O A T 2
0013160 7 ) ( \ F L O A T U N B O X
0013200 X ) ( \ F L O A T U N B O X
0013220 Y ) ) ) ) ) \r ( D E F M A C R
0013240 O U F M I N U S ( & W H O L
0013260 E O R I G I N A L & O P T I
0013300 O N A L ( A R G 1 N I L A
0013320 R G 1 G I V E N ) & R E S T
0013340 R E S T A R G S ) ( i f ( O
0013360 R ( N O T \r A R G 1 G I V E
0013400 N ) R E S T A R G S ) t h e
0013420 n ( P R I N T O U T T " *
0013440 * * * * * * * * * * * " T )
0013460 ( P R I N T O U T T " I l l
0013500 e g a l a r g s t o U F M
0013520 I N U S " , , \r O R I G I
0013540 N A L T ) ( P R I N T O U T
0013560 T " * * * * * * * * * * * *
0013600 " T ) ) ( L I S T ( Q U O
0013620 T E U F M I N U S 1 ) A R G
0013640 1 ) ) \r ( P U T P R O P S U F
0013660 M I N U S 1 D M A C R O ( (
0013700 X ) ( \ F L O A T B O X ( (
0013720 O P C O D E S U B F L O A T 1
0013740 3 ) ( \ F L O A T U N B O X
0013760 X ) ) ) ) ) \r ( D E F M A C R
0014000 O U F R E M A I N D E R ( &
0014020 W H O L E O R I G I N A L &
0014040 O P T I O N A L ( A R G 1 N
0014060 I L A R G 1 G I V E N ) ( A
0014100 R G 2 N I L A R G 2 G I V E
0014120 N ) & R E S T \r R E S T A R
0014140 G S ) ( i f ( O R ( N O T
0014160 A R G 1 G I V E N ) ( N O T
0014200 A R G 2 G I V E N ) R E S T
0014220 A R G S ) t h e n ( P R I N
0014240 T O U T T " * * * * * * * *
0014260 * * * * " T ) ( \r P R I N T
0014300 O U T T " I l l e g a l a
0014320 r g s t o U F R E M A I N D
0014340 E R " , , O R I G I N A L
0014360 ) ( P R I N T O U T T " *
0014400 * * * * * * * * * * * " T ) )
0014420 ( L I S T ( Q U O T E \r U
0014440 F R E M A I N D E R 2 ) A R G
0014460 1 A R G 2 ) ) \r ( P U T P R O
0014500 P S U F R E M A I N D E R 2
0014520 D M A C R O ( ( X Y ) ( \
0014540 F L O A T B O X ( ( O P C O D
0014560 E S U B F L O A T 2 8 ) (
0014600 \ F L O A T U N B O X X ) (
0014620 \ F L O A T U N B O X Y ) ) \r
0014640 ) ) ) \r ( M O V D ( Q U O T E
0014660 \ U N B O X F L O A T 1 . P A
0014700 T C H ) ( Q U O T E \ U N B
0014720 O X F L O A T 1 ) ) \r ( P U T P
0014740 R O P S U N B O X E D O P S
0014760 C O P Y R I G H T ( " X e r o
0015000 x C o r p o r a t i o n " 1
0015020 9 8 6 ) ) \r N I L \r
0015032