github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-28 12:58:19 +00:00
Code Issues Projects Releases Wiki Activity

moving obsolete lispusers; delete some junk files (#730)

Browse Source 
* lispusers [HIJK]* sort out

* lispusers [LM]* sort out

* more cleanup
This commit is contained in:
Larry Masinter
2022-03-07 16:19:27 -08:00
committed by GitHub
parent e7e297c45c
commit b859649f00
59 changed files with 1235 additions and 787 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
lispusers/PLOTANDNC-PATCH
View File

@@ -1,52 +0,0 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(filecreated "22-Jan-88 15:45:26" {indigo}<gslws>lyric>library>plotandnc-patch.\;1 1853
|changes| |to:| (vars plotandnc-patchcoms)
(fns read.fontintodescriptor))
; Copyright (c) 1988 by Xerox Corporation. All rights reserved.
(prettycomprint plotandnc-patchcoms)
(rpaqq plotandnc-patchcoms (
(* |;;| "define font read fns used by plot and notecards so system can read either kind")
(fns readfont read.fontintodescriptor)
(p
(* |;;| "make sure these read fns are registered to avoid messages when reading")
(pushnew hprintreadfns 'readfont)
(pushnew hprintreadfns 'read.fontintodescriptor))))
(* |;;| "define font read fns used by plot and notecards so system can read either kind")
(defineq
(readfont
(lambda (stream) (* |jop:| "27-Aug-85 13:34")
(prog ((proplist (read stream)))
(return (fontcreate (listget proplist 'family)
(listget proplist 'size)
(listget proplist 'face)
(listget proplist 'rotation)
(listget proplist 'device))))))
(read.fontintodescriptor
(lambda (stream) (* \; "Edited 22-Jan-88 15:36 by thh:")
(apply 'fontcreate (read stream))))
)
(* |;;| "make sure these read fns are registered to avoid messages when reading")
(pushnew hprintreadfns 'readfont)
(pushnew hprintreadfns 'read.fontintodescriptor)
(putprops plotandnc-patch copyright ("Xerox Corporation" 1988))
(declare\: dontcopy
(filemap (nil (967 1575 (readfont 977 . 1393) (read.fontintodescriptor 1395 . 1573)))))
stop