Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!mcsun!unido!fauern!forwiss.uni-passau.de!mandel
From: mandel@forwiss.uni-passau.de (Luis Mandel)
Newsgroups: comp.lang.lisp
Subject: MAKE-LENGTH-LIST (recursive)
Message-ID: <1991Feb20.130013.12760@forwiss.uni-passau.de>
Date: 20 Feb 91 13:00:13 GMT
Sender: usenet@forwiss.uni-passau.de (USENET News System)
Organization: University of Passau, Germany
Lines: 21
Nntp-Posting-Host: frodo.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
mandel@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                                mandel@forwiss.uni-passau.de