[Bese-devel] [Bug-Report]ARNESI:VARSYMP couses error with zero lengh name symbol

[CHIBA Masaomi]

Hi.
I found trivial bug.
ARNESI:VARSYMP couses error with "zero lengh name" symbol.

(IT.BESE.ARNESI::VARSYMP :||)
;>>> error: Index 0 out of bounds for (SIMPLE-ARRAY CHARACTER (0))

(IT.BESE.ARNESI::VARSYMP '||)
;>>> error: Index 0 out of bounds for (SIMPLE-ARRAY CHARACTER (0))

fix:
(defun varsymp (x)
  (and (symbolp x)
       (string/= "" x)                  ;not zero length name
       (eq (aref (symbol-name x) 0) #\?)))

Regards.
--
CHIBA Masaomi