#2511 approx-alike bug

[Barton Willis]

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)))))

[Barton Willis]

Fixed by Commit:70329fb1662d25d3a8284dca4f2a209439590a47