Browse files

1.0 release

  • Loading branch information...
1 parent 79362f4 commit b6a9b92266bb668f1d5224f124c3e9770e15b1bb @madnificent committed Jan 31, 2011
Showing with 2 additions and 2 deletions.
  1. +1 −1 cl-recaptcha.asd
  2. +1 −1 code.lisp
View
2 cl-recaptcha.asd
@@ -6,7 +6,7 @@
(defsystem :cl-recaptcha
:name "CL Recaptcha"
:author "Aad Versteden <madnificent@gmail.com>"
- :version "0"
+ :version "1"
:maintainer "Aad Versteden <madnificent@gmail.com>"
:licence "MIT"
:description "Trivial support for the recaptcha service"
View
2 code.lisp
@@ -34,7 +34,7 @@
"This is the simplest way. It combines the script and the noscript version."
(concatenate 'string (challenge-js public-key) (challenge-ns public-key)))
-(defun verify-captcha ( recaptcha-challenge-field recaptcha-response-field remote-ip &key (private-key *private-captcha-key*) )
+(defun verify-captcha (recaptcha-challenge-field recaptcha-response-field remote-ip &key (private-key *private-captcha-key*))
"Verifies the result the user gave. There are two values returned. The first indicates the success or failure, the second indicates the error code the captcha-server gave."
(let ((response
(split-sequence #\Newline

0 comments on commit b6a9b92

Please sign in to comment.