Permalink
Browse files

rewrote using CL-Syntax.

  • Loading branch information...
1 parent 7988d14 commit 4971a9c70de24fc63b78fce841dcd7f918f9fe47 @fukamachi committed Nov 3, 2011
Showing with 53 additions and 45 deletions.
  1. +2 −1 clack-app-route.asd
  2. +2 −1 clack-middleware-clsql.asd
  3. +2 −1 clack-middleware-csrf.asd
  4. +2 −1 clack-middleware-oauth.asd
  5. +2 −1 clack-middleware-rucksack.asd
  6. +2 −1 clack.asd
  7. +3 −1 my-projects
  8. +1 −1 src/contrib/app/route.lisp
  9. +1 −1 src/contrib/middleware/clsql.lisp
  10. +1 −1 src/contrib/middleware/csrf.lisp
  11. +1 −1 src/contrib/middleware/oauth.lisp
  12. +1 −1 src/contrib/middleware/rucksack.lisp
  13. +1 −1 src/core/app/directory.lisp
  14. +1 −1 src/core/app/file.lisp
  15. +1 −1 src/core/app/urlmap.lisp
  16. +1 −1 src/core/builder.lisp
  17. +1 −1 src/core/clack.lisp
  18. +1 −1 src/core/component.lisp
  19. +1 −1 src/core/handler.lisp
  20. +1 −1 src/core/handler/apache.lisp
  21. +1 −1 src/core/handler/hunchentoot.lisp
  22. +1 −1 src/core/logger.lisp
  23. +1 −1 src/core/middleware.lisp
  24. +1 −1 src/core/middleware/auth/basic.lisp
  25. +1 −1 src/core/middleware/conditional.lisp
  26. +1 −1 src/core/middleware/logger/base.lisp
  27. +1 −1 src/core/middleware/logger/file.lisp
  28. +1 −1 src/core/middleware/logger/logger.lisp
  29. +1 −1 src/core/middleware/logger/stream.lisp
  30. +1 −1 src/core/middleware/session/session.lisp
  31. +1 −1 src/core/middleware/session/state.lisp
  32. +1 −1 src/core/middleware/session/state/cookie.lisp
  33. +1 −1 src/core/middleware/session/store.lisp
  34. +1 −1 src/core/middleware/static.lisp
  35. +1 −1 src/core/request.lisp
  36. +1 −1 src/core/response.lisp
  37. +1 −1 src/core/test.lisp
  38. +1 −1 src/core/test/suite.lisp
  39. +1 −1 src/util/doc.lisp
  40. +1 −1 src/util/ducktype.lisp
  41. +1 −1 src/util/hunchentoot.lisp
  42. +1 −1 src/util/localtime.lisp
  43. +1 −1 src/util/route.lisp
  44. +1 −1 src/util/stream.lisp
  45. +1 −1 src/util/util.lisp
