cl-memcached-devel

cl-memcached-devel@common-lisp.net

7 discussions

[cl-memcached-devel] Some questions about cl-memcached
by Renato Lucindo 23 Oct '07

23 Oct '07

Hello, I have a few questions about cl-memcached: 1) Which object type is possible to store on memcached using cl-memcached? CLOS objects instances? Hash tables? Structures? 2) When cl-memcached will support multiple servers (with weights) like others memcached clients? 3) cl-memcached supports compression? 4) cl-memcached will support other lisp implementations? (SBCL, CMUCL, CLISP??) 5) cl-memcached will deal with strings internally (this way won't be necessary pass :is-string parameter)? Thanks! Lucindo

2 1

[cl-memcached-devel] Some patch to support LispWorks 5.0
by Chun Tian (binghe) 01 Oct '07

01 Oct '07

Hi, dear developer I've made some changes to your code to support LispWorks 5.0.2, take it if you want. Thanks. Chun Tian (binghe) diff -ru cl-memcached-0.4.1.orig/cl-memcached.asd cl-memcached-0.4.1/cl-memcached.asd --- cl-memcached-0.4.1.orig/cl-memcached.asd 2007-08-02 22:30:55.000000000 +0800 +++ cl-memcached-0.4.1/cl-memcached.asd 2007-08-23 16:49:11.000000000 +0800 @@ -19,7 +19,8 @@ :author "quasi <quasi(a)cleartrip.com>" :serial t :depends-on (:usocket - :split-sequence) + :split-sequence + :cl-who) :components ((:file "packages") (:file "util") (:file "compat") diff -ru cl-memcached-0.4.1.orig/cl-memcached.lisp cl-memcached-0.4.1/cl-memcached.lisp --- cl-memcached-0.4.1.orig/cl-memcached.lisp 2007-08-02 22:30:55.000000000 +0800 +++ cl-memcached-0.4.1/cl-memcached.lisp 2007-08-25 00:42:09.000000000 +0800 @@ -35,9 +35,6 @@ ;; (declaim (optimize (speed 3) (debug 0)))) -(defvar *memcache* - "Represents a particular Memcached server") - (defvar *use-pool* nil "Default value for the USE-POOL keyword parameter in memcached functions") @@ -130,6 +127,7 @@ (defmethod initialize-instance :after ((memcache memcache) &rest initargs) + (declare (ignore initargs)) (setf (slot-value memcache 'pool) (make-instance 'memcache-connection-pool :name (concatenate 'simple-string (name memcache) " - Connection Pool") :max-capacity (pool-size memcache))) (handler-case (mc-pool-init :memcache memcache) (error () nil)) @@ -184,13 +182,15 @@ memcache => The instance of class memcache which represnts the memcached we want to use. command => The storage command we want to use. There are 3 available : set, add & replace. timeout => The time in seconds when this data expires. 0 is never expire." - (declare (type fixnum timeout length) (type simple-string key)) + (declare (type fixnum timeout) (type simple-string key) + (type (member :set :add :replace) command)) (let ((len (length data))) (mc-with-pool-y/n (write-string (case command (:set "set") (:add "add") - (:replace "replace")) s) + (:replace "replace") + (t "error")) s) (write-char #\Space s) (write-string key s) (write-char #\Space s) @@ -231,12 +231,11 @@ until (search "END" x :test #'string-equal) collect (let* ((status-line (split-sequence:split-sequence #\Space x)) (len (parse-integer (fourth status-line))) - (seq (if is-string - (make-array len :element-type 'character) - (make-sequence '(vector (unsigned-byte 8)) len)))) + (seq (make-sequence '(vector (unsigned-byte 8)) len))) (read-sequence seq s) (read-line s nil nil) - (list (second status-line) seq))))) + (list (second status-line) + (if is-string (map 'string #'code-char seq) seq)))))) (defun mc-get+ (key-or-list-of-keys &key (memcache *memcache*) (use-pool *use-pool*)) @@ -293,7 +292,6 @@ (defun mc-stats-raw (&key (memcache *memcache*) (use-pool *use-pool*)) "Returns Raw stats data from memcached server to be used by the mc-stats function" - (declare (type fixnum port)) (mc-with-pool-y/n (with-output-to-string (str) (format s "stats~A" +crlf+) cl-memcached-0.4.1だけに発見: debian diff -ru cl-memcached-0.4.1.orig/packages.lisp cl-memcached-0.4.1/packages.lisp --- cl-memcached-0.4.1.orig/packages.lisp 2007-08-02 22:30:55.000000000 +0800 +++ cl-memcached-0.4.1/packages.lisp 2007-08-23 16:49:11.000000000 +0800 @@ -26,22 +26,22 @@ ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -(in-package #:cl-user) +(in-package :cl-user) -(defpackage #:cl-memcached - (:use #:cl) - (:export #:*memcache* - #:memcache - #:mc-store - #:mc-get - #:mc-get+ - #:mc-del - #:mc-incr - #:mc-decr - #:mc-stats - #:mc-make-memcache-instance - #:mc-server-check - #:mc-pool-init - #:*use-pool*)) +(defpackage cl-memcached + (:use :cl :usocket) + (:export *memcache* + memcache + mc-store + mc-get + mc-get+ + mc-del + mc-incr + mc-decr + mc-stats + mc-make-memcache-instance + mc-server-check + mc-pool-init + *use-pool*)) diff -ru cl-memcached-0.4.1.orig/util.lisp cl-memcached-0.4.1/util.lisp --- cl-memcached-0.4.1.orig/util.lisp 2007-08-02 22:30:55.000000000 +0800 +++ cl-memcached-0.4.1/util.lisp 2007-08-23 16:49:11.000000000 +0800 @@ -15,6 +15,8 @@ (string (code-char 13)) (string (code-char 10))))) +(defvar *memcache* + "Represents a particular Memcached server") (defun mc-server-check (&key (memcache *memcache*)) "Performs some basic tests on the Memcache instance and outputs a status string" @@ -72,7 +74,7 @@ (:tr (:td (format stream "Process ID")) (:td (format stream "~a" (cl-memcached::mc-stats-pid stats)))) (:tr - (:td (format stream "Server Uptime")) (:td (format stream "~a" (ct-utils::sec-to-human-time-str (cl-memcached::mc-stats-uptime stats))))) + (:td (format stream "Server Uptime")) (:td (format stream "~a" (cl-memcached::mc-stats-uptime stats)))) (:tr (:td (format stream "System Time")) (:td (format stream "~a" (cl-memcached::mc-stats-time stats)))) (:tr

