From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Fri, 17 May 2013 23:42:56 +0000 (+0200)
Subject: Fix VARSYMP for empty symbol names.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=f91d0bc6c6737b89880151f3b2dffbce0b47eb82;p=fiveam.git

Fix VARSYMP for empty symbol names.
---

diff --git a/src/utils.lisp b/src/utils.lisp
index d23aff7..49d552f 100644
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -92,7 +92,10 @@ ELSE will be executed."
                  (acond2 ,@others)))))))
 
 (defun varsymp (x)
-  (and (symbolp x) (eq (aref (symbol-name x) 0) #\?)))
+  (and (symbolp x)
+       (let ((name (symbol-name x)))
+         (and (>= (length name) 2)
+              (char= (char name 0) #\?)))))
 
 (defun binding (x binds)
   (labels ((recbind (x binds)