home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / misc / amicvs1-0.lha / AmiCVS / emacs / lisp-adds / pcl-cvs / elib-node.elc < prev    next >
Encoding:
Text File  |  1994-11-04  |  798 b   |  23 lines
  1.  
  2. (provide (quote elib-node))
  3.  
  4. (defmacro elib-node-create (left right data) (byte-code "à   
  5. F‡" [left right data vector] 4))
  6.  
  7. (defmacro elib-node-left (node) (byte-code "ÁÂE‡" [node aref 0] 3))
  8.  
  9. (defmacro elib-node-right (node) (byte-code "ÁÂE‡" [node aref 1] 3))
  10.  
  11. (defmacro elib-node-data (node) (byte-code "ÁÂE‡" [node aref 2] 3))
  12.  
  13. (defmacro elib-node-set-left (node newleft) (byte-code "Âà   F‡" [node newleft aset 0] 4))
  14.  
  15. (defmacro elib-node-set-right (node newright) (byte-code "Âà   F‡" [node newright aset 1] 4))
  16.  
  17. (defmacro elib-node-set-data (node newdata) (byte-code "Âà   F‡" [node newdata aset 2] 4))
  18.  
  19. (defmacro elib-node-branch (node branch) (byte-code "    E‡" [node branch aref] 3))
  20.  
  21. (defmacro elib-node-set-branch (node branch newval) (byte-code "à   
  22. F‡" [node branch newval aset] 4))
  23.