Interlisp.medley/internal/test/env/inspector/hand/inspect-allrec.tedit

Scripts for testing the record package (assuming currently in Common Lisp User package)
--------------------------------------------------------

Record type - Record

type:
(il:record record-test-name (alpha bravo gamma) (il:synonym alpha a) (il:type? (oddp (length il:datum))))
(setq record-test-record (il:create record-test-name alpha il:_ '(a b c) bravo il:_ "some string"))

type:
(inspect record-test-record)

choose "inspect"
--should produce a window with three numbered elements 1 (a b c), 2 "some string",  3  nil

x7
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿÿ÷÷ÿýÿÿÿÿÿÿ¿ÿÿîÿ÷ÿþÿÿÿÿÿÿÿÿÿîãôüxtÏÆ´x¾ÝÝó¾ï{·³6ï»r³·>Ýñ÷¾ÿ|w·vÇw··¾ÝÍ÷¾ÿ··vÿûw··¾ÝÝó¾ï{··vï»w··>îâôüxwwÇ—·¸¾îÿÿÿþÿÿÿÿÿÿÿÿ÷¿÷ÿÿýÿÿÿÿÿÿÿÿøÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

@€@€
Xà@
d
@D
@D
@d
@€Xà€€

P€P€lp
Ç‹,4P
"Tˆ"‚2L"Tø
‚"D"T€B"D"Tˆ"H"L€Tp
Áˆ"48€€‚€‚€‚€‚‚ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

type:
(inspect record-test-record)

choose "as a record"

choose "record-test-name"
--should produce a window with four elements where a and alpha have the same value.

’J
UUUUUUUUUUUUUUUUUU@ªªªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUU@_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¿ÿÿÿÿÿÿÿÿÿÿÿþÿÿÿûÿÀ_Ýÿßÿ÷ÿÿÿÿÿýþÿÿÿûoÀ_»ÿßÿûÿÿÿÿÿýÿÿÿÿÿwÀ¿»<C2BF>Ñü{ñáÓ<RÑâú;wÀ¿wwÎû½îÞÌÛ¾íÊÎÜùÛ{À_wÇÞûýñÞÝØ?ÞÞÞûÛ{À_w7ÞûýþÞÝÛÿíÞÞÞûÛ{À¿wwÎû½îÞÝÛ¾íÞÞÜûÛ{À¿»‹Ñü{ñáÝÜ^ÞâûÛwÀ_»ÿÿÿûÿÿÿÿÿÿÿÿÞÿÿ÷À_Ýÿÿÿ÷ÿÿÿÿÿÿÿÿáÿÿïÀ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¸@X@X€€@¸
 @@¸
 @@X,p @X€2ˆ @¸€"€ @¸"€"€ @X"€2ˆ @X
€,p@@¸
@@¸€€@X@X@¸
@¸@X8Ù±À‡@X&©P A@¸"<©QàA@¸"D©R A@X&D©R A@X<©QàA@¸@¸@X@X@¸ €
(@¸ €
(@X,XqÀ‡68ãŇ(@X2d	 ‘*D
A&@¸"@x¢ *|Á
"@¸"@ˆ¢ 
*@!
"@X2@ˆB ‘*D
$
&@X,@xAÀ*8àÄ
@¸@¸@X@X€€@¸8

 @@¸

 @@X±aÀ,p @XÉ<> €2ˆ @¸‰à€"€ @¸"‰ €"€ @X"É €2ˆ @X±à
€,p@@¸€
@@¸€€€@X@X@¸@¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀUUUUUUUUUUUUUUUUUU@ªªªªªªªªªªªªªªªªªª€

type:
(inspect record-test-record 'record-test-name)
--should produce a window identical to the one in the previous step.

type:
(ed 'record-test-name 'records)

delete gamma from the element list.

type cntl-x to save edit.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with three elements where a and alpha have the same value and there is no gamma.

return to the edit window and type gamma back in where it belongs. 

type cntl-x to save again.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with four elements where a and alpha have the same value and gamma is returned to the list

close the edit window

type:
(in-package 'interlisp)

type:
(inspect user::record-test-record 'user::record-test-name)
--should produce a window with four elements where user::a and user::alpha have the same value.All the values in the list (for a and alpha) are qualified as user.


H
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUP_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿЯÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿè¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿè_îÿïÿûÿÿÿÿÿþÿÿÿý·þÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÐ_Ýÿïÿýÿÿÿÿÿþÿÿÿÿÿ»þÿÿÿÿþÿÿÿÿÿÿÿÿÿÿЯÝÇèþ=øðéž?Œ)hñ}»þÑã£ÇŒ0éÿÿÿÿÿÿÿÿ读»ç}Þ÷ofmßvågn|í½þÎÝ<C38E>»vïeÿÿÿÿÿÿÿÿè_»ãï}þøïnìŽïoo}í½þÞ㽃~ïoÿÿÿÿÿÿÿÿÐ_»›ï}þÿoníÿöïoo}í½þÞý½¿~ïoÿÿÿÿÿÿÿÿЯ»»ç}Þ÷oníßvïon}í½þÞÝ<C39E>»vïoÿÿÿÿÿÿÿÿè¯ÝÅèþ=øðîî?<3F>/oq}í»þÞã£Ç<C2A3>0ïÿÿÿÿÿÿÿÿè_Ýÿÿÿýÿÿÿÿÿÿÿÿïÿûÿÿÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿÐ_îÿÿÿûÿÿÿÿÿÿÿÿðÿÿ÷ÿÿÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿЯÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿè¬è\Ð\@Ь @ è¬ @ è\8°@ƒ€AË8
ËX
Ë8Ð\"DÈ@€@A$L„
$L„d
$L„DЬ|€ÀA‡È<
‡ÈD
‡È@è¬@€@ADD
DD
D@è\"D€@„@A2$HD
2$Hd
2$HDÐ\
8€@ƒÀ ÑÈ<ÑÈXÑÈ8 Ь  è¬@è\Ð\Ь!Àè¬@è\8°@ƒG68°à@Ð\"DÈ@„À•*È @Ь|€G•*<ˆ @è¬@€H•*Dˆ @è\"D€@„È•*Dˆ @Ð\
8€@ƒG•*<ˆ @Ь@謀è\Ð\ЬP è¬P è\8°@…‹"8PáÆÇx°âÃEÐ\"DÈ@†L<E280A0>"D
%H€" È#$ÀЬ|€HDÂ%O€ €"$@è¬@€HD"%H €"$@è\"D€@†HD
%H€"$€"$ÀÐ\
8€@…ˆ8áÅG€"#@Ь@謀è\Ð\@Ь  @ è¬
  @ è\8°@ƒ<>,8AË8
ËX
Ë8Ð\"DÈ@€A2A$L„
$L„d
$L„DЬ|€Á"<A‡È<
‡ÈD
‡È@è¬@€A"DADD
DD
D@è\"D€@„A"DA2$HD
2$Hd
2$HDÐ\
8€@ƒÁ"< ÑÈ<ÑÈXÑÈ8 Ь  è¬@è\Ð\Ьè¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿè_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª¨

type:
(cl:in-package 'user)

type:
(il:replace (record-test-name gamma) il:of record-test-record il:with '(a (b (c (d (e (f (g))))))))
(inspect record-test-record)

select inspect

-should get:

B
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿþ¿ÿÿÿÿÿÿÿÿÿÿÿýÿÿþ¿»ÿ¿ÿïÿÿÿÿÿûýÿÿüwÿ¿ÿ÷ÿÿÿÿÿûÿÿÿúw£ø÷ãæxþ0¥£Åú¾îï<C3AE>÷{ݽ™·}Û•<C39B>¹ö¾ï<C2BE>½÷ûã½»°~;½½½ö~îo½÷ûý½»·ÿÛ½½½ö~îï<C3AE>÷{ݽ»·}Û½½¹ö¿w£ø÷ãû¸þ<½½Åú¿wÿÿÿ÷ÿÿÿÿÿÿÿÿ½ú»ÿÿÿïÿÿÿÿÿÿÿÿÃüÿÿÿÿÿÿÿÿÿÿÿÿÿÿþ°°pp°0°P pÀp  ‚p x ° ˆ ° ˆ ‚p|xÀp°°pp8(†°D(†°D(pãc€<Xqa¢†p‰¤@d’`pa§À@ ° ¤@ °@‰¤@@`p|p⣀@ p °
À°p@ p8„°D„° p
€„p8 
@
p x
@
° ˆ
@?°D ˆ
@p8x…€p€°@ °pp¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿþ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿþUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª

type:
(setq il:inspectprintlevel '(5 . 5))
(inspect record-test-record)

select inspect

-should get:

€?
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿÿÿÿÿÿÿÿÿÿÿþÿÿÿ¿Ýÿßÿ÷ÿÿÿÿÿýþÿÿþ_»ÿßÿûÿÿÿÿÿýÿÿÿý_»<5F>Ñü{ñáÓ<RÑâý¿wwÎû½îÞÌÛ¾íÊÎÜû¿wÇÞûýñÞÝØ?ÞÞÞû_w7ÞûýþÞÝÛÿíÞÞÞû_wwÎû½îÞÝÛ¾íÞÞÜû¿»‹Ñü{ñáÝÜ^Þâý¿»ÿÿÿûÿÿÿÿÿÿÿÿÞý_Ýÿÿÿ÷ÿÿÿÿÿÿÿÿáþ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¸¸XX
¸
¸(8
`<03>X
<01>AX<

¸D

¸D
<01>AX><
`‚X¸¸XX
C¸"
C¸"8q±À,8°ÑCXD‰R ˆ2É0X0‰Sà ‰¸‰R
 ‰¸ D‰R ‰ ‰0X>8qQÀ ˆÐX¸à¸X 
CXBƒ¸"Bƒ¸8‚À h
Xƒ  ˜
X<‚  ˆ
¸D‚  ˆ
¸"Dƒ  ˜
X<BÀhƒX@ƒ¸ 
C¸XX¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUªªªªªªªªªªªªªªªª

type:
(setq il:inspectprintlevel '(5 . 1))
(inspect record-test-record)

select inspect

-should get:

<00>C
ªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€_ÿÿÿÿÿÿÿÿÿÿÿþÿÿÿ_Ýÿßÿ÷ÿÿÿÿÿýþÿÿþ¿»ÿßÿûÿÿÿÿÿýÿÿÿý€¿»<C2BF>Ñü{ñáÓ<RÑâý€_wwÎû½îÞÌÛ¾íÊÎÜû_wÇÞûýñÞÝØ?ÞÞÞû¿w7ÞûýþÞÝÛÿíÞÞÞû€¿wwÎû½îÞÝÛ¾íÞÞÜû€_»‹Ñü{ñáÝÜ^Þâý_»ÿÿÿûÿÿÿÿÿÿÿÿÞý¿Ýÿÿÿ÷ÿÿÿÿÿÿÿÿáþ€¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€XX¸€¸€XX(8
¸
€¸<
€XD
XD@<40>
¸><@<40>€¸€XX¸€¸
C€X"
CX"8q±À,8°ÑC¸D‰R ˆ2É0€¸0‰Sà ‰€X‰R
 ‰X D‰R ‰ ‰0¸>8qQÀ ˆÐ€¸€XàX¸€¸€X"X8
¸
€¸<
€XD
X"D@<40>
¸<@<40>€¸€XX¸€¸€_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU

type:
(setq il:inspectprintlevel '(2 . 5))


--------------------------------------------------------
Record type -Typerecord


type:
(il:typerecord record-test-name (alpha bravo gamma) (il:synonym alpha a) )
(setq record-test-record (il:create record-test-name alpha il:_ '(a b c) bravo il:_ "some string"))

type:
(inspect record-test-record)

choose "inspect"
--should produce a window with four numbered elements  1 record-test-name 2  (a b c), 3 "some string",  4   nil

œL
UUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªªª ªªªªªªªªªªªªªªªªªªª UÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÐUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿЫÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ «ýÿÿÿÿû÷ÿýÿÿÿÿÿ÷ÿÿ Uûÿÿÿÿû÷ÿýÿÿÿÿÿïÿÿÐUûLxðé‹á<E280B9>}:g<>î?GñЫ÷+·oes÷víüíÙ›wÝß;î «÷x7ïo{÷ýï»ß{ï U÷{÷ïo{7íÍìÛ»Üß{ïÐU÷{·oos÷víýíÛ»wÝß;îЫû|xðï‹ù<E280B9>}î+»<>î/Gñ «ûÿÿÿÿÿÿÿÿÿÿÿÿÿïÿÿÿ Uýÿÿÿÿÿÿÿÿÿÿÿÿÿ÷ÿÿÿÐUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿЫ€
 «€
 U€
ÐU€€
Ы<C390>€€
 «‚€Ç,4
áÃ<C3A1>,8Øá U€€$H‘2L‚$D2©ÐU€€È Døƒã"<©ñЫ€€ D‚„"D©
 «€€H‘ L’$D€"D© Uƒà‡ 4aÃ"<¨áÐU€
Ы€
 «€
 U€@@
ÐU<C390>À€ 
Ы‚ € 
 «‚ 
€8
 U€@
@D
ÐU€€
À@
Ы<C390>
@@
 «‚
@D
 UƒàƒÀ8 
ÐU€€ 
Ы€@@
 «€
 U€
ÐU<C390>À
@€
Ы‚ 
@€
 «€ 
C‡qâË

 U<C2A0>ÀH•"ˆƒ Œ“
ÐU€ •>`‚ˆ‘
Ы€ ˆ• ‚ˆ‘
 «‚ H•"ˆ’ˆ“
 U<C2A0>À‡pbˆ<>
ÐU€

Ы€
 «€
 U€
ÐU€À‡
Ы<C390>@

 «<C2A0>@Ã<>
 U‚@ <20>
ÐU‚@ <20>
Ыƒà <20>
 «€@ <20>
 U€@ <20>
ÐU€
Ы€
 «€
 U€
ÐU€
Ыÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ «ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ UUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªªª ªªªªªªªªªªªªªªªªªªª UUUUUUUUUUUUUUUUUUUP

type:
(setq il:maxinspectcdrlevel 2)
(inspect record-test-record)

choose "inspect"
--should produce a window with two numbered elements similar to  the previos step and the elements number 3 and 4 in a list labled il:&&

type:
(setq il:maxinspectcdrlevel 50)


type:
(inspect record-test-record)

choose "as a record"

choose "record-test-name"
--should produce a window with four elements where a and alpha have the same value.

<00>Q
ªªªªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUUUUPUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPªÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ªÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨Uþÿÿÿÿýûÿþÿÿÿÿÿûÿ¿ÿPUýÿÿÿÿýûÿþÿÿÿÿÿ÷ÿ¿ÿPªý¦<xtÅðÇŒ><3E>3Ç÷£ø¨ªû•Û·²¹û»vþvìÍ»îï<C3AE>÷¨Uû¼÷·½ûƒŽþ÷<C3BE>݃ï<C692>½÷PUû½û÷·½›¿öæömÝ¿îo½÷Pªû½Û··¹û»vþöíÝ»îï<C3AE>÷¨ªý¾<xwÅüÇ<C3BC>>÷ÝÇ÷£ø¨Uýÿÿÿÿÿÿÿÿÿÿÿÿÿ÷ÿÿÿPUþÿÿÿÿÿÿÿÿÿÿÿÿÿûÿÿÿPªÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨ªÀ¨UÀPUÀPªÀ
¨ªÀ
¨UÀà8
`<03>PUÀ
<01>APªÀð<

¨ªÁD

¨UÁD
<01>APUÀð<
`‚PªÀ¨ªÀ¨UÀPUÀPªÀp¨ªÀ¨UÀÑÆÍŽ,8PUÁ0%J<>2PªÁåJ<C3A5>"¨ªÁ%J‘"¨UÁ2%J‘"PUÀÑåJ<C3A5>"PªÀ¨ªÀà¨UÀPUÀPªÁ
C¨ªÁ
C¨UÁbÈŽ8q±À,8°ÑCPUÁ“ H‘D‰R ˆ2É0PªÁÅ0‰Sà ‰¨ªÁE‰R
 ‰¨UÁ’BD‰R ‰ ‰0PUÁbÂ8qQÀ ˆÐPªÀ¨ªÀà¨UÀPUÀPªÀ
À
¨ªÀ@
¨UÀàE‹8
`<03>PUÀFL<46>
<01>APªÀðDH<44><

¨ªÁDH‘D

¨UÁFH‘D
<01>APUÀðEˆ<45><
`‚PªÀ¨ªÀ¨UÀPUÀPªÀ¨ªÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¨UÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿPUUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªªª¨

type:
(inspect record-test-record)

choose "as record-test-name"
--should produce a window identical to the one in the previous step.

type:
(inspect record-test-record 'record-test-name)
--should produce a window identical to the one in the previous step.

type:
(ed 'record-test-name 'records)

delete gamma from the element list.

type cntl-x to save edit.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with three elements where a and alpha have the same value and there is no gamma.

return to the edit window and type gamma back in where it belongs. 

type cntl-x to save again.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with four elements where a and alpha have the same value and gamma is returned to the list

close the edit window

type:
(in-package 'interlisp)

type:
(inspect user::record-test-record 'user::record-test-name)
--should produce a window with four elements where user::a and user::alpha have the same value.All the values in the list (for a and alpha) are qualified as user.


J
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª€_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¿ÿÿþÿÿÿÿ€¿ßÿÿÿÿ¿ÿßÿÿÿÿÿ÷ÿýÿÿÿÿÿÿ¿ÿÿþÛÿÿ€_¿ÿÿÿÿ¿ÿßÿÿÿÿþÿ÷ÿþÿÿÿÿÿÿÿÿÿÿÝÿÿÀ_´Ç<C2B4>˜¾ñ‡Ñã¦xþãôüxtÏÆ´x¾ŽÝÿhñÀ¿r»vöW?wnßÎÝ™·}Ýó¾ï{·³6ï»r³·>vÞÿgn€¿wƒ~ö÷¿pqßÞñ»°}ñ÷¾ÿ|w·vÇw··¾öÞÿoq€_w¿~ö÷³wþÜÞÍ»·ýÍ÷¾ÿ··vÿûw··¾öÞÿo~À_w»vö÷?wnßÞÝ»·}Ýó¾ï{··vï»w··>öÞÿonÀ¿·Ç<C2B7>ø¿˜ñçÞ⻸þâôüxwwÇ—·¸¾öÝÿoq€¿¿ÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿ÷¿ÿýÿÿÿ€_ßÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿÿÿÿÿÿøÿûÿÿÿÀ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¸
€¸
€X <00>ÀX@€AÀ¸@€A€¸"8q`<60>‚#‡p#‡°#‡p!€X"D‰<44><E280B0>€‚$H™$H™È$H™ˆ!ÀX"0ù€‚#<0F>x#<0F>ˆ#<0F>€!À¸"<08>€‚ ˆˆ ˆˆ ˆ€!€¸&D‰<00>€‚dH<64>ˆdH<64>ÈdH<64>ˆ!€X8q<00>€A£‡x
£‡°
£‡pAÀX@AÀ¸ <00>€¸
€X
ÀXC€
À¸€
€¸"8q`<60>Ž6lp
a
€X"D‰<44><E280B0>	<09>*T
<01>@€
ÀX"0ù<08>*Tx
@€
À¸"<08>‘*Tˆ
@€
€¸&D‰<00>	‘*Tˆ
@€
€X8q<00><06>*Tx
@€
ÀX€
À¸
€¸
€X
ÀX @

À¸ @

€¸"8q`<60>Dp¡Ã<C2A1>Ž8ñaņŠ
€X"D‰<44><E280B0>™Dˆ$J‘DA<44>FI€
ÀX"0ù<08>(ˆ
„JŸ0ADH€
À¸"<08><08>"(ˆDJ<44>ADH€
€¸&D‰<00><0C>"ˆ$J‘DIDI€
€X8q<00>p
ÊŽ81DF€
ÀX€
À¸
€¸
€X <00>ÀX@@€AÀ¸@@€A€¸"8q`<60>,Xp‚#‡p#‡°#‡p!€X"D‰<44><E280B0>‚2d‚$H™$H™È$H™ˆ!ÀX"0ù‚"Dx‚#<0F>x#<0F>ˆ#<0F>€!À¸"<08>‚"Dˆ‚ ˆˆ ˆˆ ˆ€!€¸&D‰<00>‚2Dˆ‚dH<64>ˆdH<64>ÈdH<64>ˆ!€X8q<00>‚,DxA£‡x
£‡°
£‡pAÀX @AÀ¸  <00>€¸
€X
ÀX
À¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª€
type:
(cl:in-package 'user)

-----------------------------------------------------------
  
Record type - Proprecord

type:
(il:proprecord record-test-name (alpha bravo gamma) (il:synonym alpha a) (il:type? (evenp (length il:datum))))
(setq record-test-record (il:create record-test-name alpha il:_ '(a b c) bravo il:_ "some string"))

type:
(inspect record-test-record)

choose "inspect"
--should produce a window with four numbered elements 1 alpha, 2 (a b c), 3 bravo , 4 "some string".

<00>M
UUUUUUUUUUUUUUUUªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_ßïýÿÿßýÿÿ~ÿÿÿÿÿ¿¿ïýÿÿ¿ýÿÿ¾ÿÿÿÿÿ€¿¸í?¸ýǾŽ˜îáü€_wlìíßw|ï»ÞvWnÞû_|míï|}ï¿ÞöüuÞü¿smíìßs}ï¿ÞöóuÞÿ€¿wlííßw|ï»Þv÷{Þû€_¸­î/¸½ǾŽø»áü_¿ýÿÿÿ¿ÿÿÿ¿ÿÿÿÿÿ¿ßýÿÿÿßÿÿÿÿÿÿÿÿ€¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€XX¸€¸8
€X
X(±aÀ¸É<> €¸‰à€X"‰ X"É ¸>±à€¸€€X€X¸€¸
€X"
X"8
`<03>¸
<01>A€¸<

€XD

X D
<01>A¸><
`‚€¸€XX¸€¸ €X" X,XqÀ¸2d	 €¸"@x¢ €X"@ˆ¢ X"2@ˆB ¸,@xAÀ€¸€XX¸€¸
C€X
CX8q±À,8°ÑC¸$D‰R ˆ2É0€¸$0‰Sà ‰€X>‰R
 ‰XD‰R ‰ ‰0¸8qQÀ ˆÐ€¸€XàX¸€¸€_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
type:
(inspect record-test-record)

choose "as a PLIST"
--should produce a window with two elements, alpha and bravo with their associated values.

–2
ªªªªªªªªªªªªªªªªªª¨¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿü¯÷ûÿÿ÷ÿÿß¿ÿÿÿÿÿÿø¯ïûÿÿïÿÿï¿ÿÿÿÿÿÿøWî;GG<47>î?Gñ;¸4WÝÛ;;wÝß;î÷<C3AE>•Û·¾íì̯ß{{Çß{ï÷½¿w¿íدÜÛ{{7Üß{ï÷½¼Ýw¿ííØWÝÛ;{wÝß;î÷<C3AE>½Þ÷¾ííÜWî+G{‹î/Gñ.øܯïÿÿÿïÿÿÿïÿÿÿÿÿÿÿø¯÷ÿÿÿ÷ÿÿÿßÿÿÿÿÿÿÿøWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüV®®  V@@V@@®,Xp<00>À®‚2d€ €"V‚"Dx<00>à€ V‚"Dˆ‚ € ®‚2Dˆ‚ €"®‚,DxAàV @V   ®®V @
V @
®Dp¡Ã<C2A1>Ž8ñaņŠ®™Dˆ$J‘DA<44>FI€V<08>(ˆ
„JŸ0ADH€V<08>"(ˆDJ<44>ADH€®<0C>"ˆ$J‘DIDI€®p
ÊŽ81DF€V€V®®VWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿü¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøªªªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªªªª¨

type:
(inspect record-test-record 'record-test-name)
--should produce a window with four elements where a and alpha have the same value.

•J
UUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªªªª¨_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿè¿ßïýÿÿßýÿÿ~ÿÿÿÿÿÿÿè_¿ïýÿÿ¿ýÿÿ¾ÿÿÿÿÿÿÿð_¸í?¸ýǾŽ˜îáüxtпwlìíßw|ï»ÞvWnÞû·³(¿|míï|}ï¿ÞöüuÞüw·h_smíìßs}ï¿ÞöóuÞÿ··p_wlííßw|ï»Þv÷{Þû··p¿¸­î/¸½ǾŽø»áüxwh¿¿ýÿÿÿ¿ÿÿÿ¿ÿÿÿÿÿÿÿè_ßýÿÿÿßÿÿÿÿÿÿÿÿÿÿð_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð¸h¸hX€€pX
 @p¸
 @h¸,p hX€2ˆ pX€"€ p¸"€"€ h¸"€2ˆ hX
€,p@pX
@p¸€€h¸hX€€pX8

 @p¸

 @h¸±aÀ,p hXÉ<> €2ˆ pX‰à€"€ p¸"‰ €"€ h¸"É €2ˆ hX±à
€,p@pX€
@p¸€€€h¸hXpX €
(p¸ €
(h¸,XqÀ‡68ãŇ(hX2d	 ‘*D
A&pX"@x¢ *|Á
"p¸"@ˆ¢ 
*@!
"h¸2@ˆB ‘*D
$
&hX,@xAÀ*8àÄ
pXp¸h¸hXpX
p¸h¸8Ù±À‡hX&©P ApX"<©QàAp¸"D©R Ah¸&D©R AhX<©QàApXp¸h¸hXpXp¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿè¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿèUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªª¨

type:
(ed 'record-test-name 'records)

delete gamma from the element list.

type cntl-x to save edit.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with three elements where a and alpha have the same value and there is no gamma.

return to the edit window and type gamma back in where it belongs. 

type cntl-x to save again.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with four elements where a and alpha have the same value and gamma is returned to the list


close the edit window

type:
(in-package 'interlisp)

type:
(inspect user::record-test-record 'user::record-test-name)
--should produce a window with four elements where user::a and user::alpha have the same value.All the values in the list (for a and alpha) are qualified as user.



L
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª¨UÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüªÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿÿÿÿÿÿÿÿÿüªþÿïÿþÿïÿû÷ÿÿÿÿÿÿÿÿÿûýÿÿ¿÷ÿÿÿÿ÷ÿÿüUýÿïÿýÿïÿý÷ÿÿÿÿÿÿÿÿÿûÿÿÿß÷ÿÿÿÿ÷ÿÿüUýÇhèñýÇèþ=ôtÇwãæxþ0¥£Åßö<C39F><a‡Oüªû»ggnû»ç}Þó²»v÷ݽ™·}Û•<C39B>¹ïövìíÛ·{/üªûãooxûãï}þ÷·ã®÷ã½»°~;½½½ïö÷ì÷{üUû›oofû›ï}þ÷·›®÷ý½»·ÿÛ½½½ïö÷ííû÷{üUû»gonû»ç}Þó·»Þ÷ݽ»·}Û½½¹ïööìíÛ·{üªýÅhïq}Åèþ=ôwÅßãû¸þ<½½Åßö÷<y‡üªýÿïÿÿýÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿ½ßÿÿýÿÿÿÿÿüUþÿïÿÿþÿÿÿûÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿÿÿüUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüªÀªÀUÀ
UÀªÀªÁË88°@ƒ€8°@…€8°@ƒ<>UÁ$L„"DÈ@€@"DÈ@†@"DÈ@„AUÁ‡È<|€À|€@|€
ªÁDD@€@@€@@€
ªÁ2$HD"D€@„@"D€@†@"D€@„AUÀÑÈ<
8€@ƒÀ
8€@…€
8€@ƒ‚UÀªÀ
ªÀUÀ
UÀpªÀªÁË8bÀ8°@ƒ€8°@…€8°@ƒ<>UÁ$L„“ @"DÈ@€@"DÈ@†@"DÈ@„AUÁ‡È<#À|€À|€@|€
ªÁDD$@@€@@€@@€
ªÁ2$HD’$@"D€@„@"D€@†@"D€@„AUÀÑÈ<b#À
8€@ƒÀ
8€@…€
8€@ƒ‚UÀ
ªÀ

ªÀUÀUÀ@PªÀ@PªÁËX°â#€lp
Ç‹,4PUÁ$L„dÈ$@"Tˆ"‚2LUÁ‡ÈD€ñD@"Tø
‚"DªÁDD<>D@"T€B"DªÁ2$Hd<>„@"Tˆ"H"LUÀÑÈX€ðƒ€Tp
Áˆ"4UÀªÀ8ªÀUÀUÀªÀªÁË4q³c€UÁ$L„L	R @‚UÁ‡ÈDyR£À‚ªÁDD‰R¤@‚ªÁ2$HL‰R¤@‚UÀÑÈ4yR£À‚UÀªÀ8ªÀUÀUÀªÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüªÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª¨
type:
(cl:in-package 'user)

----------------------------------------------------------

Record type - Datatype

type:
(il:datatype record-test-name (alpha bravo gamma) (il:synonym alpha a))
(setq record-test-record (il:create record-test-name alpha il:_ '(a b c) bravo il:_ "some string"))

type:
(inspect record-test-record)

choose "inspect"
--should produce a window with four elements where a and alpha have the same value.

˜O
ªªªªªªªªªªæUUUUUUUUUUfUUUUUUUUUUfªªªªªªªªªªæªªªªªªªªªªæÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÀ¿öÿ¿ÿÿÿÿß¿ÿïÿÿÿÿÿŸöÿÿÿÿÿß¿ÿïÿÿÿÿÿ€€>úcLJL_xÃèñÓ<pÀ¿íýù]»{+Ÿ»·oçnÌÛ¾îÀ¿íýûÁ¿{{߸8ïïxÝØ>ÝÀ~ûß¿{{Ù»ÿnofÝÛþÝ€Ûÿ{Ý»{{Ÿ»·oïnÝÛ¿b@¿Ûÿ»ãLJ|_Ìxóïq]ÜÀ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŸÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ°À°Àp

Àp@€À°@€À°8Xà@Àp
d
@Àp<D
@À°DD
@À°Dd
@Àp<Xà€Àp€À°

À°Àp

Àpp@€À°@€À°8bÀXà@Àp“ @
d
@Àp<#ÀD
@À°D$@D
@À°D’$@d
@Àp<b#ÀXà€Àp
€À°


À°ÀpÀp@PÀ°@PÀ°X°â#€lp
Ç‹,4PÀpdÈ$@"Tˆ"‚2LÀpD€ñD@"Tø
‚"DÀ°D<C2B0>D@"T€B"DÀ°d<C2B0>„@"Tˆ"H"LÀpX€ðƒ€Tp
Áˆ"4ÀpÀ°8À°ÀpÀpÀ°À°4q³c€ÀpL	R @‚ÀpDyR£À‚À°D‰R¤@‚À°L‰R¤@‚Àp4yR£À‚ÀpÀ°8À°ÀpÀpÀ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀUUUUUUUUUUfUUUUUUUUUUfªªªªªªªªªªæªªªªªªªªªªæUUUUUUUUUUfUUUUUUUUUUf

type:
(inspect record-test-record 'record-test-name)
--should produce a window identical to the one in the previous step.

type:
(in-package 'interlisp)

type:
(inspect user::record-test-record 'user::record-test-name)
--should produce a window with four elements where user::a and user::alpha have the same value.All the values in the list (for a and alpha) are qualified as user.



E
UUX,p `ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀþß÷ÿÿÿÿû÷ÿýÿÿÿÿÿóçøàáø<àÁÇýÿÿÿÿýÀþßïÿÿÿÿû÷ÿýÿÿÿÿÿï÷÷~ïÿ¼þý»¿ýÿÿÿÿýÀðßLxðé‹á<E280B9>}:g<>îÿ}Ãÿzýû»ßý£ÇG<C387>@ý¿¿+·oes÷víüíÙ›wÝÛüûÝþúû÷»ïý<C3AF>»;víÀý¿¿x7ïo{÷ýï»Û»ÿ{ýþöû÷»ïý½Ç{ýÀàß{÷ïo{7íÍìÛ»Û·ÿwýýðwï»ßý½û{~ýÀûï{·oos÷víýíÛ»wìO÷wÝýþ÷ý½»;víÀû÷|xðï‹ù<E280B9>}î+»<>ïûø÷ã<C3B7>þ÷ïÇý½ÇG<C387>@ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿóçÿÿÿßÿÿÿÿÿÿÿÿÿÿÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿÿÿ¿ÿÿÿÿÿÿÿÿÿÿÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ@@ @ @ @ŽX AÀ ˆáÅ‚ˆáÅ‚,ˆáÅ‚@‘"d @  ‰&B‰&B2‰&B"@Œ>@
à ˆÃäˆÃä"ˆÃä @‚ @  ˆ""ˆ""ˆ" @	‘"@ B  ™$"™$2™$"@Ž@ AàháÄháÄ,háÄ@@ @@ @€ @€ @ŽX AÀ‹ ˆáÅ‚ˆáÅ‚,ˆáÅ‚@‘"d @ Œ™ ‰&B‰&B2‰&B"@Œ>@
àˆ‘ ˆÃäˆÃä"ˆÃä @‚ @ ˆ‘" ˆ""ˆ""ˆ" @	‘"@ B Œ‘" ™$"™$2™$"@Ž@ Aà‹háÄháÄ,háÄ@@ @@@(€@(€@ŽX BŇ(pãc€<Xqa¢€@‘"d C&@‘"‰¤@d’`@Œ>@$Š"a§À@ @‚ @$Š"¤@ @	‘"@ C$„"‰¤@@`@Ž@ BÄ„p⣀@ @ @
À@@@à@ @ŽX A£<41>›Xp @‘"d B`J•d @Œ>@#Ê•D @‚ @$J•"D @	‘"@ BdJ•"D @Ž@ A£Ê•D @ @
À@@@@ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ

type:
(cl:in-package 'user)

-----------------------------------------------------------
Record type - Arrayrecord

type:
(il:arrayrecord record-test-name (alpha bravo gamma) (il:synonym alpha a) (il:type? (cond (il:datum t))))
(setq record-test-record (il:create record-test-name alpha il:_ '(a b c) bravo il:_ "some string"))

type:
(inspect record-test-record)
--should produce a window with three numbered elements 1 (a b c), 2 "some string", 3   nil

}@
UUUUUUUUUUUUUUUPªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿÿÿÿÿÿÿÿÿƒÿÿÿÿÿøÿÛþÿÿÿÿÿþ|ÿ?ïØÿÛýÿÿÿÿÿýþþï߿ϘþûñÒ˜îÑýÃï¿ÿ·÷îÊWnÎû»Ÿ~ÿïØÿ·÷øÞüuÞûwï~ÿïØü
ûæÞóuÞûvÿîýÿïØÿoýîÞ÷{Îý‰þîýÿïØÿoþñ^ø»ÑýÿýóïØÿÿÿÿÿÿûßþ|ÿÿÿûÿøÿÿÿÿÿÿçßÿƒÿÿÿ÷ÿøÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÀÀÀ  À@@ÀÀ@Á@<00>ÀÀ@€ €"À@<00>à€ À@‚ € À@‚ €"ÁðAàÀ@À  ÀÀÀà @
Á @
Á¡Ã<C2A1>Ž8ñaņŠÀ $J‘DA<44>FI€À@
„JŸ0ADH€À€DJ<44>ADH€Á$J‘DIDI€Áð
ÊŽ81DF€À€ÀÀÀÀàC€Á€À
aÀ€Àà
<01>@€À
@€À
@€Á
@€Àà
@€ÀÀÀÀÀÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUP

type:
(setq il:maxinspectarraylevel 2)
(inspect record-test-record)

-should produce a window similar to the previous one but with only two elements showing.

type:
(setq il:maxinspectarraylevel 300)

type:
(inspect record-test-record 'record-test-name)
--should produce a window with four elements where a and alpha have the same value.


•N
UUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUUUPWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø¯ÿÿÿÿÿÿÿÿüÿÿÿÿÿÿÿøWþß÷ÿÿÿÿÿóçøàÁÿ~ðûàWþßïÿÿÿÿÿï÷÷~ýþ|÷óà¯ðߎ”Çv<C387>îÿ}ûøpáÃЯý¿¿vR»vwÝÛüû÷ÿ~îûÐWý¿¿Æ÷ã®÷Û»ÿ{÷ÿ~þû°Wàß6÷›®÷Û·ÿwïÿ~þû€¯ûïv÷»ÞwìO÷wïÿ~îûð¯û÷Š÷ÅÞ<C385>ïûø÷ïŸ~ñûðWÿÿÿÿÿÿÞÿóçÿÿÿßÿÿÿøWÿÿÿÿÿÿ>ÿüÿÿÿ¿ÿÿÿø¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø®VV  ®@®@V<00>ÀV€€ €"®€<00>à€ ®€‚ € V€‚ €"V€Aà®@®  VV®C€®€VŽ6lp
aV	<09>*T
<01>@€®<08>*Tx
@€®‘*Tˆ
@€V	‘*Tˆ
@€V<06>*Tx
@€®€®VV® @
® @
VDp¡Ã<C2A1>Ž8ñaņŠV™Dˆ$J‘DA<44>FI€®<08>(ˆ
„JŸ0ADH€®<08>"(ˆDJ<44>ADH€V<0C>"ˆ$J‘DIDI€Vp
ÊŽ81DF€®€®VV  ®@@®@@V,Xp<00>ÀV‚2d€ €"®‚"Dx<00>à€ ®‚"Dˆ‚ € V‚2Dˆ‚ €"V‚,DxAà® @®   VV®¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøUUUUUUUUUUUUUUUUUUP
`
type:
(ed 'record-test-name 'records)

delete gamma from the element list.

type cntl-x to save edit.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with three elements where a and alpha have the same value and there is no gamma.

return to the edit window and type gamma back in where it belongs. 

type cntl-x to save again.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with four elements where a and alpha have the same value and gamma is returned to the list

close the edit window

type:
(in-package 'interlisp)

type:
(inspect user::record-test-record 'user::record-test-name)
--should produce a window with four elements where user::a and user::alpha have the same value.All the values in the list (for a and alpha) are qualified as user.


O
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€¿ÿÿÿÿÿÿÿÿàÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€öÿ¿ÿÿÿÿÿŸ?Çû÷‡ß;ÿïÿÿÿÿïÿÿÿÿÿÿÿÿ@öÿÿÿÿÿÿ¿»÷ïóç¿Ÿ=ÿïÿÿÿÿïÿÿÿÿÿÿÿÿ@¿€>üt¦;´pßûïßǾÿí:<xßÿÿÿÿÿÿ€¿íýû²•Û³¾îßçß¿û÷wÞ¿ìíÙÛ·nö_ÿÿÿÿÿÿ€íýþ7¿w¾Ýßûß¿û÷÷Ý¿íî;Ø7îöÿÿÿÿÿÿÿ@~ù·¼Ýw¾Ý¿û¿û÷÷ÜÿíïÛÛ÷îöÿÿÿÿÿÿÿ@¿Ûÿ{·½Þó¿b»¿û÷wß½ÿííÙÛ·nöÿÿÿÿÿÿÿ€¿Ûÿ¼W¾.ôßÇ¿|û÷<C3BB>ß»ÿíî:<xóÿÿÿÿÿÿÿ€ÿÿÿÿÿþ÷ÿŸ?ÿÿþÿÿÿÿÿÿÿÿûÿÿÿÿÿÿÿÿÿÿÿ@ÿÿÿÿÿù÷ÿàÿÿÿýÿÿÿÿÿÿÿÿûÿÿÿÿÿÿÿÿÿÿÿ@¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€°€p@p@
@°€
ƒ€°€
ƒ€pDpâÁ
G, àG,!`G, àC@pD‰!

H‘2 H‘2!<21>H‘2!C@°Daò
F ðF 
F 
C€°D
A 
A 
A 
C€pL‰

È‘ !È‘ !<21>È‘ !C@p4pâ
ƒG  ðG !`G  àƒ@°€ƒ€°@
€p@p@°‡€°
€pDpâÁ
lØàÃ<>@pD‰!T¨ <20>@°DaòT¨ð <20>€°D"T© <20>€pL‰
"T© <20>@p4pâ

T¨ð <20>@°
€°€p@p@°
@€€°
@€€pDpâÁ,8ˆà
C‡qâË
@pD‰!2‰H•"ˆƒ Œ“@°Daò <Q•>`‚ˆ‘€°D DQˆ• ‚ˆ‘€pL‰
 D!H•"ˆ’ˆ“@p4pâ
 < à‡pbˆ<>@°
€°€p@p@
@°€€
ƒ€°€€
ƒ€pDpâÁX°à
G, àG,!`G, àC@pD‰!
dÈ
H‘2 H‘2!<21>H‘2!C@°DaòDˆð
F ðF 
F 
C€°DD‰
A 
A 
A 
C€pL‰
d‰
È‘ !È‘ !<21>È‘ !C@p4pâ
XˆðƒG  ðG !`G  àƒ@°@€ƒ€°@@
€p@p@°€¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@
type:
(cl:in-package 'user)

-----------------------------------------------------------

Record type - Assocrecord

type:
(il:assocrecord record-test-name (alpha bravo gamma) (il:synonym alpha a) (il:type? (not (atom (car il:datum)))))
(setq record-test-record (il:create record-test-name alpha il:_ '(a b c) bravo il:_ "some string"))

type:
(inspect record-test-record)

choose "inspect"
--should produce a window with two numbered elements 1 (alpha a b c), 2 (bravo . "some string")

†8
ªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªª¨«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿô«ýßïýÿÿÿßÿ÷úÿÿÿÿø«û¿ïýÿÿÿßÿûöÿÿÿÿøUû¸í?<3F>Ñü{öŽ˜îáôU÷wlìíßwÎû½îvWnÞô«÷|míïÇÞûýîöüuÞø«÷smíìß7ÞûýîöóuÞøU÷wlííßwÎû½îv÷{ÞôUû¸­î/‹Ñü{öŽø»áô«û¿ýÿÿÿÿÿÿû÷ÿÿÿÿø«ýßýÿÿÿÿÿÿ÷ûÿÿÿÿøUÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôU€4«€8«€@8U€€€ 4U<>€€
 4«‚€
<03>,8à€8«€€
A2@8U€€
Á"<ð@4U€€
A"D
@4«€€
A"D
@8«ƒàƒÁ"<ð€8U€€4U€@4«€8«€@8U<>À„€4U‚ „€4«‚ 
‹"8‡68«€@
L<>"D‘*8U€€
HD*4U<>
HD
*4«‚
HD@‘*8«ƒà…ˆ8@*8U€€4U€@4«€8«€8U€4Uÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿô«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøªªªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUT

type:
(inspect record-test-record)

choose "as an ALIST"

--should produce a window with two elements, alpha and bravo and their associated values.

‘4
ªªªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUªªªªªªªªªªªªªªªªªª€¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€¿»ýÿ¿ÿÿûÿþÿ_ÿÿÿÿÿÿ€¿wýÿ¿ÿÿûÿÿ~ßÿÿÿÿÿÿ€w££Çñú?<3F>~ÑÓÜ?ÿ~îí<C3AE><C3AD>»îùßw½ÎÊíÛßþ퀾ï<C2BE>½½ãøûß½Þߎ»ßÿ€¾îm½½›æûß½ÞÞn»ßÿí€~îí<C3AE>½»îùßw½ÎÞï{ß~í€w£½Åñz?<3F>~Ñß|?¿wÿ¿ÿÿÿÿÿÿ~ÿÿÿÿÿÿÿ€¿»ÿ¿ÿÿÿÿÿþÿÿÿÿÿÿÿ€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€p€°€°

€pp@€€p@€€°8bÀXà@€°“ @
d
@€p<#ÀD
@€pD$@D
@€°D’$@d
@€°<b#ÀXà€€p
€€p


€°€°€p@P€p@P€°X°â#€lp
Ç‹,4P€°dÈ$@"Tˆ"‚2L€pD€ñD@"Tø
‚"D€pD<70>D@"T€B"D€°d<C2B0>„@"Tˆ"H"L€°X€ðƒ€Tp
Áˆ"4€p€p8€°€°€p€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€ªªªªªªªªªªªªªªªªªª€UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUªªªªªªªªªªªªªªªªªª€

type:
(inspect record-test-record 'record-test-name)
--should produce a window with four elements and a has the same value as alpha.

•H
UUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªªªªªª¨_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø¯îÿïÿÿþÿÿ¿×ÿÿÿÿÿÿø_Ýÿïÿÿþÿÿß·ÿÿÿÿÿÿð_ÝÇhèñü~<7E>ãß´tÇwÿÇ€¯»»ggnû¾wÝïs²»v÷ÿ»x¯»ãooxþ>÷ßïw·ã®÷ÿÇx_»›oofù¾÷ßïw·›®÷ÿûp_»»gonû¾wÝïs·»Þ÷ß»p¯ÝÅhïq|^<5E>ãß´wÅßßLj¯Ýÿïÿÿÿÿÿÿß¿ÿÿÿÿÿÿø_îÿïÿÿÿÿÿÿ¿ßÿÿÿÿÿÿð_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð¬8¬8\@@0\€ 0¬€ 8¬
€88\

@D0\
À@0¬
@@8¬
@D8\ƒÀ8 0\€ 0¬@@8¬8\@@0\€€ 0¬€€ 8¬X°à
€88\
dÈ
@D0\Dˆð
À@0¬D‰
@@8¬d‰
@D8\XˆðƒÀ8 0\@€ 0¬@@@8¬8\0\
@€0¬
@€8¬,8ˆà
C‡qâË
8\2‰H•"ˆƒ Œ“0\ <Q•>`‚ˆ‘0¬ DQˆ• ‚ˆ‘8¬ D!H•"ˆ’ˆ“8\ < à‡pbˆ<>0\
0¬8¬8\0\‡0¬
8¬
lØàÃ<>8\T¨ <20>0\T¨ð <20>0¬"T© <20>8¬"T© <20>8\
T¨ð <20>0\
0¬8¬8\0\0¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿøUUUUUUUUUUUUUUUUUUP

type:
(ed 'record-test-name 'records)

delete gamma from the element list.

type cntl-x to save edit.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with three elements where a and alpha have the same value and there is no gamma.

return to the edit window and type gamma back in where it belongs. 

type cntl-x to save again.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with four elements where a and alpha have the same value and gamma is returned to the list

close the edit window

type:
(in-package 'interlisp)

type:
(inspect user::record-test-record 'user::record-test-name)
--should produce a window with four elements where user::a and user::alpha have the same value.All the values in the list (for a and alpha) are qualified as user.


F
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðýßïýÿÿÿßÿ÷úÿÿÿÿÿÿÿÿÿÿþÿÿîÿßÿÿÿÿßðû¿ïýÿÿÿßÿûöÿÿÿÿÿÿÿÿÿÿþÿÿÿ÷ßÿÿÿÿßðû¸í?<3F>Ñü{öŽ˜îáÿøðéž?Œ)hñwÚ<txñ†÷wlìíßwÎû½îvWnÞÿ÷ofmßvågn{¿ÙÛ³·nÝà÷|míïÇÞûýîöüuÞÿøïnìŽïoo{¿ÛÜw°oÝà÷smíìß7ÞûýîöóuÞÿÿoníÿöïoo{¿Ûß··ïÝà÷wlííßwÎû½îv÷{Þû÷oníßvïon{¿ÛÛ³·nÝàû¸­î/‹Ñü{öŽø»áûøðîî?<3F>/oqwÛÜtxñæû¿ýÿÿÿÿÿÿû÷ÿÿÿÿÿÿÿÿÿÿÿÿÿïwÿÿ÷ÿÿÿðýßýÿÿÿÿÿÿ÷ûÿÿÿÿÿÿÿÿÿÿÿÿÿðîÿÿÿ÷ÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð€€€€€‚#‡p"8q`<60>"8q`<60>"8q`<60>‚$H™"D‰<44><E280B0>€"D‰<44><E280B0>€"D‰<44><E280B0>‚‚#<0F>x"0ù€"0ù€"0ù‚ ˆˆ"<08>€"<08>€"<08>‚dH<64>ˆ&D‰<00>€&D‰<00>€&D‰<00>‚<10>£‡x8q<00>€8q<00>8q<00>€€€€€à€ ‚#‡p"Ň"8q`<60>"8q`<60>"8q`<60>‚$H™#&@€"D‰<44><E280B0>€"D‰<44><E280B0>€"D‰<44><E280B0>‚‚#<0F>x"$G€"0ù€"0ù€"0ù‚ ˆˆ"$H€"<08>€"<08>€"<08>‚dH<64>ˆ#$H€&D‰<00>€&D‰<00>€&D‰<00>‚<10>£‡x"ÄG€8q<00>€8q<00>8q<00>€€€€€€
 €€
 ‚#‡±aÄG
8Øà<03>Xh ‚$H™É<>$H€"D©Dd˜‚#<0F>‰
∀D©ðDˆ‚ ˆ‰"ˆ€D©„Dˆ‚dH<64>É!€"D©D<>D˜<10>£‡±
á8¨àƒDh€€p€€€8€‚#‡hãfÇ‚$H™˜¥@€‚#<0F>ˆò¥G€‚ ˆ‰¥H€‚dH<64>™¥H€<10>£‡hò¥G€€€p€€€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿðUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUP

type:
(cl:in-package 'user)

-----------------------------------------------------------

Record type - Accessfns

type:
 (IL:ACCESSFNS RECORD-TEST-NAME 
           ((ALPHA (CAR IL:DATUM) 
                   (SETQ IL:DATUM(CONS IL:NEWVALUE
                                       (CDR IL:DATUM))))
            (BRAVO (CADR IL:DATUM)
                   (SETQ IL:DATUM (CONS (CAR IL:DATUM)
                                        (CONS IL:NEWVALUE 
                                             (CDDR IL:DATUM))))) 
           (GAMMA (CADDR IL:DATUM) 
                  (SETQ IL:DATUM (LIST (CAR IL:DATUM) 
                                       (CADR IL:DATUM) 
                                       IL:NEWVALUE)))) 
          (IL:CREATE (LIST  '(a b c) "some string" NIL)) 
          (IL:TYPE? (ODDP (LENGTH IL:DATUM))))
(setq record-test-record (il:create record-test-name))

type:
(inspect record-test-record)

choose "inspect"
--should produce a window with three numbered elements 1 (a b c), 2 "some string". 3 ,nil

?
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªUUUUUUUUUUUUUUUTÿÿÿÿÿÿÿÿÿÿÿÿÿÿþ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿþ¿ÿÿÿÿÿÿÿÿÿÿÿýÿÿþ»ÿ¿ÿïÿÿÿÿÿûýÿÿþwÿ¿ÿ÷ÿÿÿÿÿûÿÿÿþ¿w£ø÷ãæxþ0¥£Åô¾îï<C3AE>÷{ݽ™·}Û•<C39B>¹ò~ï<>½÷ûã½»°~;½½½ö~îo½÷ûý½»·ÿÛ½½½ö¾îï<C3AE>÷{ݽ»·}Û½½¹ö¿w£ø÷ãû¸þ<½½Åöwÿÿÿ÷ÿÿÿÿÿÿÿÿ½þ»ÿÿÿïÿÿÿÿÿÿÿÿÃþ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿþ°pp°°0pP pÀp  ‚° x ° ˆ p ˆ ‚p|xÀ°°pp°8(†°D(†pD(pãc€<Xqa¢†p‰¤@d’`°a§À@ ° ¤@ p@‰¤@@`p|p⣀@ ° °
Àpp°8à°D pXp p8d °D °D pDD p8D °°pp°¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿþUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªUUUUUUUUUUUUUUUT


type:
(inspect record-test-record 'record-test-name)
--should produce a window with three elements: alpha, bravo and gamma with their associated values.

”C
ªªªªªªªªªªªªªªªªªª UUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUPªªªªªªªªªªªªªªªªªª ªªªªªªªªªªªªªªªªªª UUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUP¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿà¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿà_ÿÿÿÿÿÿÿÿÿÿÿþÿÿÿûÿð_Ýÿßÿ÷ÿÿÿÿÿýþÿÿÿûoð¿»ÿßÿûÿÿÿÿÿýÿÿÿÿÿwà¿»<C2BF>Ñü{ñáÓ<RÑâú;wà_wwÎû½îÞÌÛ¾íÊÎÜùÛ{ð_wÇÞûýñÞÝØ?ÞÞÞûÛ{ð¿w7ÞûýþÞÝÛÿíÞÞÞûÛ{à¿wwÎû½îÞÝÛ¾íÞÞÜûÛ{à_»‹Ñü{ñáÝÜ^ÞâûÛwð_»ÿÿÿûÿÿÿÿÿÿÿÿÞÿÿ÷ð¿Ýÿÿÿ÷ÿÿÿÿÿÿÿÿáÿÿïà¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàXpXp¸€€`¸8

 @`X

 @pX±aÀ,p p¸É<> €2ˆ `¸‰à€"€ `X"‰ €"€ pX"É €2ˆ p¸±à
€,p@`¸€
@`X€€€pXp¸`¸ €
(`X €
(pX,XqÀ‡68ãŇ(p¸2d	 ‘*D
A&`¸"@x¢ *|Á
"`X"@ˆ¢ 
*@!
"pX2@ˆB ‘*D
$
&p¸,@xAÀ*8àÄ
`¸`XpXp¸`¸
`XpX8Ù±À‡p¸&©P A`¸"<©QàA`X"D©R ApX&D©R Ap¸<©QàA`¸`XpXp¸`¸`_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿð_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ𪪪ªªªªªªªªªªªªªªª ªªªªªªªªªªªªªªªªªª UUUUUUUUUUUUUUUUUUPUUUUUUUUUUUUUUUUUUP

type:
(ed 'record-test-name 'records)

delete the gamma entry from the element list.

type cntl-x to save edit.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with two elements where  there is no gamma.

return to the edit window and type the gamma entry back in where it belongs. 

type cntl-x to save again.

type:
(inspect record-test-record 'record-test-name)
--should produce a window with threee elements where gamma is returned to the list

close the edit window

type:
(in-package 'interlisp)

type:
(inspect user::record-test-record 'user::record-test-name)
--should produce a window with three elements where user::a and user::alpha have the same value.All the values in the list (for a and alpha) are qualified as user.


C
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿô«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿú«ÿÿÿÿÿÿÿÿÿÿÿÿßÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúWû¿ûÿþÿÿÿÿÿÿ¿ßÿÿÿmÿ¿ÿÿÿÿ¿ÿÿÿÿÿÿÿÿÿôW÷ûÿÿÿÿÿÿÿ¿ÿÿÿÿîÿ¿ÿÿÿÿ¿ÿÿÿÿÿÿÿÿÿô«÷qú?<3F>~<:g<>ã
Z<_Gnÿ´xèñã:ÿÿÿÿÿÿÿú«îîùßw½ÛÙ›wݹYÛŸ;o³·gnÝ»ÙÿÿÿÿÿÿÿúWîøûß¾;Û»ã»ÛÛß{o·¸ï`ß»ÛÿÿÿÿÿÿÿÿôWîæûß¿ÛÛ»ý»ÛÛß{o·¿ooß»Ûÿÿÿÿÿÿÿÿô«îîùßw½ÛÛ»wÝ»ÛÛŸ{o··gnÝ»Ûÿÿÿÿÿÿÿÿú«÷qz?<3F>~<;»<>ãËÛÜ_{nÿ·¸èñãÌ;ÿÿÿÿÿÿÿÿúW÷ÿÿÿÿÿÿÿÿÿÿûßÿþÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÿôWû¿ÿÿþÿÿÿÿÿÿÿÿü?ÿýÿÿÿïÿÿÿÿÿÿÿÿÿÿÿÿô«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿú«:W4W4«
À:«@:WG, àE‹DpâÁDpâÁDpâÁ4WH‘2 FL<46>D‰!
D‰!D‰!4«F ðDH<44>DaòDaòDaò:«A 
DH‘DDD:WÈ‘ !FH‘L‰
L‰
L‰
4WG  ðEˆ<45>4pâ
4pâ
4pâ
4«:«:W4W4«

@:«

@:WG,!bÈŽ8q±À,8°Ñ@4WH‘2!“ H‘D‰R ˆ2É04«F 
Å0‰Sà ‰:«A 
E‰R
 ‰:WÈ‘ !’BD‰R ‰ ‰04WG !bÂ8qQÀ ˆÐ4«:«à:W4W4«p:«:WG, ÑÆÍŽ,84WH‘2!0%J<>24«F 
åJ<C3A5>":«A 
%J‘":WÈ‘ !2%J‘"4WG  ÑåJ<C3A5>"4«:«à:W4W4«:«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿúWÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª

type:
(cl:in-package 'user)

--------------------------------------------------------


Record type - Blockrecord

type:

    (IL:DATATYPE RECORD-TEST-NAME 
           ((ALPHA IL:POINTER))  alpha il:_ '(a b c)) 
    (IL:BLOCKRECORD RECORD-TEST-NAME1 
           ((BRAVO IL:WORD) (GAMMA IL:WORD)))
    (SETQ RECORD-TEST-RECORD (IL:CREATE RECORD-TEST-NAME))
 
type:
(inspect record-test-record)

--should produce a window with alpha and the list (a b c)

v.
ªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUTUUUUUUUUUUUUUUTªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUTUUUUUUUUUUUUUUTª¿ÿÿÿÿÿÿÿÿÿÿÿÿ¨ª¿ÿÿÿÿÿÿÿÿÿÿÿÿ¨U_ÿÿÿÿÿÿÿÿÿÿÿÿÔU_ûßÿÿÿÿïßÿ÷ÿÔª¿û¿ÿÿÿÿïßÿ÷ÿ¨ª¿À}1ãæ/†<aô(U_öþü®Ý½•ÏÝÛ·óÔU_öþýàß½½ïÜw÷Ôª¿€?}ïß½½ìÝÿ·7¨ª¿íÿ½îݽ½ÏÝÛ·÷¨U_íÿÝñãþ/æ<y÷ÔU_ÿÿÿÿÿÿÿÿÿÿÿÿÔª¿ÿÿÿÿÿÿÿÿÿÿÿÿ¨ª¿ÿÿÿÿÿÿÿÿÿÿÿÿ¨UX
ÔUX
Ôª¸€<00>¨ª¸8

 A¨UX

 AÔUX±aÀ,p!Ôª¸É<> €2ˆ!¨ª¸‰à€"€!¨UX"‰ €"€!ÔUX"É €2ˆ!Ôª¸±à
€,pA¨ª¸€
A¨UX€€<00>ÔUX
Ôª¸
¨ª¸
¨U_ÿÿÿÿÿÿÿÿÿÿÿÿÔU_ÿÿÿÿÿÿÿÿÿÿÿÿÔªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUTUUUUUUUUUUUUUUTªªªªªªªªªªªªªª¨ªªªªªªªªªªªªªª¨UUUUUUUUUUUUUUT

type:
(inspect record-test-record 'record-test-name)
--should produce a window identical to the one in the previous step.

type:
(inspect record-test-record 'record-test-name1)
--should produce a window with bravo and gamma, each with two numbers

\3
ªªªªªªªªªªª ªªªªªªªªªªª UUUUUUUUUUUPUUUUUUUUUUUP¿ÿÿÿÿÿÿÿÿÿÿà¿ÿÿÿÿÿÿÿÿÿÿàÿÿÿÿÿÿÿÿÿÿÐöÿ¿ÿÿÿÿß¿ÿпöÿÿÿÿÿß¿ÿà¿€>úcLJL_xàíýù]»{+Ÿ»·PíýûÁ¿{{߸8п~ûß¿{{Ù»ÿ`¿Ûÿ{Ý»{{Ÿ»·`Ûÿ»ãLJ|_ÌxÐÿÿÿÿÿÿÿÿÿÿпÿÿÿÿÿÿÿÿÿÿà¿ÿÿÿÿÿÿÿÿÿÿàpÐpаà°@àp@<08>ÐpX°â#€<08>аdÈ$@
$à°D€ñD@$àpD<70>D@
>Ðpd<70>„@аX€ðƒ€Žà°àpÐpаà°|0àp‘"@PÐp4q³c€‘ @PаL	R @<x<>à°DyR£À<00>"D<>àpD‰R¤@<00>"øÐpL‰R¤@‘"Dа4yR£À8à°àp8Ðpаà°àÿÿÿÿÿÿÿÿÿÿÐÿÿÿÿÿÿÿÿÿÿЪªªªªªªªªªª ªªªªªªªªªªª UUUUUUUUUUUP.

type:
(ed 'record-test-name1 'records)

delete the gamma entry from the element list.

type cntl-x to save edit.

type:
(inspect record-test-record 'record-test-name1)
--should produce a window with one element where  there is no gamma.

return to the edit window and type the gamma entry back in where it belongs. 

type cntl-x to save again.

type:
(inspect record-test-record 'record-test-name1)
--should produce a window with two elements where  gamma is returned to the list

close the edit window

type:
(in-package 'interlisp)

type:
(inspect user::record-test-record 'user::record-test-name1)
--should produce a window with two elements where .All the values in the list  are qualified as user.

Š3
UUUUUUUUUUUUUUUUU@ªªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªªª€Wÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@Wÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€«ÿoûÿÿÿÿýûÿþÿÿÿÿÿ€Wÿo÷ÿÿÿÿýûÿþÿÿÿÿÿ@Wøï¦<xtÅðÇŒ><3E>3Ç@«þßß•Û·²¹û»vþvìÍ»€«þßß¼÷·½ûƒŽþ÷<C3BE>݃€Wðï½û÷·½›¿öæömÝ¿@Wý¿÷½Û··¹û»vþöíÝ»@«ý¿û¾<xwÅüÇ<C3BC>>÷ÝÇ€«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€Wÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@Wÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@«€«€W@W
|0@«
"@P€«G,!bÈŽ"@P€WH‘2!“ H‘x<>@WF 
ÅD<>@«A 
Eø€«È‘ !’B D€WG !bÂ>8@W@«€«€W@W8qðÃ@«"D‰
C€«G, ÑÆÍŽD<>
C€WH‘2!0%J<>DñâC@WF 
åJ<C3A5><‰C@«A 
%J‘ˆ〫È‘ !2%J‘"D‰C€WG  ÑåJ<C3A5>8pàC@W@«à€«€W@W@«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€«ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ€UUUUUUUUUUUUUUUUU@UUUUUUUUUUUUUUUUU@ªªªªªªªªªªªªªªªªª€ªªªªªªªªªªªªªªªªª€

type:
(cl:in-package 'user)

--------------------------------------------------------

Record type - Subrecords

type:
(il:record record-test-name (alpha bravo gamma) (il:synonym alpha a) (il:type? (oddp (length il:datum))))
(il:record record-test-name1 (xray zebra record-test-name)
(il:subrecord record-test-name))
(setq record-test-record (il:create record-test-name1 alpha il:_ '(a b c) bravo il:_ "some string" zebra il:_ "hi"))

type:
(inspect record-test-record)

choose "inspect"
--should produce a window with three numbered elements 1  nil 2 "hi" and 3  the list ((a b c) "some string" nil)

ã@
UUUUUUUUUUUUUUUUUUUUUUUUUUUU@ªªªªªªªªªªªªªªªªªªªªªªªªªªªª ªªªªªªªªªªªªªªªªªªªªªªªªªªªª UUUUUUUUUUUUUUUUUUUUUUUUUUUU@_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿà¿ÿ÷ÿûÿÿÿÿÿÿÿÿÿÿÿÿßÿÿÿÿÿÿÿÿÿà_ßöûûû¿ûÿþÿÿÿÿÿÿ¿ßÿÿÿmßûÿÿÿÿÀ_¿þûÿ÷ûÿÿÿÿÿÿÿ¿ÿÿÿÿîïûÿÿÿÿÀ¿´vú;÷qú?<3F>~<:g<>ã
Z<_GnïûGŽ<47> ¿s¶ùÛîîùßw½ÛÙ›wݹYÛŸ;owû;vvíà_w¶ûÛîøûß¾;Û»ã»ÛÛß{owû{Žö
À_w¶ûÛîæûß¿ÛÛ»ý»ÛÛß{owû{ööýÀ¿w¶ûÛîîùßw½ÛÛ»wÝ»ÛÛŸ{owû{vvíà¿·¶ûÛ÷qz?<3F>~<;»<>ãËÛÜ_{nïû{Ž<> _¿ÿÿÿ÷ÿÿÿÿÿÿÿÿÿÿûßÿþïÿÿþÿÿÀ_ßÿÿÿû¿ÿÿþÿÿÿÿÿÿÿÿü?ÿýßÿÿþÿÿÀ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿà¸àXÀXÀ¸pà¸àX(,8ÀX2À¸"à¸"àX"ÀX>"À¸à¸àXÀXÀ¸@ à¸"@ àX"Xp ÀXdÀ¸Dà¸DàX DÀX>DÀ¸à¸àXÀX@À¸(€8 à¸"(€ àX pÀ(pãc€<Xqa¢€ÀX  ‚‰¤@d’`À¸ x a§À@ ภˆ ¤@ àX" ˆ ‚‰¤@@`ÀXxÀp⣀@  À¸  à¸
À@àXÀXÀ¸à¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿà_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÀUUUUUUUUUUUUUUUUUUUUUUUUUUUU@ªªªªªªªªªªªªªªªªªªªªªªªªªªªª ªªªªªªªªªªªªªªªªªªªªªªªªªªªª UUUUUUUUUUUUUUUUUUUUUUUUUUUU@

type:
(inspect record-test-record)

choose "as a record"

choose "record-test-name1"
--should produce a window with three elements the first one of which is a list of a list, a string and nil .


GD
UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿô¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿê¯ÿûÿýÿÿÿÿÿÿÿÿÿÿÿÿïÿÿÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿê_ïû}ýýßýÿÿÿÿÿÿÿßïÿÿÿ¶ïýÿÿÿÿýÿÿÿÿÿÿÿÿÿÿÿô_ßÿ}ÿû¿ýÿÿ¿ÿÿÿÿÿßÿÿÿÿ÷wýÿÿÿÿýÿÿÿÿÿÿÿÿÿÿÿô¯Ú;}û¸ýÇ¿3Çñ…-/£·wý£ÇG<C387>aÓÿÿÿÿÿÿÿÿÿ꯹Û|í÷w|ï»ÞíìÍ»îܬíÏ<C3AD>·»ý<C2BB>»;víÞËÿÿÿÿÿÿÿÿÿê_»Û}í÷|}ï¿ßí݃ñÝííï½·»ý½Ç{ýÞßÿÿÿÿÿÿÿÿÿô_»Û}í÷s}ï¿ßííÝ¿þÝííï½·»ý½û{~ýÞßÿÿÿÿÿÿÿÿÿô¯»Û}í÷w|ï»ÞííÝ»îÝííϽ·»ý½»;víÞßÿÿÿÿÿÿÿÿÿê¯ÛÛ}íû¸½Ç¿ÝÇñåíî/½·wý½ÇG<C387>aßÿÿÿÿÿÿÿÿÿê_ßÿÿÿû¿ÿÿÿ¿ÿÿÿÿÿÿÿýïÿÿwÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿô_ïÿÿÿýßÿÿÿÿÿÿÿÿÿÿþÿþïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿô¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿê¬j\t\ t¬ 

@j¬  

@j\8qa x
aÆÇ8
`<03>8q±À,8°Ñ@t\"D‰’`" 
<01>%H€
<01>AD‰R ˆ2É0‚t¬>@‰'Ä ùåO€<

0‰Sà ‰‚j¬ @‰  
%HD

‰R
 ‰‚j\"D‰`‘"$
%H€D
<01>AD‰R ‰ ‰0‚t\8q
 
åG<
`‚8qQÀ ˆÐ‚t¬j¬à j\t\t¬@
 Pj¬@
 Pj\X°à
,8Pt\"dÈ2t¬>D€ð"j¬ D<>"j\"d<>"t\X€ð"t¬j¬j\t\t¬8j¬j\,8ˆt\
2ˆt¬ <ˆj¬ DPj\
 DPt\ < t¬ j¬Àj\t\t¬j¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿê_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿôUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT

type:
(inspect record-test-record 'record-test-name1)
--should produce a window identical to the one in the previous step.

type:
(ed 'record-test-name1 'records)

delete zebra from the element list.

type cntl-x to save edit.

type:
(inspect record-test-record 'record-test-name1)
--should produce a window with no zebra and the value that  used to be zebra is now record-test-name.

return to the edit window and type zebra back in where it belongs. 

type cntl-x to save again.

type:
(inspect record-test-record 'record-test-name1)
--should produce a window with three elements the first one of which is a list of a list, a string and nil  and zebra is returned to the list

close the edit window

type:
(in-package 'interlisp)

type:
(inspect user::record-test-record 'user::record-test-name1)
--should produce a window with three elements where  all the values not in quotes  are qualified as user.





o?
ªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿú¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿú_ÿûÿýÿÿÿÿÿÿÿÿÿÿÿÿïÿÿÿ¿ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿü_ïû}ýýßýÿÿÿÿÿÿÿßïÿÿÿ¶ïýÿÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿü¯ßÿ}ÿû¿ýÿÿ¿ÿÿÿÿÿßÿÿÿÿ÷wýÿÿÿÿýÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿú¯Ú;}û¸ýÇ¿3Çñ…-/£·wý£ÇG<C387>aÓÿÿÿÿÿÿÿÿÿÿÿÿÿÿú_¹Û|í÷w|ï»ÞíìÍ»îܬíÏ<C3AD>·»ý<C2BB>»;víÞËÿÿÿÿÿÿÿÿÿÿÿÿÿÿü_»Û}í÷|}ï¿ßí݃ñÝííï½·»ý½Ç{ýÞßÿÿÿÿÿÿÿÿÿÿÿÿÿÿü¯»Û}í÷s}ï¿ßííÝ¿þÝííï½·»ý½û{~ýÞßÿÿÿÿÿÿÿÿÿÿÿÿÿÿú¯»Û}í÷w|ï»ÞííÝ»îÝííϽ·»ý½»;víÞßÿÿÿÿÿÿÿÿÿÿÿÿÿÿú_ÛÛ}íû¸½Ç¿ÝÇñåíî/½·wý½ÇG<C387>aßÿÿÿÿÿÿÿÿÿÿÿÿÿÿü_ßÿÿÿû¿ÿÿÿ¿ÿÿÿÿÿÿÿýïÿÿwÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿü¯ïÿÿÿýßÿÿÿÿÿÿÿÿÿÿþÿþïÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿú¯ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿú\\¬<00>¬
\

\8°@…‡XhÇXq±À8°@ƒ€8°@…€8°@ƒ<>¬"DÈ@†H‘"d˜
Hˆd	R "DÈ@€@"DÈ@†@"DÈ@„A¬|€<0F>"@‰ñÆ>DySà|€À|€@|€
\@€"@ˆ

D‰R@€@@€@@€
\"D€@„‘"@˜
$H‰D‰R "D€@„@"D€@†@"D€@„A¬
8€@„@hÇDyQÀ

8€@ƒÀ
8€@…€
8€@ƒ‚¬
\<00>\¬¬ˆ\ˆ\8°@‡Ç,8‹¬"DÈ@€ˆ™2‚¬|€
‘ <‚\@€
 D‚\"D€@‚™ D‚¬
8€@‡Ç <‚¬\\¬¬
\\8°@„K"‡¬"DÈ@‚Œ<E2809A>"A¬|€
"A\@€
A\"D€@‚ˆA¬
8€@„HA¬\0\¬¬_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿü_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT

type:
(cl:in-package 'user)

--------------------------------------------------------
MODERNMODERN?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
MODERN

MODERN
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
>D


Ï[|
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))

TÔ
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
/E
!$

/lD

/u

;£
,
BMOBJ.GETFN3‚
,
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
C
ü
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
C
Â
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
a


°pü
BMOBJ.GETFN3=Š 


T`
BMOBJ.GETFN3

E
/E
!$

/k
D

/u
;¢

t
BMOBJ.GETFN3
V



Ôev
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))

[ô
BMOBJ.GETFN3

/TÔ
BMOBJ.GETFN3

!$

/k
D

/u;£

¼
BMOBJ.GETFN3
S


®T8
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
/E
;£	6
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
S


Ï[
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
?Y
$/U$
BMOBJ.GETFN3!$

/lD

/u
;£(
BMOBJ.GETFN3
T


×`ü
BMOBJ.GETFN3


Z
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
/P¬
BMOBJ.GETFN3!$

/lD

/u
;£	X
BMOBJ.GETFN3T


	óZü
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
/dH
BMOBJ.GETFN3

!.

/GN

/S
;¤	x
BMOBJ.GETFN3R
í:ì
BMOBJ.GETFN3

/E
0Fp
BMOBJ.GETFN3".

0FN

0Q

<f¢
BMOBJ.GETFN3Q




<qŒ
BMOBJ.GETFN3


m4
BMOBJ.GETFN3
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
0E
"$

0gD

0Ž

<j
BMOBJ.GETFN3^
BMOBJ.GETFN3P
µ
Îzº