Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fixed Clack.Middleware.Dbi.

  • Loading branch information...
commit 42b08c61e2ba95081d5f845bed7e657ac5c4eba5 1 parent 3236265
@fukamachi authored
Showing with 9 additions and 6 deletions.
  1. +1 −1  clack-middleware-dbi.asd
  2. +8 −5 src/contrib/middleware/dbi.lisp
View
2  clack-middleware-dbi.asd
@@ -24,6 +24,6 @@
:depends-on (:clack
:cl-syntax
:cl-syntax-annot
- :cl-dbi)
+ :dbi)
:components ((:file "src/contrib/middleware/dbi"))
:description "Middleware for CL-DBI connection management.")
View
13 src/contrib/middleware/dbi.lisp
@@ -1,9 +1,12 @@
#|
- This file is a part of hatenastamp project.
- Copyright (c) 2012 nitro_idiot (nitro_idiot@hatena.ne.jp)
+ This file is a part of Clack package.
+ URL: http://github.com/fukamachi/clack
+ Copyright (c) 2011 Eitarow Fukamachi <e.arrows@gmail.com>
+
+ Clack is freely distributable under the LLGPL License.
|#
-(clack.util:namespace caveman.middleware.dbi
+(clack.util:namespace clack.middleware.dbi
(:use :cl
:clack)
(:import-from :dbi
@@ -16,13 +19,13 @@
(defvar *db* nil)
@export
-(defclass <caveman-middleware-dbi> (<middleware>)
+(defclass <clack-middleware-dbi> (<middleware>)
((driver-name :initarg :driver-name
:accessor driver-name)
(args :initarg :args
:accessor args)))
-(defmethod call ((this <caveman-middleware-dbi>) env)
+(defmethod call ((this <clack-middleware-dbi>) env)
(let ((*db* (apply #'dbi:connect (driver-name this)
(loop for (k v) on (args this) by #'cddr
when v
Please sign in to comment.
Something went wrong with that request. Please try again.