Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/databasefns.dcom
There are no other files named databasefns.dcom in the archive.
(FILECREATED-"26-JAN-82"17:02:44"A("compiled>onT"B{PHYLUM}<LISPUSERS>DATABASEFNS.;1)ENOBINDEbcompl'd2)Q RESETY) �W	WV
BI�V�oi
�Hi
�i	�h�_�I�V�$Hgdg�i�g�h�`dg�c�Hgg���%Ii
�gI	##Wc�h`
Zdg���h`
�h`
Zdg�y�`�ch`
�I�`g�Hgg�h��H`
��`goH#g��mHgg�h��h`h`
���h`
��h`
Zg�Jg�DJg��`�HK
�H`L��Hg�d]d	��Mg�M	���i	�Ii
�oi
�i	�h�Ici(603Q0TERPRII576QBPRIN16565QHPRIN1L557QETERPRIS544Q4MSMARKCHANGEDu530QAEXPRPE511QQUPDATEFILES4505QFSTORETABLE0474QIUPDATECONTAINSS462QAREADATABASE 432Q READB421Q3READY407QQSTORETABLEI404QTREADQ365QI/PUTB343Q0ASKUSER7321QATESTTABLE0304Q /PUT 261QRREAD 234Q READS224QEREAD 202Q READ 162Q INPUTD152Q2LISPXPRINTT137Q0/PUTN46Q7TERPRIE41QBPRIN1Q33QPPRIN1412QE\LOADDB/DBFILEE41NAMEFIELD)5Q LOADDBFLG 105Q NO 74Q YES 67Q DATABASE)
�h�gZ
J�I(35QIERROR!L30QRESETRESTOREg16Q LOADDBA0011)
`�ghghg@
�@	g�A�@	�@	bd�	@H�@H
(132QD\LOADDB/DBFILE1N115QVFILEDATE106QIFINDFILEX101QIINFILEPC64QINAMEFIELDQ57QTFILENAMEFIELD 45Q PACKFILENAME 17Q FILENAMEFIELD 5 INPUT)
Y#Rc�I	�AI`

�IAI	�HX��(117QTCLOSEFO106Q3STREQUALV102QOREADD70QBSKREADE54QNOPENFILE 26Q FILDIR 23Q PACKFILENAME)
@(22QOLOADDBS50OLDLOAD)@ABbdi
@(14QDLOADDB 5 OLDLOADFROM) OPTIONS 0 FILE)) @ABC

bdi
@(15Q1DUMPDBP62OLDMAKEFILE)1ERRORSET.V�0`ERRORSET.U)F0`RESETVARSLSTF	1FL	F2VDBFILE	F3hFFNS F 4 FILE F 5 RESETY F 6 FNS) �oggghgT
i	��(175QIDUMPDATABASEF166QATERPRI2161QFPRIN1B146Q2PRINTP141Q3PRIN1s131QOUPDATECONTAINSI116QVSTORETABLEE113QBPRINT)75QEPRIN1)56QOUTPUT�36Q	OPENFILE25QHPACKFILENAME)
�7hb�I[A�$Hgg�`g�H`
����`�Eh�K�9A�Hg
�i	�@i
�oi
�i	hd\	�L	�dM$���Mh%�W!Wog
�h�g_
�O��A�Ji
�HggJ(322QS/PUT2307QRPRINT1276QTERROR!1267QDRESETRESTORE 254QSDUMPDBA00121215QSLOCALFNPE210QQUPDATEFN 200QDTERPRI1173QSPRIN1D162QAPRIN1Q154QITERPRIE146Q /REMPROP 115Q TESTTABLE 46Q TESTTABLE 27Q FILEFNSLST 23Q NAMEFIELD)
�"@g`gog�g�g(123Qo/PUTD104QAASKUSERM61QLTESTTABLEQ20QVINFILECOMS?D15QBFILECOMSF3SNAMEFIELD)