(FILECREATED "19-Feb-87 09:57:38" {QV}<LFG>PARSER>NEXT>LABEL.;1 986 previous date: " 5-JAN-83 18:06:12" {ERIS}<LISP>KOTO>LIBRARY>LABEL.;1) (* Copyright (c) 1983, 1987 by Xerox Corporation. All rights reserved.) (PRETTYCOMPRINT LABELCOMS) (RPAQQ LABELCOMS ((FNS DOLABEL) (ALISTS (LAMBDATRANFNS LABEL)) (ADDVARS (LAMBDASPLST LABEL)) (FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) LAMBDATRAN))) (DEFINEQ (DOLABEL [LAMBDA (X) (* lmm " 5-JAN-83 18:04") (PROG [(NAME (CAR (CDR X))) (ARGS (CADR (CDR X))) (FORMS (CDDR (CDR X] (RETURN (BQUOTE (LAMBDA , ARGS ([LAMBDA (, NAME) (APPLY* , NAME ,. ARGS] (FUNCTION (LAMBDA , ARGS ,. FORMS]) ) (ADDTOVAR LAMBDATRANFNS (LABEL DOLABEL)) (ADDTOVAR LAMBDASPLST LABEL) (FILESLOAD (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES) LAMBDATRAN) (PUTPROPS LABEL COPYRIGHT ("Xerox Corporation" 1983 1987)) (DECLARE: DONTCOPY (FILEMAP (NIL (445 754 (DOLABEL 455 . 752))))) STOP