From chiba.masaomi at gmail.com  Wed Dec 21 23:38:54 2011
From: chiba.masaomi at gmail.com (CHIBA Masaomi)
Date: Thu, 22 Dec 2011 08:38:54 +0900
Subject: [Bese-devel] [Bug-Report]ARNESI:VARSYMP couses error with zero
	lengh name symbol
Message-ID: <CAARLxvdJzTJ4apT_2PHMThncFgFbcwcO0y2m+8E7RmzQ3QEwvA@mail.gmail.com>

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