[Openmcl-devel] PATCH: MISMATCH ignores :end1/:end2 when working :from-end

[Eric Marsden]

Hi,

MISMATCH does not properly handle the :end1 and :end2 arguments when
operating on lists and :FROM-END is true. For example,

,----
| ? (mismatch '(x y z a b c x y z) '(a b c) :start1 3 :end1 6 :from-end t)
| 6
| ? (mismatch #(x y z a b c x y z) #(a b c) :start1 3 :end1 6 :from-end t)
| NIL
`----

The attached patch fixes this bug. 

-------------- next part --------------
A non-text attachment was scrubbed...
Name: openmcl.diff
Type: text/x-diff
Size: 951 bytes
Desc: fix MISMATCH handling of :end1/:end2 when :from-end t
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20070513/f9bb8086/attachment.bin>
-------------- next part --------------

-- 
Eric Marsden