boot3.lisp 220 Bytes
Newer Older
1 2 3
;;; Bootstrap for modular arithmetic.  (Taken from 18e/boot22.lisp)
;;; (Primarily for ppc.)

4
#+ppc
5 6 7
(pushnew :modular-arith *features*)

(in-package "KERNEL")
8
#-+ppc
9 10
(defvar *modular-funs*
  (make-hash-table :test 'eq))