Commit b9dc8d1a authored by Vladimir Sedach's avatar Vladimir Sedach
Browse files

Rename stringify to str (clojure influence).

parent a28cf8d7
......@@ -79,7 +79,7 @@ is output to the OUTPUT-STREAM stream."
(defpsmacro-deprecated === eql)
(defpsmacro-deprecated == equal)
(defpsmacro-deprecated % rem)
(defpsmacro-deprecated concat-string stringify)
(defpsmacro-deprecated concat-string str)
(defpsmacro !== (&rest args)
(warn-deprecated '!==)
......@@ -98,5 +98,5 @@ is output to the OUTPUT-STREAM stream."
`(set-timeout (lambda () ,@body) ,timeout))
(defun concat-string (&rest things)
(warn-deprecated 'concat-string 'stringify)
(apply #'stringify things))
(warn-deprecated 'concat-string 'str)
(apply #'str things))
......@@ -40,7 +40,7 @@
attr-val (pop attrs))
(if attr-test
(push `(if ,attr-test
(stringify ,(format nil " ~A=\"" attr-name) ,attr-val "\"")
(str ,(format nil " ~A=\"" attr-name) ,attr-val "\"")
"")
r)
(progn
......@@ -96,7 +96,7 @@
(concat-constant-strings (reverse r)))))
(defmacro+ps ps-html (&rest html-forms)
`(stringify ,@(process-html-forms-lhtml html-forms)))
`(str ,@(process-html-forms-lhtml html-forms)))
(defmacro+ps who-ps-html (&rest html-forms)
`(stringify ,@(process-html-forms-cl-who html-forms)))
`(str ,@(process-html-forms-cl-who html-forms)))
......@@ -400,11 +400,11 @@ lambda-list::=
(assert (equal result-type ''string) () "Right now Parenscript 'concatenate' only support strings.")
(cons '+ sequences))
(defun stringify (&rest things)
(defun str (&rest things)
"Like concatenate but prints all of its arguments."
(format nil "~{~A~}" things))
(defpsmacro stringify (&rest things)
(defpsmacro str (&rest things)
(if (and (= (length things) 1) (stringp (car things)))
(car things)
`((@ (list ,@things) :join) "")))
......
......@@ -251,7 +251,7 @@
#:random
#:ignore-errors
#:concatenate
#:stringify
#:str
#:length
#:defined
#:undefined
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment