From d789969405e7c39b58647672940c75e611ba4347 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 25 May 2015 21:39:57 -0400
Subject: [PATCH] 1.0.6: Complete renaming of some internal functions. Release.

---
 non-special.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/non-special.lisp b/non-special.lisp
index 47a53e1..dd3ae9b 100644
--- a/non-special.lisp
+++ b/non-special.lisp
@@ -59,11 +59,11 @@ or a LIST that specifies a program."
                 (sym (x) ;; print a symbol
                   ;; check that only good characters are used in a symbol;
                   ;; TODO: if not, go through a string (ugh!)
-                  (assert (every 'acceptable-eval-symbol-character-p (package-name (symbol-package x))))
-                  (assert (every 'acceptable-eval-symbol-character-p (symbol-name x)))
+                  (assert (every 'non-special-symbol-character-p (package-name (symbol-package x))))
+                  (assert (every 'non-special-symbol-character-p (symbol-name x)))
                   (w x))
                 (s (x) ;; form that evaluates into a string
-                   (if (every 'acceptable-eval-character-p x)
+                   (if (every 'non-special-character-p x)
                        (progn ;; simple string literal
                          (p "(string`") (print-string-in-pipes x s) (p ")"))
                        (progn
@@ -73,7 +73,7 @@ or a LIST that specifies a program."
                            :for start = 0 :then (if position (1+ position) end)
                            :for morep = (< start end)
                            :for position = (and morep
-                                                (position-if-not 'acceptable-eval-character-p x
+                                                (position-if-not 'non-special-character-p x
                                                                  :start start))
                            :while morep
                            :do (when (or (null position) (< start position))
-- 
GitLab