From b92f5211f9b83fa57d45a3f289c5a90f4455b0f7 Mon Sep 17 00:00:00 2001 From: gheber Date: Wed, 8 Jul 2015 07:50:54 -0500 Subject: [PATCH] CDR -> CADR In SOFT-DLOP-P and SOFT-DELTA-FACE. We are looking for a FIXNUM, not a LIST. --- src/classes.lisp | 2 +- src/delta.lisp | 14 ++------------ 2 files changed, 3 insertions(+), 13 deletions(-) diff --git a/src/classes.lisp b/src/classes.lisp index 5317d9c..c2af340 100644 --- a/src/classes.lisp +++ b/src/classes.lisp @@ -399,7 +399,7 @@ (the boolean (and (consp object) (eq :delt (car object)) - (typep (cdr object) 'dgop)))) + (typep (cadr object) 'dgop)))) (DEFTYPE SOFT-DLOP () '(satisfies soft-dlop-p)) diff --git a/src/delta.lisp b/src/delta.lisp index b3429c1..5c39f88 100644 --- a/src/delta.lisp +++ b/src/delta.lisp @@ -29,23 +29,13 @@ (when (minusp (decf bmark)) (return-from delta-face (absm 0 (logxor gmsm pmark)))))))) + (DEFUN SOFT-DELTA-FACE (indx dmns gmsm) (declare (fixnum indx dmns) (type soft-dlop gmsm)) - (absm 0 (d (gmsm (delta-face indx dmns (cdr gmsm)))))) + (absm 0 (d (gmsm (delta-face indx dmns (cadr gmsm)))))) -#| -() -(dotimes (i 4) - (print (dlop-int-ext (gmsm (delta-face i 3 (dlop-ext-int '(0 1 2 3))))))) -(dotimes (i 4) - (print (dlop-int-ext (gmsm (delta-face i 3 (dlop-ext-int '(0 2 4 6)))))))) -(dotimes (i 4) - (print (soft-delta-face i 3 (d (mask 4))))) -(dotimes (i 4) - (print (soft-delta-face i 3 (d (dlop-ext-int '(0 2 4 6)))))) -|# (DEFUN DELTA-BNDR (dmns gmsm) (declare (fixnum dmns gmsm))