;ELC ;;; compiled by cthomp@willow on Fri Sep 3 14:42:38 1993 ;;; from file /era/era-working/editor/lisp/ilisp/ilisp-el.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-mem #[(item list &optional elt=) "  @\" o Al *" [elt= equal nil done list item] 4 "\ Test to see if ITEM is equal to an item in LIST. Option comparison function ELT= defaults to equal."]) (fset 'lisp-memk #[(item list key) " \n#" [lisp-mem item list #[(x y) " \n!" [x key y] 3]] 4 "\ Test to see if ITEM is in LIST using KEY on each item in LIST before comparing it to ITEM."]) (fset 'lisp-del #[(item list &optional test) "\nÉ @\" Ac\nA^AW\n," [test equal list nil done prev element item t] 5 "\ Delete ITEM from LIST using TEST comparison and return the result. Default test is equal."]) (fset 'lisp-last #[(list) "AAw@" [list] 2 "\ Return the last element of LIST."]) (provide 'ilisp-el)