예제 #1
0
        public override object GetSymbol(string eventName)
        {
            eventName = eventName.ToLower();
            Symbol s = Lisp.getCurrentPackage().findAccessibleSymbol(eventName);

            return(s);
        }
예제 #2
0
        public override bool IsSubscriberOf(string eventName)
        {
            eventName = eventName.ToUpper();
            Symbol     s   = Lisp.getCurrentPackage().findAccessibleSymbol(eventName);
            LispObject fun = s.getSymbolFunction();

            if (fun == null || fun == Lisp.NIL)
            {
                return(false);
            }
            return(true);
        }