home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / bytecomp / bc-runti.elc next >
Encoding:
Text File  |  1993-06-08  |  4.3 KB  |  64 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:56:32 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/bytecomp/bc-runti.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  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 "└┴!¼ê┴┬Mê┴├Mê─┼Mê╞─╟╚#ç" [fboundp make-byte-code (lambda (arglist bytestring constants stackdepth doc) (list 'lambda arglist doc (list 'byte-code bytestring constants stackdepth))) #[(arglist bytestring constants stackdepth &optional doc &rest interactive) "└    D\n¡é\nCñ ¡ê├ @¡ü BCñ─FCñç" [lambda arglist doc interactive byte-code bytestring constants stackdepth] 5 "For compatibility with Emacs19 ``.elc'' files."] inline progn put lisp-indent-hook 0] 4)
  14. (fset 'proclaim-inline '(macro . #[(&rest fns) "└┴┬ \"Bç" [eval-and-compile mapcar #[(x) "┴N┬>¼à├─\"ê┼╞D╟╚Fç" [x byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put quote 'byte-optimizer 'byte-compile-inline-expand] 4] fns] 4 "\
  15. Cause the named functions to be open-coded when called from compiled code.
  16. They will only be compiled open-coded when byte-compile-optimize is true."]))
  17. (fset 'proclaim-notinline '(macro . #[(&rest fns) "└┴┬ \"Bç" [eval-and-compile mapcar #[(x) "┴N┬=½å├┴─#ê┼╞╟╚D╔E╩E├╦─FEç" [x byte-optimizer byte-compile-inline-expand put nil if eq get quote 'byte-optimizer 'byte-compile-inline-expand 'byte-optimizer] 6] fns] 4 "\
  18. Cause the named functions to no longer be open-coded."]))
  19. (fset 'defsubst '(macro . #[(name arglist &rest body) "└┴\n BBB┼\nDEç" [prog1 defun name arglist body proclaim-inline] 5 "\
  20. Same syntax as defun, but the defined function will always be open-coded,
  21. so long as byte-compile-optimize is true."]))
  22. (fset 'make-obsolete #[(fn new) "┴Në├=½ê─Náê¬Ä╞─\nB#ê╞┴├#ê)ç" [fn byte-compile handler byte-compile-obsolete byte-obsolete-info new put] 6 "\
  23. Make the byte-compiler warn that FUNCTION is obsolete,
  24. and NEW should be used instead.  If NEW is a string, then that is the
  25. `use instead' message." "aMake function obsolete: \nxObsoletion replacement: "])
  26. (fset 'make-obsolete-variable #[(var new) "└    ┬ #ê    ç" [put var byte-obsolete-variable new] 4 "\
  27. Make the byte-compiler warn that VARIABLE is obsolete,
  28. and NEW should be used instead.  If NEW is a string, then that is the
  29. `use instead' message." (byte-code "└┴\n├─$ë╞ܽä╟╞!ê╚!)╔╩╦!!@Dç" [completing-read "Make variable obsolete: " obarray boundp t str "" error intern read-from-string read-string "Obsoletion replacement: "] 6)])
  30. (put 'dont-compile 'lisp-indent-hook 0)
  31. (fset 'dont-compile '(macro . #[(&rest body) "└┴\nA½à├\nB¬é\n@DDç" [eval quote body progn] 4 "\
  32. Like progn, but the body will always run interpreted (not compiled).
  33. If you think you need this, you're probably making a mistake somewhere."]))
  34. (put 'eval-when-compile 'lisp-indent-hook 0)
  35. (fset 'eval-when-compile '(macro . #[(&rest body) "└    Bç" [progn body] 2 "\
  36. Like progn, but evaluates the body at compile-time.  The result of the
  37. body appears to the compiler as a quoted constant."]))
  38. (put 'eval-and-compile 'lisp-indent-hook 0)
  39. (fset 'eval-and-compile '(macro . #[(&rest body) "└    Bç" [progn body] 2 "\
  40. Like progn, but evaluates the body at compile-time as well as at load-time."]))
  41. (put 'byte-compiler-options 'lisp-indent-hook 0)
  42. (defmacro byte-compiler-options (&rest args) "\
  43. Set some compilation-parameters for this file.  This will affect only the
  44. file in which it appears; this does nothing when evaluated, and when loaded
  45. from a .el file.
  46.  
  47. Each argument to this macro must be a list of a key and a value.
  48.  
  49.   Keys:          Values:        Corresponding variable:
  50.  
  51.   verbose      t, nil        byte-compile-verbose
  52.   optimize      t, nil, source, byte    byte-compile-optimize
  53.   warnings      list of warnings    byte-compile-warnings
  54.               Legal elements: (callargs redefine free-vars unresolved)
  55.   file-format      emacs18, emacs19    byte-compile-emacs18-compatibility
  56.   new-bytecodes      t, nil        byte-compile-generate-emacs19-bytecodes
  57.  
  58. For example, this might appear at the top of a source file:
  59.  
  60.     (byte-compiler-options
  61.       (optimize t)
  62.       (warnings (- free-vars))        ; Don't warn about free variables
  63.       (file-format emacs19))" nil)
  64.