mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

CDR -> CADR

Browse Source 
In SOFT-DLOP-P and SOFT-DELTA-FACE. We are looking for a FIXNUM, not a
LIST.
This commit is contained in:
gheber 2015-07-08 07:50:54 -05:00
parent b82a5e6884
commit b92f5211f9
2 changed files with 3 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/classes.lisp
View File

@ -399,7 +399,7 @@
(the boolean (the boolean
(and (consp object) (and (consp object)
(eq :delt (car object)) (eq :delt (car object))
(typep (cdr object) 'dgop)))) (typep (cadr object) 'dgop))))
(DEFTYPE SOFT-DLOP () '(satisfies soft-dlop-p)) (DEFTYPE SOFT-DLOP () '(satisfies soft-dlop-p))

14
src/delta.lisp
View File

@ -29,23 +29,13 @@
(when (minusp (decf bmark)) (when (minusp (decf bmark))
(return-from delta-face (absm 0 (logxor gmsm pmark)))))))) (return-from delta-face (absm 0 (logxor gmsm pmark))))))))
(DEFUN SOFT-DELTA-FACE (indx dmns gmsm) (DEFUN SOFT-DELTA-FACE (indx dmns gmsm)
(declare (declare
(fixnum indx dmns) (fixnum indx dmns)
(type soft-dlop gmsm)) (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) (DEFUN DELTA-BNDR (dmns gmsm)
(declare (fixnum dmns gmsm)) (declare (fixnum dmns gmsm))