[bknr-cvs] r2173 - branches/bos/projects/bos/m2

[bknr at bknr.net]

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)