carpentry/redis
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

redis: update for new carp

Browse Source
This commit is contained in:
Veit Heller
2020-04-21 10:50:28 +02:00
parent fdbb64e59a
commit 6b464c9d91
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
redis.carp
View File

@@ -150,6 +150,7 @@ For variable port numbers please check out [`open-on`](#open-on).")
(cons (list 'to-redis (car args)) (rconv- (cdr args))))) (cons (list 'to-redis (car args)) (rconv- (cdr args)))))
(defmacro defredis [cmd :rest args] (defmacro defredis [cmd :rest args]
(eval
(list 'defmodule 'Redis (list 'defmodule 'Redis
(list 'doc cmd (String.join [ (list 'doc cmd (String.join [
"is a wrapper around the `" (rtreat- (Symbol.str cmd)) "` Redis command. "is a wrapper around the `" (rtreat- (Symbol.str cmd)) "` Redis command.
@@ -160,7 +161,7 @@ It takes the same arguments as the [Redis command](https://redis.io/commands/"
(list 'defn cmd (cadr (collect-into (cons 'r args) array)) (list 'defn cmd (cadr (collect-into (cons 'r args) array))
(list 'do (list 'do
(list 'Redis.send 'r (list 'copy (rtreat- (Symbol.str cmd))) (list 'ref (rconv- args))) (list 'Redis.send 'r (list 'copy (rtreat- (Symbol.str cmd))) (list 'ref (rconv- args)))
'(Redis.read r))))) '(Redis.read r))))))
; these commands were scraped from redis.io on the 9th of Feb 2020 ; these commands were scraped from redis.io on the 9th of Feb 2020