Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/sys2.lsp
There are no other files named sys2.lsp in the archive.
(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)
(HGHORG BPORG)
(SETQ BPORG BORG1)
(SETQ BPEND BEND1)
(HGHCOR NIL)
(INITPROMPT 52)


(OUTC [OUTPUT REMOB DSK: (REMOB.LSP] NIL)
  (MAPC (FUNCTION (LAMBDA (X) (PRINT (LIST (QUOTE PUTSYM) X (LIST (QUOTE NUMVAL) (GET X (QUOTE SYM))))))) REMOB)
  (OUTC NIL T)
  (EVAL (CONS (QUOTE REMOB) REMOB))


(DEFPROP REMOB (NIL) VALUE)

(REMOB SYS1 SYS1FNS  SYS2  )
(DSKIN(EDIT.LSP)(BREAK.LSP)(ERRORX.LSP))


(INITFL (INIT.LSP]

(INITFN
 (QUOTE
  (LAMBDA()
   (SYSCLR)
   (INITFN
    (QUOTE
     (LAMBDA()
      (TERPRI)
      (PRINC (QUOTE "UCI LISP"))
      (INITFN NIL)
      (TERPRI)))))))
(PROG NIL (GCGAG NIL) (INC NIL T) (OUTC NIL T) (EXCISE) (ERR))