注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Chun Tian (binghe)

超越自我,洞察宇宙

 
 
 

日志

 
 

cl-memcached: MemCache 客户端  

2007-08-25 01:23:21|  分类: Lisp |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
最近有人写了一个 Common Lisp 的 memcached 客户端软件包:
    http://common-lisp.net/project/cl-memcached/
不过作者是在 Allegro CL 8.0 上面开发的。我做了一些小小的改动,于是可以在 LispWorks 5.0.2 上正常运行了:

CL-USER 3 > (defvar *my-cache*
              (cl-memcached:mc-make-memcache-instance
                :ip "127.0.0.1"
                :name "My test cache"))

#<CL-MEMCACHED:MEMCACHE My test cache on 127.0.0.1:11211  SIZE:-1/1048576Mb>
CL-USER 4 > (cl-memcached:mc-store "test-key"
                                   "This is Test-DATA"
              :memcache *my-cache* :use-pool t)
"STORED"
CL-USER 5 > (cl-memcached:mc-get '("test-key")
              :memcache *my-cache* :use-pool t)
(("test-key"
 #(84 104 105 115 32 105 115 32 84 101 115 116 45 68 65 84 65)))
CL-USER 6 > (cl-memcached:mc-get+ "test-key"
              :memcache *my-cache* :use-pool t)
"This is Test-DATA"
CL-USER 7 > (cl-memcached:mc-get '("test-key")
              :memcache *my-cache* :use-pool t :is-string t)
(("test-key" "This is Test-DATA"))
CL-USER 8 > (cl-memcached:mc-store "test-key-2"
                                   "This is Test-DATA Again"
              :memcache *my-cache* :use-pool t)
"STORED"
CL-USER 9 > (cl-memcached:mc-get '("test-key" "test-key-2")
              :memcache *my-cache* :use-pool t :is-string t)
(("test-key" "This is Test-DATA")
 ("test-key-2" "This is Test-DATA Again"))

一个交互式的 MemCache 客户端,应该还是有些用处的。

  评论这张
 
阅读(1035)| 评论(1)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017