perm filename SYS2.LSP[IL,LSP]1 blob sn#142117 filedate 1975-08-16 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(SETQ KLIST NIL)
C00006 ENDMK
C⊗;
(SETQ KLIST NIL)

(DEFPROP PLUS 
 (LAMBDA (L) (*EXPAND L (QUOTE *PLUS))) 
MACRO)

(DEFPROP DIFFERENCE 
 (LAMBDA (L) (*EXPAND L (QUOTE *DIF))) 
MACRO)

(DEFPROP TIMES 
 (LAMBDA (L) (*EXPAND L (QUOTE *TIMES))) 
MACRO)

(DEFPROP QUOTIENT 
 (LAMBDA (L) (*EXPAND L (QUOTE *QUO))) 
MACRO)

(DEFPROP LESSP 
 (LAMBDA(L)
  (LIST (QUOTE *LESS)
	(*EXPAND1 (CDR (REVERSE (CDR L))) (QUOTE (LAMBDA (X Y) (COND ((AND X (*LESS X Y)) Y)))))
	(CAR (LAST L)))) 
MACRO)

(DEFPROP GREATERP 
 (LAMBDA(L)
  (LIST (QUOTE *GREAT)
	(*EXPAND1 (CDR (REVERSE (CDR L))) (QUOTE (LAMBDA (X Y) (COND ((AND X (*GREAT X Y)) Y)))))
	(CAR (LAST L)))) 
MACRO)

(DEFPROP MIN
 (LAMBDA (L) (*EXPAND L (QUOTE *MIN)))
MACRO)

(DEFPROP MAX
 (LAMBDA (L) (*EXPAND L (QUOTE *MAX)))
MACRO)


(NOUUO T)
(*RSET T)

(COND ( (GREATERP BPORG 128000.) 
	(HGHORG BPORG)
	(SETQ BPORG BORG1)
	(SETQ BPEND BEND1)
	(HGHCOR NIL)
) )

(INITPROMPT 52)


(OUTC [OUTPUT REMOB (REMOB.LSP] NIL)
  (MAPC (FUNCTION (LAMBDA (X) (PRINT (LIST @*PUTSYM (LIST @QUOTE X)(LIST @NUMVAL 
	(GET X (QUOTE SYM))))))) REMOB)
(OUTC NIL T)

(EVAL (CONS (QUOTE REMOB) REMOB))

(SETQ REMOB ())

(REMOB SYS1 SYS1FNS  SYS2  )

(DSKIN (EDIT.LSP)(BREAK.LSP)(ERRORX.LSP) )

(INITFL (INIT.LSP]


(DE IF()
   (PRINC
	  (QUOTE
	   "LATEST changes 31 JAN. 1975!!

Type `R NEWS <cr>NOV<tab>ILISP<cr>' for details.
Mail complaints to RWW; roll back to IL.OLD.
"))

   (INITFN (QUOTE (LAMBDA NIL (TERPRI)(PRINC (QUOTE "⊗IL⊗
"))))))


(PROG NIL (GCGAG NIL) (INC NIL T) (OUTC NIL T) (INITFN @IF)
	(SETSYS ILX)	(SYSCLR) (EXIT))