;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:45:12 1993 ;;; from file /era/era-0.80/editor/lisp/pcl-cvs/elib-node.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "ÀÁ!ˆÂÃMˆÄÅMˆÆÇMˆÈÉMˆÊËMˆÌÍMˆÎÏMˆÐÑMˆÒÓM‡" [provide elib-node elib-node-create (macro . #[(left right data) "À \n F‡" [vector left right data] 4]) elib-node-left (macro . #[(node) "À ÂE‡" [aref node 0] 3]) elib-node-right (macro . #[(node) "À ÂE‡" [aref node 1] 3]) elib-node-data (macro . #[(node) "À ÂE‡" [aref node 2] 3]) elib-node-set-left (macro . #[(node newleft) "À  F‡" [aset node 0 newleft] 4]) elib-node-set-right (macro . #[(node newright) "À  F‡" [aset node 1 newright] 4]) elib-node-set-data (macro . #[(node newdata) "À  F‡" [aset node 2 newdata] 4]) elib-node-branch (macro . #[(node branch) "À \nE‡" [aref node branch] 3]) elib-node-set-branch (macro . #[(node branch newval) "À \n F‡" [aset node branch newval] 4])] 2)