;ELC ;;; compiled by jwz@thalidomide on Wed Nov 10 17:29:38 1993 ;;; from file /th/jwz/emacs19/lisp/prim/float-sup.el ;;; emacs version 19.9 Lucid. ;;; bytecomp version 2.20; 20-oct-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "ÀÁ!¬†ÂÃÄ!!ˆÅÆ!‡" [fboundp atan error gettext "Floating point was disabled at compile time" provide lisp-float-type] 3) (defconst pi (byte-code "ÀÁÂ!Ã_!‡" [purecopy atan 1 4] 3) "\ The value of Pi (3.1415926...)") (defconst e (byte-code "ÀÁÂ!!‡" [purecopy exp 1] 3) "\ The value of e (2.7182818...)") (defconst degrees-to-radians (byte-code "À Â¥!‡" [purecopy pi 180.0] 3) "\ Degrees to radian conversion constant") (defconst radians-to-degrees (byte-code "ÀÁ\n¥!‡" [purecopy 180.0 pi] 3) "\ Radian to degree conversion constant") (fset 'degrees-to-radians '(macro . #[(x) "À Â¥ E‡" [* pi 180.0 x] 3 "\ Convert ARG from degrees to radians."])) (fset 'radians-to-degrees '(macro . #[(x) "ÀÁ\n¥ E‡" [* 180.0 pi x] 3 "\ Convert ARG from radians to degrees."]))