[bknr-cvs] hans changed trunk/thirdparty/bordeaux-threads_0.4.0/src/default-implementations.lisp

[BKNR Commits]

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 , at body))
+       ,(unless (fboundp name)
+          `(defun ,name ,args , at 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 , at body))
+       ,(unless (fboundp name)
+          `(defmacro ,name ,args , at body))
        (let ((,docstring (documentation ',name 'function)))
          (setf (documentation ',name 'function)
                (if ,docstring