X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Futils.lisp;h=49d552fa000e92f904e553025087c7ac8d91dfbd;hb=ee234e6ff40605c88d235c3ee3265acbc641563a;hp=05a7c5f8a6ed5a8839b85d3833a2a8350c64821a;hpb=a3a3f45f2473649d64411e6e099c533c6c309fdd;p=fiveam.git

diff --git a/src/utils.lisp b/src/utils.lisp
index 05a7c5f..49d552f 100644
--- a/src/utils.lisp
+++ b/src/utils.lisp
@@ -1,4 +1,4 @@
-;; -*- lisp -*-
+;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
 
 (in-package :it.bese.fiveam)
 
@@ -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)