Author: hhubner Date: 2007-09-11 04:40:55 -0400 (Tue, 11 Sep 2007) New Revision: 2173

Modified: branches/bos/projects/bos/m2/mail-generator.lisp Log: Properly destructure parameter list.

Modified: branches/bos/projects/bos/m2/mail-generator.lisp =================================================================== --- branches/bos/projects/bos/m2/mail-generator.lisp 2007-08-30 09:43:19 UTC (rev 2172) +++ branches/bos/projects/bos/m2/mail-generator.lisp 2007-09-11 08:40:55 UTC (rev 2173) @@ -185,7 +185,7 @@ " (apply #'append (mapcar #'(lambda (cons) - (destructuring-bind (element-name content) cons + (destructuring-bind (element-name . content) cons (setf element-name (lookup-element-name element-name)) (list element-name (if (find #\Newline content)