2 2

[cl-memcached-devel] Auto-nag: cl-memcached please update your webpage
by root＠common-lisp.net 16 Jul '07

16 Jul '07

You are being nagged on because you have not created a sensible default webpage for your project. Please do so or you will be nagged again next week. All we ask is that you type in something about the project and perhaps some links to mailinglists etc. See common-lisp.net/project/clo/sp/index.html for a reasonable template. Some projects host their webpages somewhere else (eg. http://common-lisp.net/project/cl-ppcre) and if you're in the same situation you may put the following in your index.shtml: <HTML> <HEAD> <META HTTP-EQUIV="refresh" CONTENT="0;URL=YOURURLGOESHERE"> </HEAD> <BODY> </BODY> </HTML> Any questions? You can reach the author of this cronjob at clo-devel(a)common-lisp.net Thanks!

1 0

[cl-memcached-devel] Auto-nag: cl-memcached please update your webpage
by root＠common-lisp.net 09 Jul '07

09 Jul '07

1 0

[cl-memcached-devel] Auto-nag: cl-memcached please update your webpage
by root＠common-lisp.net 02 Jul '07

02 Jul '07

1 0

[cl-memcached-devel] Auto-nag: cl-memcached please update your webpage
by root＠common-lisp.net 25 Jun '07

25 Jun '07

1 0

[cl-memcached-devel] Auto-nag: cl-memcached please update your webpage
by root＠common-lisp.net 18 Jun '07

18 Jun '07

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

cl-memcached-devel