Use F-CMPR and CADR instead of L-CMPR.
This is faster and closer to the original code.
This commit is contained in:
parent
39197123b4
commit
b7a7e9a4ea
@ -12,7 +12,7 @@
|
|||||||
|
|
||||||
|
|
||||||
(DEFUN SOFT-DELTA-CMPR (gmsm1 gmsm2)
|
(DEFUN SOFT-DELTA-CMPR (gmsm1 gmsm2)
|
||||||
(l-cmpr (cdr gmsm1) (cdr gmsm2)))
|
(f-cmpr (cadr gmsm1) (cadr gmsm2)))
|
||||||
|
|
||||||
|
|
||||||
(DEFUN DELTA-FACE (indx dmns gmsm)
|
(DEFUN DELTA-FACE (indx dmns gmsm)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user