From f91d0bc6c6737b89880151f3b2dffbce0b47eb82 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Sat, 18 May 2013 01:42:56 +0200 Subject: [PATCH] Fix VARSYMP for empty symbol names. --- src/utils.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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) -- 1.7.10.4