home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / float-su.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.1 KB  |  26 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:42:55 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/float-su.el
  3. ;;; emacs version 19.4 (Win-Emacs 1.00.04 beta).
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!¼ä┬├!ê─┼!ç" [fboundp atan error "Floating point was disabled at compile time" provide lisp-float-type] 2)
  14. (defconst pi (byte-code "└┴!┬_ç" [atan 1 4] 2) "\
  15. The value of Pi (3.1415926...)")
  16. (defconst e (exp 1) "\
  17. The value of e (2.7182818...)")
  18. (defconst degrees-to-radians (/ pi 180.0) "\
  19. Degrees to radian conversion constant")
  20. (defconst radians-to-degrees (/ 180.0 pi) "\
  21. Radian to degree conversion constant")
  22. (fset 'degrees-to-radians '(macro . #[(x) "└    ┬Ñ Eç" [* pi 180.0 x] 3 "\
  23. Convert ARG from degrees to radians."]))
  24. (fset 'radians-to-degrees '(macro . #[(x) "└┴\nÑ Eç" [* 180.0 pi x] 3 "\
  25. Convert ARG from radians to degrees."]))
  26.