home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / bytecomp / data.c.patch < prev    next >
Encoding:
Text File  |  1991-10-29  |  846 b   |  31 lines
  1. *** old-data.c    Mon Oct 21 12:56:25 1991
  2. --- data.c    Tue Oct 29 19:45:02 1991
  3. ***************
  4. *** 268,273 ****
  5. --- 268,282 ----
  6.     return Qnil;
  7.   }
  8.   
  9. + DEFUN ("compiled-function-p", Fcompiled_function_p, Scompiled_function_p, 1, 1, 0, 
  10. +        "T if OBJECT is a compiled function object (as returned by make-byte-code.)")
  11. +      (obj)
  12. + {
  13. +   if (XTYPE (obj) == Lisp_Compiled)
  14. +     return Qt;
  15. +   return Qnil;
  16. + }
  17. + 
  18.   DEFUN ("char-or-string-p", Fchar_or_string_p, Schar_or_string_p, 1, 1, 0, "T if OBJECT is a character (a number) or a string.")
  19.     (obj)
  20.        register Lisp_Object obj;
  21. ***************
  22. *** 1889,1894 ****
  23. --- 1898,1904 ----
  24.     defsubr (&Smarkerp);
  25.     defsubr (&Sinteger_or_marker_p);
  26.     defsubr (&Ssubrp);
  27. +   defsubr (&Scompiled_function_p);
  28.     defsubr (&Schar_or_string_p);
  29.     defsubr (&Sfacep);
  30.     defsubr (&Scar);
  31.