Skip to content
Browse files

Add syntax for infix-doller-reader

usage:
(asdf:load-system :cl-syntax-infix-doller)
(cl-syntax:use-syntax :infix-doller)
(=  (+ 1 2 $ * 3 4 $ + 5 6) (+ 1 2 (* 3 4 (+ 5 6)))) ; => t
  • Loading branch information...
1 parent 33a48e7 commit 768b18f8cddc98f14b513ef59ee7763ea664152f @ichimal ichimal committed Sep 4, 2012
Showing with 18 additions and 0 deletions.
  1. +13 −0 cl-syntax-infix-doller.asd
  2. +5 −0 contrib/infix-doller.lisp
View
13 cl-syntax-infix-doller.asd
@@ -0,0 +1,13 @@
+(in-package :cl-user)
+
+(defpackage :cl-syntax-infix-doller-asd
+ (:use :cl :asdf))
+(in-package :cl-syntax-infix-doller-asd)
+
+(defsystem :cl-syntax-infix-doller
+ :version "0.1"
+ :author "Shingo SUZUKI"
+ :license "LLGPL"
+ :description "CL-Syntax Reader Syntax for infix-doller-reader"
+ :depends-on (:cl-syntax :infix-doller-reader)
+ :components ((:file "contrib/infix-doller")))
View
5 contrib/infix-doller.lisp
@@ -0,0 +1,5 @@
+(in-package :cl-user)
+
+(syntax:define-package-syntax :infix-doller
+ (:merge :standard)
+ (:macro-char #\$ #'infix-doller-reader::infix-doller-reader) )

0 comments on commit 768b18f

Please sign in to comment.
Something went wrong with that request. Please try again.