add a compiling ceph version

gnu/packages/glicid.scm

@@ -1189,5 +1189,44 @@ in the @code{debug} output), and binutils.")))
 
 
 
+(use-modules (guix inferior) (guix channels)
+             (srfi srfi-1))   ;pour « first »
+
+
+(define channels
+  ;; L'ancienne révision depuis laquelle on veut
+  ;; extraire guile-json.
+  (list (channel
+         (name 'guix)
+         (url "https://git.savannah.gnu.org/git/guix.git")
+         (commit
+          "c9c274172b781c51e67868c53c8b2ea394bf7a94")))) ; just before snappy 1.19
+
+
+(define inferior
+  ;; Un inférieur représentant la révision ci-dessus.
+  (inferior-for-channels channels))
+
+(define-public old-snappy
+ (first (lookup-inferior-packages inferior "snappy")
+ )
+)
+
+
+(define-public glicid-ceph
+ (package 
+  (inherit ceph) 
+  (name "glicid-ceph")
+
+
+   (inputs `(("snappy",old-snappy)
+      ,@(package-inputs ceph)))
+
+ )
+)
+
+
+
+
 
 ;;; glicid.scm ends here