Author: hhubner Date: 2006-10-23 07:45:32 -0400 (Mon, 23 Oct 2006) New Revision: 2038
Modified: branches/xml-class-rework/projects/bos/m2/mail-generator.lisp branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp Log: copy-list before sorting
Modified: branches/xml-class-rework/projects/bos/m2/mail-generator.lisp =================================================================== --- branches/xml-class-rework/projects/bos/m2/mail-generator.lisp 2006-10-23 11:10:22 UTC (rev 2037) +++ branches/xml-class-rework/projects/bos/m2/mail-generator.lisp 2006-10-23 11:45:32 UTC (rev 2038) @@ -207,11 +207,11 @@ </sponsor> " (apply #'append (mapcar #'(lambda (cons) - (list (car cons) - (if (find #\Newline (cdr cons)) - (format nil "<![CDATA[~A]]>" (cdr cons)) - (cdr cons)) - (car cons))) + (list (car cons) + (if (find #\Newline (cdr cons)) + (format nil "<![CDATA[~A]]>" (cdr cons)) + (cdr cons)) + (car cons))) (all-request-params req))))) (make-instance 'text-mime :type "text" @@ -253,7 +253,7 @@ </table> " (apply #'append (mapcar #'(lambda (cons) (list (car cons) (cdr cons))) - (sort (all-request-params req) + (sort (copy-list (all-request-params req)) #'string-lessp :key #'car))))) (make-instance 'text-mime
Modified: branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp =================================================================== --- branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp 2006-10-23 11:10:22 UTC (rev 2037) +++ branches/xml-class-rework/projects/bos/worldpay-test/worldpay-test.lisp 2006-10-23 11:45:32 UTC (rev 2038) @@ -24,7 +24,7 @@
(defmethod find-template-pathname ((handler worldpay-template-handler) template-name &key request) (when (scan #?r"(^|.*/)handle-sale" template-name) - (with-query-params (request cartId email name address country transStatus lang MC_gift MC_donationcert-yearly testMode) + (with-query-params (request cartId name address country transStatus lang MC_gift) (unless (website-supports-language lang) (setf lang *default-language*)) (let ((contract (get-contract (parse-integer cartId))))