       
#(#! 
(lisp::in-package (lisp::quote user::lisp))#! 
(lisp::export (lisp::quote (lisp::isqrt lisp::abs lisp::phase lisp::signum lisp::cis lisp::asin lisp::acos lisp::sinh lisp::cosh lisp::tanh lisp::asinh lisp::acosh lisp::atanh lisp::rational lisp::rationalize lisp::ffloor lisp::fround lisp::ftruncate lisp::fceiling lisp::lognand lisp::lognor lisp::logandc1 lisp::logandc2 lisp::logorc1 lisp::logorc2 lisp::lognot lisp::logtest lisp::byte lisp::byte-size lisp::byte-position lisp::ldb lisp::ldb-test lisp::mask-field lisp::dpb lisp::deposit-field)))#! 
(lisp::in-package (lisp::quote lisp::system))
#("~S is not a non-negative integer." lisp::nil 1.0F0 -1.0F0 0.0012127084659392666F0 2/3 1/3 2/15 1/2 "The argument, ~s, is a logarithmic singularity.~
                    ~%Don't be foolish, GLS." system::x (lisp::float lisp::rational) 1.0S0 lisp::abs lisp::sinh lisp::cosh lisp::rationalp system::typecase-error-string lisp::logandc2 lisp::byte-position lisp::byte-size lisp::ldb lisp::mask-field lisp::dpb lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil lisp::nil (system::%init . #((lisp::proclaim (lisp::quote (lisp::optimize (lisp::safety 2) (lisp::space 3)))) (system::*make-constant (lisp::quote system::imag-one) #C(0.0F0 1.0F0)) (system::mfsfun (lisp::quote lisp::isqrt) 0 1) (system::mfsfun (lisp::quote lisp::abs) 1 1) (system::mfsfun (lisp::quote lisp::phase) 2 1) (system::mfsfun (lisp::quote lisp::signum) 3 1) (system::setvv 1 system::imag-one) (system::mfsfun (lisp::quote lisp::cis) 4 1) (system::mfsfun (lisp::quote lisp::asin) 5 1) (system::mfsfun (lisp::quote lisp::acos) 6 1) (system::mfsfun (lisp::quote lisp::sinh) 7 1) (system::mfsfun (lisp::quote lisp::cosh) 8 1) (system::mfsfun (lisp::quote lisp::tanh) 9 1) (system::mfsfun (lisp::quote lisp::asinh) 10 1) (system::mfsfun (lisp::quote lisp::acosh) 11 1) (system::mfsfun (lisp::quote lisp::atanh) 12 1) (system::mfsfun (lisp::quote lisp::rational) 13 1) (system::fset (lisp::quote lisp::rationalize) (lisp::symbol-function (lisp::quote lisp::rational))) (system::mf (lisp::quote lisp::ffloor) 14) (system::mf (lisp::quote lisp::fceiling) 15) (system::mf (lisp::quote lisp::ftruncate) 16) (system::mf (lisp::quote lisp::fround) 17) (system::mfsfun (lisp::quote lisp::lognand) 18 2) (system::mfsfun (lisp::quote lisp::lognor) 19 2) (system::mfsfun (lisp::quote lisp::logandc1) 20 2) (system::mfsfun (lisp::quote lisp::logandc2) 21 2) (system::mfsfun (lisp::quote lisp::logorc1) 22 2) (system::mfsfun (lisp::quote lisp::logorc2) 23 2) (system::mfsfun (lisp::quote lisp::lognot) 24 1) (system::mfsfun (lisp::quote lisp::logtest) 25 2) (system::mfsfun (lisp::quote lisp::byte) 26 2) (system::mfsfun (lisp::quote lisp::byte-size) 27 1) (system::mfsfun (lisp::quote lisp::byte-position) 28 1) (system::mfsfun (lisp::quote lisp::ldb) 29 2) (system::mfsfun (lisp::quote lisp::ldb-test) 30 2) (system::mfsfun (lisp::quote lisp::mask-field) 31 2) (system::mfsfun (lisp::quote lisp::dpb) 32 3) (system::mfsfun (lisp::quote lisp::deposit-field) 33 3))))
)
