Commit 499f8fac authored by Vladimir Sedach's avatar Vladimir Sedach

Fixed conditional compilation for Parenscript-specific code.

parent d5cd8bf4
(in-package #:uri-template)
(parenscript:defpsmacro maybe-uri-encode (x)
(if uri-encode? `(encode-u-r-i-component ,x) x))
(parenscript:defpsmacro uri-template (&rest template-args)
`(+ ,@template-args))
......@@ -8,5 +8,7 @@ Lets you easily create and parse URIs by using the URI Template reader macro syn
:serial t
:components ((:file "package")
(:file "uri-template")
(:file "destructure-uri"))
(:file "destructure-uri")
#+parenscript (:file "parenscript-implementation")
)
:depends-on (:cl-ppcre :named-readtables))
......@@ -34,9 +34,6 @@ read URI templates from your own dispatch character."
(defmacro maybe-uri-encode (x)
(if uri-encode? `(uri-encode (princ-to-string ,x)) x))
#+parenscript (parenscript:defpsmacro maybe-uri-encode (x)
(if uri-encode? `(encode-u-r-i-component ,x) x))
(defun uri-template (&rest template-args)
"The car of the list that the URI template reader produces. A
function or macro.
......@@ -45,9 +42,6 @@ This symbol also names the named-readtables readtable that provides
the #U dispatch macro."
(format nil "~{~A~}" template-args))
#+parenscript (parenscript:defpsmacro uri-template (&rest template-args)
`(+ ,@template-args))
(defun uri-template-reader (stream subchar arg)
(declare (ignore subchar arg))
`(uri-template ,@(read-uri-template stream t)))
......
Markdown is supported
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