From 2690f3ebd2c792964877f6256d2239e108742b48 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..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) -- 1.7.10.4