From jdzerins at common-lisp.net  Wed Nov  2 09:10:55 2011
From: jdzerins at common-lisp.net (CVS User jdzerins)
Date: Wed, 02 Nov 2011 02:10:55 -0700
Subject: [rfc2388-cvs] CVS rfc2388
Message-ID: <E1RLWqV-00047y-K6@common-lisp.net>

Update of /project/rfc2388/cvsroot/rfc2388
In directory tiger.common-lisp.net:/tmp/cvs-serv15549

Modified Files:
	rfc2388.lisp 
Log Message:
ACL modern mode fix

Patch by Hans H??bner:
https://github.com/mcna/rfc2388/commit/795d891136b0847ca2731d905900c2f32b44c376



--- /project/rfc2388/cvsroot/rfc2388/rfc2388.lisp	2010/07/19 07:33:20	1.15
+++ /project/rfc2388/cvsroot/rfc2388/rfc2388.lisp	2011/11/02 09:10:55	1.16
@@ -195,7 +195,7 @@
 
 (defun make-tmp-file-name ()
   (if (find-package :tbnl)
-      (funcall (find-symbol "MAKE-TMP-FILE-NAME" :tbnl))
+      (funcall (find-symbol #.(string '#:make-tmp-file-name) :tbnl))
       (error "WRITE-CONTENT-TO-FILE keyword argument to PARSE-MIME is supported in TBNL only at the moment.")))