Permalink
Browse files

Fixed conditional compilation for Parenscript-specific code.

  • Loading branch information...
1 parent d5cd8bf commit 499f8fac92d133205230b2d556fcf16cd7092b6a @vsedach committed Nov 2, 2011
Showing with 10 additions and 7 deletions.
  1. +7 −0 parenscript-implementation.lisp
  2. +3 −1 uri-template.asd
  3. +0 −6 uri-template.lisp
@@ -0,0 +1,7 @@
+(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))
View
@@ -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))
View
@@ -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)))

0 comments on commit 499f8fa

Please sign in to comment.