Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0039/bignum.lsp
There are 2 other files named bignum.lsp in the archive. Click here to see a list.

(DEFPROP BIGINIT 
 (LAMBDA NIL
  (PROG NIL
	(PUTSYM (VBASE (GET (QUOTE BASE) (QUOTE VALUE)))
 		NEGNUM
 		POSNUM
 		FIXNUM
 		FLONUM
		(MINUSP (GET (QUOTE MINUSP) (QUOTE SUBR)))
		(VNOPOI (GET (QUOTE *NOPOINT) (QUOTE VALUE)))))) 
EXPR)

(DEFPROP APNINIT 
 (LAMBDA NIL
  (PROG NIL
	(GETSYM SUBR BIGINI)
	(BIGINI)
	(REMPROP (QUOTE APNINIT) (QUOTE EXPR))
	(REMPROP (QUOTE BIGINIT) (QUOTE EXPR))
	(REMPROP (QUOTE BIGINI) (QUOTE SUBR)))) 
EXPR)

(BIGINIT)