From 3241feaf8315c7aa04d7d914480472e016134a40 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Thu, 18 Jul 2013 17:17:47 +0200 Subject: TAGBODY: Support non-symbols as tags. --- sb-eval2.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 0a2828e..2614bd3 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -132,7 +132,7 @@ (append (funcall f context) (and parent (context-collect parent f))))) (defun context-find-go-tag (context go-tag) (let ((parent (context-parent context))) - (or (cdr (assoc (the symbol go-tag) (context-go-tags context))) + (or (cdr (assoc (the atom go-tag) (context-go-tags context))) (and parent (context-find-go-tag parent go-tag))))) (defun context-find-symbol-macro (context symmac) (let ((parent (context-parent context))) @@ -165,7 +165,7 @@ (let ((tag next-form) (current-forms (loop for current-form = (pop forms) do (setq next-form current-form) - until (symbolp current-form) + until (atom current-form) collect current-form))) (cons tag current-forms)))))) (defun context-var-lexical-p (context var) -- cgit v1.2.3