Skip to content
Snippets Groups Projects
Commit d7899694 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.0.6: Complete renaming of some internal functions. Release.

parent 03cf90d2
No related branches found
No related tags found
No related merge requests found
...@@ -59,11 +59,11 @@ or a LIST that specifies a program." ...@@ -59,11 +59,11 @@ or a LIST that specifies a program."
(sym (x) ;; print a symbol (sym (x) ;; print a symbol
;; check that only good characters are used in a symbol; ;; check that only good characters are used in a symbol;
;; TODO: if not, go through a string (ugh!) ;; TODO: if not, go through a string (ugh!)
(assert (every 'acceptable-eval-symbol-character-p (package-name (symbol-package x)))) (assert (every 'non-special-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 (symbol-name x)))
(w x)) (w x))
(s (x) ;; form that evaluates into a string (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 (progn ;; simple string literal
(p "(string`") (print-string-in-pipes x s) (p ")")) (p "(string`") (print-string-in-pipes x s) (p ")"))
(progn (progn
...@@ -73,7 +73,7 @@ or a LIST that specifies a program." ...@@ -73,7 +73,7 @@ or a LIST that specifies a program."
:for start = 0 :then (if position (1+ position) end) :for start = 0 :then (if position (1+ position) end)
:for morep = (< start end) :for morep = (< start end)
:for position = (and morep :for position = (and morep
(position-if-not 'acceptable-eval-character-p x (position-if-not 'non-special-character-p x
:start start)) :start start))
:while morep :while morep
:do (when (or (null position) (< start position)) :do (when (or (null position) (< start position))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment