X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Futils.lisp;fp=src%2Futils.lisp;h=f81950ffd44d83a943b70ddae511c239279f807d;hb=2690f3ebd2c792964877f6256d2239e108742b48;hp=d23aff755ca0124606aad07a3334149dcd288f1b;hpb=78a7b9d54ebcf4df2d734bef366e0b27da060146;p=fiveam.git

diff --git a/src/utils.lisp b/src/utils.lisp
index d23aff7..f81950f 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 ((symbol-name (symbol-name x)))
+         (and (not (emptyp symbol-name))
+              (char= (char symbol-name 0) #\?)))))
 
 (defun binding (x binds)
   (labels ((recbind (x binds)