compareToLP: arg | r | r <- 0. values with: arg values pad: 0 do: [ :lv :rv | (lv = rv) ifFalse: [r <- (lv < rv) ifTrue: [-1] ifFalse: [1]]]. ^ r