(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