sorting a union destroys the underlying elements. I am using 'union' and not 'nunion'.
(defconstant *NEIGHBOURS2* (map 'simple-vector #'(lambda(cell)
(multiple-value-bind (r c b) (lin2rcbmvb cell)
(sort (copy-seq
(remove cell (union (union (svref *UNIT-LIST-VL2* r)
(svref *UNIT-LIST-VL2* c))
(svref *UNIT-LIST-VL2* b))))
2012-12-28 07:17:31 PST in CLISP - an ANSI C...
