home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / mpfeel.lha / MPFeel / bvf.h < prev    next >
Encoding:
Text File  |  1992-10-06  |  523 b   |  22 lines
  1. /* 
  2.   * Definition of Bytevector functions
  3.   *
  4. */
  5.  
  6. /* External interface */
  7.  
  8. LispObject apply_nary_bytefunction(LispObject */*stacktop*/, int args, LispObject fn);
  9.  
  10.  
  11. /* Internal reperesentation */
  12. #define N_SLOTS_IN_BYTEFUNCTION  4
  13.  
  14. /* represented as: module #, offset */
  15. /* better would be codevector, offset, static vector ? */
  16.  
  17. #define bytefunction_env(bvf)        slotref(bvf,0)
  18. #define bytefunction_offset(bvf)    slotref(bvf,1)
  19. #define bytefunction_codenum(bvf)    slotref(bvf,2)
  20. #define bytefunction_nargs(bvf)        slotref(bvf,3)
  21.  
  22.