14:23:17moldybitsi had forgotten about equalp because i hadn't run into this yet
14:23:59pjbindeed. and the donwside of equalp is that: (equalp #(-3 1 "Hello") (vector -3 1 "HELLO")) #| --> t |#
14:25:03pjbSo you may have to write your own (defun vec-equal (a b) (and (= (length a) (length b)) (every (function equal) a b))) (vec-equal #(-3 1 "Hello") (vector -3 1 "HELLO")) #| --> nil |# (vec-equal #(-3 1 "Hello") (vector -3 1 "Hello")) #| --> t |#
18:49:08phoeI'd like one more review on https://github.com/sharplispers/split-sequence/pull/13 - I am in particular unsure about the two things sionescu has mentioned that I have not yet resolved.
18:49:26phoe1) The original code did not adhere to 80 chars per line - should I reformat it that way?
18:50:10phoe2) Should I drop the LIST branch of the typecase? My code does not traverse the whole list to determine its length, as per pjb's suggestion.