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)