y#<> gmp.lisp by nil on WINDSOR at 2006/4/16 19:19:59\ using 7.0 [Windows] (Jan 30, 2006 8:42).\ Optimization settings at wfasl time:\ ((safety 0) (space 0) (speed 3) (compilation-speed 0) (debug 2)) *)!7.0 [Windows] (Jan 30, 2006 8:42)Ag2913<*source-pathname* pathname gmplisp unspecific gmp.lispC.\  /UV$VFɋuÐ null 0+ @gmp.lispLN<top-level-form <QAg2914@<gmp internal-in-package / UV$F׋^W'ɋu null 0+ @<top-level-form <OQAg2915@<optimize speed safety space compilation-speed compiler-proclaim / UV$F^׋ɋuÐ null 0+ @<top-level-form <dQAg2916@<gmpmpz  definition array int foreign-functionsensure-foreign-type /*UV,VvvRP^׋ɋu null 0+ @top-level-form <"LN<<QAg2925@int integer * !LLLN< N< N __gmpz_initlanguage c LN<< !< foreign-address mpz_init direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Nh p3+ @<<QAg2928 foreign-address LN< < determine-foreign-address < <get-ff-n-args-closure mpz_init set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @< <QAg2929<mpz_init fboundp x .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2930LN<mpz_init operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2931</uÐ null 0(+ @<<QAg2940int < LN __gmpz_init2language c LN<<!<foreign-address !<  mpz_init2 direct-ff-call .inv-get /F#UVDFWƒjWvvvRP3ɱW/EF"V& uRP^*׋ɋuÐ null 02{Nw p3+ @<<QAg2943<int < LLLLN<N<N<N<<determine-foreign-address <<get-ff-n-args-closure  mpz_init2 set-function-1 /@ UV,F3Ҳ WRP^׋V vRP^"׋ЋF&^*W'ɋu null 0+ @<<QAg2944< mpz_init2 fboundp x len .inv-func_formals /"UV$F^׋V^W'ɋu null 0+ @<<QAg2945LN< mpz_init2 operator <record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg2946</uÐ null 0(+ @<<QAg2955int < LN __gmpz_fac_uilanguage c LN<׋^B_W' +psj ux;}Ë_W'VFvRvNvJRP^V׉3?3IWkW'mW';ul3 RP^Z׋;u F^Vb vjuvjvfRP3ɱd upu^nW' RP^Z3ҲuUpOtWhˋAQwAOItɋuË_W'xË_W'말 xsbase02{Ns x          i     p3+ @Ag2966+<+lexically-visible-function <( mpz_set_str  set-func_name set-function-1 /,UV,^É]V^W'UF^W'ɋu null 02{Nf p3+ @<+<<( mpz_set_str QAg2986,@LN<, mpz_set_str operator <-record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<,<QAg2987.<./uÐ null 0(+ @<.<QAg2996/<)array  character * Lconvert-int-ret-to-string LN<0N__gmpz_get_strlanguage c LNLN<> mpz_get_d operator <QAg3017@<@/uÐ null 0(+ @<@<QAg3026Aint < LN __gmpz_clearlanguage c LN0+ @Ag3464?pgmpz-  make-gmpz  copy-gmpz ! structure ! !pcopy-defstruct-description compute-struct-cpl notify-clos-of-new-structure .inv-get / \.UV4F^׋ЋF^W'F"^&׉E^*׋UF^.W'F uRP^2׋ɋu null 02{Nnew p3+ @UV,FWƒ vRP^׋F3AWc;Gu VFɋu null 0+ @top-level-form <"5LN ׋FBVF vJRP^N׋ɋuÐ null 0+ @VB vFRP^J׋ɋu null 0+ @VB vFRP^J׋ɋu null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @<\top-level-form <(?<[<]QA^@<^ gmpz2lisp / UV$^ɋuÐ x0+ @Ag3502_method gaoutof gmpz LN<_! find-class ! qualifiers  specializers  lambda-list x !function lexically-visible-function <^plist  documentation load-defmethod ׋FBVF vJRP^N׋ɋuÐ null 0+ @<_top-level-form <s?<^ ׋FBVF vJRP^N׋ɋuÐ null 0+ @VB vFRP^J׋ɋu null 0+ @VB vFRP^J׋ɋu null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @ ׋FBVF vJRP^N׋ɋuÐ null 0+ @W+EF*VBv2uRP_׋UEF6uvFRP3ɱW/EԋE؋VJW+EF*VNv2uRP_׋UEF6uvRRP3ɱW/EЋU3ɱW/ЋFV3ɱW/E̋U䋇3ɱW/ЋFV3ɱW/EċU䋇3ɱW/U܉EuuuuuRP3ɱW/ɋu  **macroarg**..environment..02{Nop two-arg pgm  **macroarg**  p3+ @Ag3522r ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <bHLN ׋FBVF vJRP^N׋ɋu null 0+ @<}<{<|<~QA< lisp2gmpz determine-foreign-address quote ׋FBVF vJRP^N׋F^R׋FV^R׋ɋu null 0+ @<<{<<QA<create_mpz_zero determine-foreign-address quote <"/oUVdEU܋^׋XE؋URE܋@vEԉ]ЉỦEȋMQIuYY $MQIuYYL$MQIuYYL$śoL$ 7iy jA7]ԋSu79y ta 17EɋuÐ arg1arg20(2{Narg1 arg2 r in p3+ @Ag3538method  two-arg-- gmpz !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator -  defarithmetic record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <}HLN<<<<QA@< lisp2gmpz determine-foreign-address quote <"/iUV\U^׋XE܋URvEԉ]؉UЋMQIuYY $MQIuYYL$MQIuYYL$śoL$ 7iy jA7]ԋSu79y ta 17EɋuÐ arg1arg20(2{Narg2 r in p3+ @Ag3541method  two-arg-- integer gmpz LN< find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator -  defarithmetic record-source-file-1 /z=UV\g^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋu null 0+ @<<<<QA< lisp2gmpz determine-foreign-address quote <"/jUV\E‹^׋XE܋URvEԉ]؉UЋMQIuYY $MQIuYYL$MQIuYYL$śoL$ 7iy jA7]ԋSu79y ta 17EɋuÐ arg1arg20(2{Narg1 r in p3+ @Ag3543method  two-arg-- gmpz integer LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator -  defarithmetic record-source-file-1 compile !/GUV\F^׉E䋇g^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋F^R׋FV^R׋ɋu null 0+ @<<<<QA<create_mpz_zero determine-foreign-address quote ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <HLN<<<<QA@< lisp2gmpz determine-foreign-address quote ׋FBVF vJRP^N׋ɋu null 0+ @<<<<QA< lisp2gmpz determine-foreign-address quote ׋FBVF vJRP^N׋F^R׋FV^R׋ɋu null 0+ @<<<<QA<create_mpz_zero determine-foreign-address quote <"/UVlEU܋^׉E^׋XEԋUB]Ћ][E̋E܋@vEȉ]ĉEMQIuYY $MQIuYYL$MQIuYYL$MQIuYYL$ śoL$7iy jA7]ȋSu79y ta 17EU3ɱɋuÐ ab0( 2{N r a b q p3+ @Ag3555method qr gmpz !LN<! find-class ! qualifiers  specializers  lambda-list a !b !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <I<<QA@<>= u assert-1 ! alloc-gmpz determine-foreign-address quote <]"/UVdE׋FWWWRP^׋U‰E3ҋ^W';t؋^׋XE؋URv"Eԉ]ЉŰMQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]ԋSu79y ta 17Eɋu zu0(2{N!z ans p3+ @Ag3558method  two-arg-expt gmpz fixnum LN<! find-class ! qualifiers  specializers  lambda-list z !u !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /z=UV\F^׉E䋇^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋu null 0+ @<top-level-form <J<<QA@<not implemented gmpz ^gmpz>= u assert-1 ! alloc-gmpz /H$UV ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <VK<<QA@< two-arg-+ / UV$Ћ^3W'ɋu z0+ @Ag3564method 1+ gmpz LN<! find-class ! qualifiers  specializers  lambda-list z !function lexically-visible-function <plist  documentation load-defmethod <operator !!!! record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <YL<<QA@< two-arg-- / UV$^3ҲW'ɋu z0+ @Ag3567method 1- gmpz LN<! find-class ! qualifiers  specializers  lambda-list z !function lexically-visible-function <plist  documentation load-defmethod <operator !!!! record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <~L<<Q@fact  alloc-gmpz determine-foreign-address quote determine-foreign-address quote <"<  two-arg-* !!<"/UVtE܉U^׉EE3ҋ^W';]SE܋@vEȉUĉEMQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]ȋSu79y ta 17EɋuËE3ҋ^W';]SUЋU܋RŰU^"W'v&EEMQIuYY $MQIuYYL$MQuY YyI}ىL$śoL$ 7iy jA7]Su79y ta 17EE zn0( 2{N ans n z p3+ @Ag3570method ash gmpz fixnum LN<! find-class ! qualifiers  specializers  lambda-list z !n !function lexically-visible-function <plist  documentation load-defmethod <operator !!!!!record-source-file-1 /z=UV\F^׉E䋇^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋu null 0+ @<top-level-form <M<<Q@probably_primep into determine-foreign-address quote <"/cUVLU^׋@vE܉E؋MQIuYY $MQuY YyI}ىL$śoL$7iy jA7]܋Su79y ta 17ɋujEM z &optional reps0(2{Nreps p3+ @ next_prime  alloc-gmpz into determine-foreign-address quote <*"/aUVTE܋^׉EE܋^׋]S@vE؉UԉEЋMQIuYY $MQIuYYL$śoL$7iy jA7]؋Su79y ta 17EɋuÐ z0(2{Nans z p3+ @gmp_gcd  alloc-gmpz into determine-foreign-address quote <"/wUV\EU܋^׉EE^׋@EE܋^׋@]SvEԉUЉE܋MQIuYY $MQIuYYL$MQIuYYL$śoL$ 7iy jA7]ԋSu79y ta 17Eɋu ab0(2{Nans a b p3+ @ gmp_gcdext  alloc-gmpz into determine-foreign-address quote <""/\UVtEU܋^׉E^׉E؋^׉EԋE^׋@EE܋^׋@]ԋSE܋EŰPE؉UȋPvEĉUMQIuYY $MQIuYYL$MQIuYYL$MQIuYYL$ MQIuYYL$śoL$7iy jA7]ċSu79y ta 17EԋU uRP3ɱɋu ab0( 2{N ss a b tt gg p3+ A@<determine-foreign-address quote <"> /YUVL@vEE܋MQIuYY $3ɱQuY YyI}ىL$śoL$7iy jA7]Su79y ta 173ҋ^W'ɋu z0(+ @Ag3579method evenp gmpz LN<! find-class ! qualifiers  specializers  lambda-list z !function lexically-visible-function <plist  documentation load-defmethod <operator !!!! record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <Q<<QA@<determine-foreign-address quote <"= /YUVL@vEE܋MQIuYY $3ɱQuY YyI}ىL$śoL$7iy jA7]Su79y ta 173ҋ^W'ɋu z0(+ @Ag3582method oddp gmpz LN<! find-class ! qualifiers  specializers  lambda-list z !function lexically-visible-function <plist  documentation load-defmethod <operator !!!! record-source-file-1 /d2UV\F^׋W+EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @<top-level-form <=R<<QA@< symbol-name two-arg-concat-to-sstring_2op ga intern tocl mpz_cmp gmpz-z arg1 !arg2  defmethod !gmpz !! !!x !!!  lisp2gmpz !!real !! !!!!y !! !!! !! compile /UV|E33ҲuRP׋]ȋ[S‰U^׋ЋF^W'V^"W'EE^&׉EԋV*W+UEF.uv2RP3ɱW/E܋EԋV6W+EV: uRP3ɱW/UEF.uv>RP3ɱW/E؋EԋVBW+EVF uRP3ɱW/UEF.uvJRP3ɱW/EЋU3ɱW/ЋFN3ɱW/E̋U䋇3ɱW/ЋFN3ɱW/EċU䋇3ɱW/U܉EuuuuuRP3ɱW/ɋuÐ  **macroarg**..environment..02{Nop two-arg cl-op  **macroarg**  p3+ @Ag3587< defcomparison lexically-visible-function <macro-function  set-func_name fboundp op .inv-func_formals /L&UV,F׃ vRP׋F^׋V^W'F^"׋V&^*W'ɋu null 0+ @top-level-form <RLN<<< defcomparison QAg3589@< defcomparison %fun-documentation remprop /UV$FV^W'ɋuÐ null 0+ @<<QAg3590 defcomparison operator LN<!!<record-source-file-1 /$UV,FV vRP^׋ɋu null 0+ @<<QAg3591</uÐ null 0(+ @<<QA<determine-foreign-address quote gmpz !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator >  defcomparison record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <2ULN<<<<QA@< lisp2gmpz determine-foreign-address quote real gmpz LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator >  defcomparison record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA< lisp2gmpz determine-foreign-address quote gmpz real LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator >  defcomparison record-source-file-1 compile !/FUV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @<<<<QA<determine-foreign-address quote ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <EULN<<<<QA@< lisp2gmpz determine-foreign-address quote Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA< lisp2gmpz determine-foreign-address quote Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @<<<<QA<determine-foreign-address quote ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <XULN<<<<QA@< lisp2gmpz determine-foreign-address quote Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA< lisp2gmpz determine-foreign-address quote Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @<<<<QA<determine-foreign-address quote ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <kULN<<<<QA@< lisp2gmpz determine-foreign-address quote Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA< lisp2gmpz determine-foreign-address quote Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @<<<<QA<determine-foreign-address quote = gmpz !LN<! find-class ! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator >=  defcomparison record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV4Wv:Wv6v2v.v*v&uv"WRP^> ׋FBVF vJRP^N׋ɋuÐ null 0+ @top-level-form <ULN<<<<QA@< lisp2gmpz determine-foreign-address quote = real gmpz LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator >=  defcomparison record-source-file-1 /x<UV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋ɋuÐ null 0+ @<<<<QA< lisp2gmpz determine-foreign-address quote = gmpz real LN<! find-class !! qualifiers  specializers  lambda-list arg1 !arg2 !function lexically-visible-function <plist  documentation load-defmethod <operator >=  defcomparison record-source-file-1 compile !/FUV\F^׉EF^׋ЋE3ɱW/EFV"4Wv>Wv:v6v2v.v*uv&WRP^B ׋FFVJ vNRP^R׋F^V׋FZ^V׋ɋuÐ null 0+ @<<<<QA<create_mpz_zero btoa 1- aref determine-foreign-address quote <"!!<"!!VB vFRP^J׋ɋu null 0+ @<top-level-form <QV<<Q@btoa abs  bignum-size  nth-bigit 1+ = /GUVDu^3AɋuÉE^׋׉E܃WWhRP3ɱE3*EU؋^W']؋]fDE؋^׋؋U܋É]؋^"W';tċE x02{Nx ans size i p3+ Ag3646@< llstructs require / UV$F^׋ɋuÐ null 0+ @<top-level-form <YQ@ nth-bigit  two-arg-* /,UV,E3^W']ɋu xn02{Nx p3+ @ bignum-size / @u x0(+ @atob 1- aref ash  two-arg-+ < /JUV car sort /PUV4UW+NYOf;K}\[Ӌ^W'NYOf;K}\[N;ugtcQ;#uWF@EÃuRP^"׋VEɋuÐ nf02{Nf p3+ @ clearfact  adjustable  fill-pointer  make-array oldfacts into vector-push-extend /`0UV4V3wvwRP^׋V3^"׋3W+NYOf;K}\[Ӌ^&W'ɋuÐ null 0+ 2xAg3655@<top-level-form < direct-calls store-doc-forms  load-scm-info update-xref-info  make-array require compile macro-function .inv-macro-function cons  find-class load-defmethod eq not notify-clos-of-new-structure compute-struct-cpl copy-defstruct-description get-dd-predicate-closure memref symbol-function  share-conses  ce-putprop ce-get check-lock-definitions .inv-symbol-function get-built-in-accessor check-lock-def-defstruct  set-func_name remprop record-source-file-1 fboundp .inv-func_formals set-function-1 determine-foreign-address get-ff-n-args-closure .inv-get ensure-foreign-type compiler-proclaim internal-in-package ' macro-calls  defparameter  defcomparison  defarithmetic defmacro  defmethod boundp defvar  sy_function definef defun defsetf  defstruct record-source-file list setf def-foreign-call def-foreign-type declaim  in-package sets oldfacts  gmpzformat *source-pathname*  references !=!>!? mpz_set_str !@*load-verbose* !lispval-other-to-address free  ff-funcall  .inv-s-aref aref string-to-octets short-simple-array-p pointer-to-address !>=_2op ef-nulls -_2op native-string-sizeof +_2op  array-base simple-string-p !runtime-find-external-format length stringp !(let* !7 svdata-ptr 1+ wdea-interpreted-p >= 1- !with-dynamic-extent-usb8-array - + setq unless when find-external-format if* with-native-string  mpz_gcdext !!E make-gmpz ! short-vector  structurify !create_string_from_mpz format  alloc-gmpz indirect-calls  mpz_clear !!e!schedule-finalization mpz_init !(! alloc-gmpz2 !k!l!!e!!m mpz_init2 !(!create_mpz_zero !!j= !<!!j!!!error <! two-arg-+ <! two-arg-- fact !!rmpz_fac !j<! two-arg-*  mpz_rshift < !r mpz_mul_2exp > !jprobably_primep !!rmpz_probab_prime_p !y!(!7 next_prime !(!7!!r mpz_nextprime !y!jgmp_gcd !(!7!mpz_gcd !y!r!j gmp_gcdext !(!7!!!d!y!r!j<!!rmpz_divisible_2exp_p !<!!r!= !*!(!~!!6!!!!! !! tocl !!!!!! <!!rmpz_cmp >_2op <!!r!!!s<!!r!!!s<!!r!=_2op <!!r!!!s<!!r!!!s<!!r!<_2op <!!r!!!s<!!r!!!s<!!r!<=_2op <!!r!!!s<!!r!!!s<!!r!!K<!!r!!K!s<!!r!!K!s<!!F!!!!G!z!!S1- btoa !r!q !!(!7!!1+ !F nth-bigit ! bignum-size abs vector fixnump  !!(twobytwo * !!!!!!!(bm_size atob !(!+ !7!ash !G!!!S!gmpfac !(!6typep !_assert !!r!!!!!ykgmin !(!!- !!!!!!evenp !<= ! gkgmin !(!]!Wpush !Yceiling !!funcall <!O! !K!rlog  ceiling_1ret !j<!!!!M!!<!!!!O!!!!z! !(!\!!!]incf <= < gkmemfac !(!!!@!=!!!! rememberfact !!! lookupfact  clearfact null  !!@!=!!O!G!!!!S!(!]!Wloop-really-desetq > !`loop !!<!=!k!!!(!0!7!@!=!!!sort ! vector-push-extend !!<!=!@!=!!y! !!!(!7D!/ UV$F^׋ɋuÐ null 0+ @32x<top-level-form <ڈQ32yAg3656@< clearfact operator !! rememberfact !!! lookupfact !!!gkmemfac !!!gkgmin !!!kgmin !!!oldfacts variable <gmpfac !! !atob !! ! bignum-size !! ! nth-bigit !! !btoa !! ! defcomparison !< gmp_gcdext !!!gmp_gcd !!! next_prime !!!probably_primep !!!fact !!! defarithmetic !