From: Luis Mandel
Subject: MAKE-LENGTH-LIST (recursive)
Date: Wed, 20 Feb 1991 13:00:13 +0000
Message-ID: <1991Feb20.130013.12760@forwiss.uni-passau.de>

Try with this:

(defun  make-length-list (coord)
	 (if (null coord) nil
		  (cons (- (cadr (car coord)) (caar coord))
				(make-length-list (cdr coord)) 
		  )
	 )
)

It is more or less the naive version.

--
Luis Mandel                         Bayerisches Forschungszentrum
······@forwiss.uni-passau.de        Fuer Wissensbasierte Systeme
Schiesstattweg 53A                  Innstrasse 33
W8390-Passau                        W8390-Passau
Germany                             Germany
Tel part:(0851)  7-2416             Tel ofic:(0851) 509-533
-- 
Luis Mandel                                ······@forwiss.uni-passau.de