;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:44:52 1993 ;;; from file /export/willow0/era-working/editor/lisp/ilisp/ilisp-sym.el ;;; emacs version 19.8 (beta12) Lucid. ;;; bytecomp version 2.18; 28-aug-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.")) (fset 'lisp-symbol #[(package delimiter name) " E" [package delimiter "::" name] 3 "\ Create a LISP symbol."]) (fset 'lisp-symbol-name #[(symbol) "AA@" [symbol] 1 "\ Return the name of SYMBOL."]) (fset 'lisp-symbol-package #[(symbol) "@" [symbol] 1 "\ Return the package of SYMBOL."]) (fset 'lisp-symbol-delimiter #[(symbol) "A@" [symbol] 1 "\ Return the qualifier of SYMBOL."]) (fset 'lisp-symbol= #[(symbol1 symbol2) " !\n! !\n! !\n!" [lisp-symbol-name symbol1 symbol2 lisp-symbol-package lisp-symbol-delimiter] 3 "\ Return T is SYMBOL1 is equal to SYMBOL2."]) (provide 'ilisp-sym)