From b7a7e9a4ea444dae7b7fffdc95bec3f899286630 Mon Sep 17 00:00:00 2001
From: gheber <leberecht@beingandti.me>
Date: Wed, 8 Jul 2015 08:04:03 -0500
Subject: [PATCH] Use F-CMPR and CADR instead of L-CMPR.

This is faster and closer to the original code.
---
 src/delta.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/delta.lisp b/src/delta.lisp
index 5c39f88..d8e4fd4 100644
--- a/src/delta.lisp
+++ b/src/delta.lisp
@@ -12,7 +12,7 @@
 
 
 (DEFUN SOFT-DELTA-CMPR (gmsm1 gmsm2)
-  (l-cmpr (cdr gmsm1) (cdr gmsm2)))
+  (f-cmpr (cadr gmsm1) (cadr gmsm2)))
 
 
 (DEFUN DELTA-FACE (indx dmns gmsm)