Revision: 3643 Author: hans URL: http://bknr.net/trac/changeset/3643 Fix macro to not confuse cmucl. U trunk/thirdparty/bordeaux-threads_0.4.0/src/default-implementations.lisp Modified: trunk/thirdparty/bordeaux-threads_0.4.0/src/default-implementations.lisp =================================================================== --- trunk/thirdparty/bordeaux-threads_0.4.0/src/default-implementations.lisp 2008-07-25 13:59:41 UTC (rev 3642) +++ trunk/thirdparty/bordeaux-threads_0.4.0/src/default-implementations.lisp 2008-07-25 16:24:06 UTC (rev 3643) @@ -5,8 +5,8 @@ (defmacro defdfun (name args doc &body body) (let ((docstring (gensym "DOCSTRING"))) `(progn - (when (not (fboundp ',name)) - (defun ,name ,args ,@body)) + ,(unless (fboundp name) + `(defun ,name ,args ,@body)) (let ((,docstring (documentation ',name 'function))) (setf (documentation ',name 'function) (if ,docstring @@ -16,8 +16,8 @@ (defmacro defdmacro (name args doc &body body) (let ((docstring (gensym "DOCSTRING"))) `(progn - (when (not (fboundp ',name)) - (defmacro ,name ,args ,@body)) + ,(unless (fboundp name) + `(defmacro ,name ,args ,@body)) (let ((,docstring (documentation ',name 'function))) (setf (documentation ',name 'function) (if ,docstring