(FILECREATED " 5-JAN-83 18:06:12" <LISPUSERS>LABEL.;12 956 changes to: (FNS DOLABEL) previous date: "15-FEB-82 08:29:06" <LISPUSERS>LABEL.;5) (* Copyright (c) 1983 by Xerox Corporation) (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)) (DECLARE: DONTCOPY (FILEMAP (NIL (420 729 (DOLABEL 430 . 727))))) STOP