github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-29 13:23:08 +00:00
Code Issues Projects Releases Wiki Activity

All source files converted to LF (#315)

Browse Source 
* All source files converted to LF

Also, HPRINT:  EQUALALL knows about CL arrays
FILEIO:  STREAM record with fields for external format functions

* Delete makeinit.dribble

* Converted CR to LF on internal/library and docs/Documentation Tools
This commit is contained in:
rmkaplan
2021-04-28 15:36:03 -07:00
committed by GitHub
parent 179325c528
commit f0ad3c5f60
736 changed files with 532174 additions and 5581 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
lispusers/ADDRESSBOOK
View File

@@ -1 +1,40 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED " 8-Jul-88 16:36:22" |{FS8:PARC:XEROX}<BOBROW>LISP>ADDRESSBOOK.;2| 4326
changes to%: (FILES LOOKUPINFILES)
previous date%: "19-Nov-86 15:02:45" |{FS8:PARC:XEROX}<BOBROW>LISP>ADDRESSBOOK.;1|)
(* "
Copyright (c) 1986, 1988 by Xerox Corporation. All rights reserved.
")
(PRETTYCOMPRINT ADDRESSBOOKCOMS)
(RPAQQ ADDRESSBOOKCOMS ((FNS MakeAddressBook) (INITVARS (*Address-Book-Pos* (create POSITION XCOORD _ 970 YCOORD _ (DIFFERENCE SCREENHEIGHT 90))) (*Address-Book-Region* (CREATEREGION 300 (DIFFERENCE SCREENHEIGHT 500) 400 200)) (*AddressBookFiles* (COND ((BOUNDP (QUOTE PHONELISTFILES)) PHONELISTFILES)))) (VARS AddressBookBM AddressBookMask) (FILES LOOKUPINFILES) (P (MakeAddressBook)))
)
(DEFINEQ
(MakeAddressBook
(LAMBDA NIL (* dgb%: "19-Nov-86 10:34") (* * Create a lookup window for address books) (MakeLookupWindow *AddressBookFiles* (QUOTE Address% Book) *Address-Book-Region* AddressBookBM AddressBookMask *Address-Book-Pos*))
)
)
(RPAQ? *Address-Book-Pos* (create POSITION XCOORD _ 970 YCOORD _ (DIFFERENCE SCREENHEIGHT 90)))
(RPAQ? *Address-Book-Region* (CREATEREGION 300 (DIFFERENCE SCREENHEIGHT 500) 400 200))
(RPAQ? *AddressBookFiles* (COND ((BOUNDP (QUOTE PHONELISTFILES)) PHONELISTFILES)))
(RPAQQ AddressBookBM #*(50 87)@COOOOOOOOO@@@@@@OOOOOOOOOOL@@@@AN@@@@@@@@AN@@@@CH@@@@@@@@@G@@@@G@@@@@@@@@@CH@@@F@@@@@@@@@@AH@@@NCOOOOOOOOOAL@@@LB@@@@@B@AA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@GOHL@@@LB@@@@@B@OOHL@@@LB@@@@@BAOOHL@@@LB@@@@@BC@GHL@@@LB@@@@@BAOOHL@@@LB@@@@@B@OOHL@@@LB@@@@@B@GOHL@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@BAIA@L@@@LB@@@@@BAIA@L@@@LB@@@@@B@AA@L@@@LB@@@@@B@AA@L@@@LB@@@@@COOA@L@@@LB@@@@@@@@A@L@@@LB@@@@@@@@A@L@@@LB@@@@@@@@A@L@@@LB@@@@@@@@A@L@@@LB@@@@@@@@A@L@@@LCOOOOOOOOO@L@@@N@@D@@@@@H@AL@@@F@@D@@@@@H@AH@@@G@@D@@@@@H@CH@@@CH@GOOOOOH@G@@@@AN@@@@@@@@AN@@@@@OOOOOOOOOOL@@@@@COOOOOOOOO@@@@@
)
(RPAQQ AddressBookMask #*(50 87)@COOOOOOOOO@@@@@@OOOOOOOOOOL@@@@AOOOOOOOOOON@@@@COOOOOOOOOOO@@@@GOOOOOOOOOOOH@@@GOOOOOOOOOOOH@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOOH@@@GOOOOOOOOOOOH@@@GOOOOOOOOOOO@@@@COOOOOOOOOON@@@@AOOOOOOOOOOL@@@@@OOOOOOOOOOH@@@@@COOOOOOOON@@@@@
)
(FILESLOAD LOOKUPINFILES)
(MakeAddressBook)
(PUTPROPS ADDRESSBOOK COPYRIGHT ("Xerox Corporation" 1986 1988))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (798 1051 (MakeAddressBook 808 . 1049)))))
STOP