PDP-10 Archive: decus/20-0004/label.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/label.com

There are no other files named label.com in the archive.

(FILECREATED "15-FEB-82 08:29:11" ("compiled on " <LISPUSERS>LABEL.;5) (2 . 2) recompiled exprs: 
nothing in "INTERLISP-MAXC " dated "14-FEB-82 21:20:29")
(FILECREATED "15-FEB-82 08:29:06" <LISPUSERS>LABEL.;5 1128 changes to: LABELCOMS previous date: 
" 4-FEB-82 09:42:52" <LISPUSERS>LABEL.;4)
DOLABEL BINARY
 -.,<[[Z,<,<[Z,,<[Z[[Z,Z,,,<,<[[Z,<[

Z,<,<,<[Z,,<,<[Z,,<[Z,<[[[FF,Z,,,,,~

  (VARIABLE-VALUE-CELL X . 45)
LAMBDA
APPLY*
FUNCTION
LSUBST
SUBST
(CONSS1 ALIST2 ALIST3 CONS21 CONS CONSNL ENTERF) @PH80

(PRETTYCOMPRINT LABELCOMS)
(RPAQQ LABELCOMS ((FNS DOLABEL) (ALISTS (LAMBDATRANFNS LABEL)) (ADDVARS (LAMBDASPLST LABEL)) (FILES (
SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) LAMBDATRAN)))
(ADDTOVAR LAMBDATRANFNS (LABEL DOLABEL))
(ADDTOVAR LAMBDASPLST LABEL)
(FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) LAMBDATRAN)
NIL