Use F-CMPR and CADR instead of L-CMPR.

This is faster and closer to the original code.
2015-07-08 08:04:03 -05:00 · 2015-07-08 08:04:03 -05:00 · b7a7e9a4ea
commit b7a7e9a4ea
parent 39197123b4
1 changed files with 1 additions and 1 deletions
--- 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)