(FILECREATED "10-MAR-83 12:48:17" {PHYLUM}<LISPUSERS>COMPILEBANG.;5
 4447Q  

      changes to:  (FNS COMPILE!)

      previous date: "18-JAN-82 17:08:00" {PHYLUM}<LISPUSERS>COMPILEBANG.;3)


(* Copyright (c) 1982, 1983 by Xerox Corporation)

(PRETTYCOMPRINT COMPILEBANGCOMS)

(RPAQQ COMPILEBANGCOMS
 ((E (RESETSAVE CLISPIFYPRETTYFLG NIL))
			(LISPXMACROS C)
			(FNS COMPILE!)
			(USERMACROS C)))

(ADDTOVAR LISPXMACROS
 (C (COND (LISPXLINE (COMPILE! (CAR LISPXLINE)
						    T NIL T))
			       (T C))))
(DEFINEQ

(COMPILE!

  [LAMBDA (X NOSAVE NOREDEFINE PRINTLAP)                     (* bvm: "10-MAR-83 12:48")

    (DECLARE
 (SPECVARS LCFIL LAPFLG STRF SVFLG LSTFIL SPECVARS LOCALVARS))

          (* In-core compiling for functions and forms, without the interview. If X is a list, we assume that we are being 

	  called merely to display the lap and machine code. THe form is compiled as the definition of FOO but the compiled 

	  code is thrown away. -

	  If X is a litatom, then saving, redefining, and printing is controlled by the flags.)



    (DECLARE
 (GLOBALVARS NLAMA NLAML LAMS LAMA NOFIXFNSLST NOFIXVARSLST))
    (RESETVARS ((NLAMA NLAMA)
		(NLAML NLAML)
		(LAMS LAMS)
		(LAMA LAMA)
		(NOFIXFNSLST NOFIXFNSLST)
		(NOFIXVARSLST NOFIXVARSLST))
	       (RETURN (RESETLST                             (* RESETLST to provide reset context for macros under 

							     COMPILE1 as generated e.g. by DECL.)

				 (PROG [(LCFIL)
					[LAPFLG (AND PRINTLAP (COND
						       (BYTECOMPFLG T)
						       (T 2]
					(STRF (NOT NOREDEFINE))
					(SVFLG (NOT NOSAVE))
					(LSTFIL T)
					(SPECVARS T)
					(LOCALVARS (COND
						     ((NEQ LOCALVARS T)
						       (UNION SYSLOCALVARS LOCALVARS))
						     (T SYSLOCALVARS]
				       (RETURN (COMPILE1 (COND
							   ((LITATOM X)
							     X)
							   (T (QUOTE *DUMMY-COMPILED-FUNCTION*)))
							 (COND
							   ((NLISTP X)
							     (VIRGINFN X T))
							   ((ARGTYPE X)
							     X)
							   (T (LIST (QUOTE LAMBDA)
								    NIL X)))
							 T])
)

(ADDTOVAR USERMACROS
 [C NIL (ORR (UP 1)
				 NIL)
			(ORR ((E (COMPILE! (OR (LISTP (##))
					       (## !0))
					   T T T)))
			     ((E (QUOTE C?])

(ADDTOVAR EDITCOMSA
 C)
(PUTPROPS COMPILEBANG COPYRIGHT ("Xerox Corporation" 3676Q 3677Q))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1003Q 4026Q (COMPILE! 1015Q . 4024Q)))))
STOP