View
@@ -22,7 +22,8 @@
:author "Eitarow Fukamachi"
:license "LLGPL"
:depends-on (:clack
- :cl-annot
+ :cl-syntax
+ :cl-syntax-annot
:cl-ppcre
:alexandria)
:components ((:file "src/contrib/app/route"))
@@ -22,7 +22,8 @@
:author "Eitarow Fukamachi"
:license "LLGPL"
:depends-on (:clack
- :cl-annot
+ :cl-syntax
+ :cl-syntax-annot
:clsql)
:components ((:file "src/contrib/middleware/clsql"))
:description "Middleware for CLSQL connection management")
@@ -22,7 +22,8 @@
:author "Eitarow Fukamachi"
:license "LLGPL"
:depends-on (:clack
- :cl-annot
+ :cl-syntax
+ :cl-syntax-annot
:anaphora)
:components ((:file "src/contrib/middleware/csrf"))
:description "Middleware for easy CSRF protection"
@@ -22,7 +22,8 @@
:author "Eitarow Fukamachi"
:license "LLGPL"
:depends-on (:clack
- :cl-annot
+ :cl-syntax
+ :cl-syntax-annot
:cl-oauth
:anaphora
:metabang-bind)
@@ -22,7 +22,8 @@
:author "Eitarow Fukamachi"
:license "LLGPL"
:depends-on (:clack
- :cl-annot
+ :cl-syntax
+ :cl-syntax-annot
:rucksack)
:components ((:file "src/contrib/middleware/rucksack"))
:description "Middleware for Rucksack connection management")
View
@@ -27,7 +27,8 @@
:anaphora
:arnesi
:split-sequence
- :cl-annot
+ :cl-syntax
+ :cl-syntax-annot
:closer-mop
;; Server
:hunchentoot
View
@@ -3,15 +3,17 @@
# To use clbuild2, just copy this file to your clbuild2 base directory
# and run following commands.
#
-# $ clbuild install-from-upstream clack cl-annot cl-test-more
+# $ clbuild install-from-upstream clack cl-annot cl-syntax cl-test-more
# $ clbuild quickload clack
#
clack get_git git://github.com/fukamachi/clack.git
cl-annot get_git git://github.com/arielnetworks/cl-annot.git
+cl-syntax get_git git://github.com/m2ym/cl-syntax.git
cl-test-more get_git git://github.com/fukamachi/cl-test-more.git
# for developers
#clack get_git git@github.com:fukamachi/clack.git
#cl-annot get_git git@github.com:arielnetworks/cl-annot.git
+#cl-syntax get_git git@github.com:m2ym/cl-syntax.git
#cl-test-more get_git git@github.com:fukamachi/cl-test-more.git
@@ -24,7 +24,7 @@
:make-url-rule
:match))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@eval-always
@doc "
@@ -13,7 +13,7 @@
:connect
:disconnect))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-middleware-clsql> (<middleware>)
@@ -16,7 +16,7 @@
(:import-from :clack.util
:generate-random-id))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-middleware-csrf> (<middleware>)
@@ -14,7 +14,7 @@
:clack.request
:clack.response))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-middleware-oauth> (<middleware>)
@@ -13,7 +13,7 @@
:with-transaction
:current-rucksack))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-middleware-rucksack> (<middleware>)
@@ -21,7 +21,7 @@
:directory-pathname-p
:list-directory))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-app-directory> (<clack-app-file>) ())
View
@@ -21,7 +21,7 @@
:file-exists-p
:directory-exists-p))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-app-file> (<component>)
View
@@ -16,7 +16,7 @@
:scan-to-strings
:regex-replace))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-app-urlmap> (<component>)
View
@@ -17,7 +17,7 @@
(:import-from :clack.middleware.conditional
:<clack-middleware-conditional>))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defvar *builder-lazy-p* nil
View
@@ -30,7 +30,7 @@
:make-app
:wrap))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@doc "
Easy way to run Clack Application.
View
@@ -9,7 +9,7 @@
(clack.util:namespace clack.component
(:use :cl))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <component> () ()
View
@@ -11,7 +11,7 @@
(:import-from :clack.util
:find-handler))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <handler> ()
@@ -18,7 +18,7 @@
(:import-from :clack.util.hunchentoot
:url-decode))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defun run (app &key debug (port 3000))
@@ -18,7 +18,7 @@
(:import-from :flexi-streams
:make-external-format))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
(defun initialize ()
(setf *hunchentoot-default-external-format*
View
@@ -14,7 +14,7 @@
(:import-from :clack.util.localtime
:now))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defvar *logger-output* (make-string-output-stream)
View
@@ -12,7 +12,7 @@
:<component>
:call))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <middleware> (<component>)
@@ -18,7 +18,7 @@
:aand
:it))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-middleware-auth-basic> (<middleware>)
@@ -10,7 +10,7 @@
(:use :cl
:clack))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-middleware-conditional> (<middleware>)
@@ -9,7 +9,7 @@
(clack.util:namespace clack.logger.base
(:use :cl))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-logger-base> () ()
@@ -14,7 +14,7 @@
:<clack-logger-base>
:output))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-logger-file> (<clack-logger-base>)
@@ -19,7 +19,7 @@
(:import-from :clack.logger.base :output)
(:import-from :clack.logger.stream :<clack-logger-stream>))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-middleware-logger> (<middleware>)
@@ -14,7 +14,7 @@
:<clack-logger-base>
:output))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-logger-stream> (<clack-logger-base>)
@@ -16,7 +16,7 @@
(:import-from :alexandria :hash-table-plist))
#.(rename-package :clack.session.state :clack.session.state '(state))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-middleware-session> (<middleware>)
@@ -16,7 +16,7 @@
:sid-generator
:sid-validator))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-session-state> ()
@@ -30,7 +30,7 @@
:extract-id
:generate-id))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-session-state-cookie> (<clack-session-state>)
@@ -13,7 +13,7 @@
:remove-from-plistf)
(:import-from :clack.util :getf*))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-session-store> ()
@@ -15,7 +15,7 @@
(:import-from :alexandria
:starts-with-subseq))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <clack-middleware-static> (<middleware>)
View
@@ -48,7 +48,7 @@
:user-agent
:uploads))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <request> ()
View
@@ -22,7 +22,7 @@
:universal-to-timestamp)
(:export :status))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defclass <response> ()
View
@@ -14,7 +14,7 @@
(:import-from :clack.util
:find-handler))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defvar *clack-test-handler* :hunchentoot
View
@@ -24,7 +24,7 @@
:find-system
:component-pathname))
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defvar *clack-test-access-port* *clack-test-port*
View
@@ -16,7 +16,7 @@
:generic-function-lambda-list))
(in-package :clack.util.doc)
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
'#.(defvar *section-plist*
View
@@ -11,7 +11,7 @@
(:use :cl))
(in-package :clack.util.ducktype)
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
(defvar *previous-readtables* nil
"Stack of readtables for duck-typing reader.")
@@ -39,7 +39,7 @@
:rfc2388))
(in-package :clack.util.hunchentoot)
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
(defparameter *mime-type-list* '(("application/andrew-inset" "ez")
("application/cu-seeme" "cu")
View
@@ -16,7 +16,7 @@
:+gmt-zone+))
(in-package :clack.util.localtime)
-(cl-annot:enable-annot-syntax)
+(cl-syntax:use-syntax :annot)
@export
(defun now ()
Oops, something went wrong.

0 comments on commit 4971a9c

Please sign in to comment.