#2511 approx-alike bug

None
closed
nobody
None
5
2012-12-15
2012-12-02
Barton Willis
No

Bug:

(%i1) ?approx-alike(a[1],a(1));
(%o1) true

Proposed mload.lisp fix

@@ -281,6 +281,8 @@
;; let's be extra careful.

((and (consp f) (consp (car f)) (consp g) (consp (car g))
  • (or (and (member 'array (car f) :test #'eq) (member 'array (car g) :test #'eq))
  • (and (not (member 'array (car f) :test #'eq)) (not (member 'array (car g) :test #'eq))))
    (or (approx-alike (mop f) (mop g))
    (and (symbolp (mop f)) (symbolp (mop g))
    (approx-alike ($nounify (mop f)) ($nounify (mop g)))))

Discussion

  • Barton Willis
    Barton Willis
    2012-12-15

    • status: open --> closed
    • milestone: --> None
     
  • Barton Willis
    Barton Willis
    2012-12-15

    Fixed by Commit:70329fb1662d25d3a8284dca4f2a209439590a47