(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