From b2af280d3fcd9b5ef0e754ee7856ced074136b16 Mon Sep 17 00:00:00 2001
From: Vladimir Sedach <vsedach@gmail.com>
Date: Fri, 13 Aug 2010 21:14:06 -0400
Subject: [PATCH] Deprecated DO-SET-TIMEOUT.

---
 docs/reference.html           | 11 +----------
 src/deprecated-interface.lisp |  4 ++++
 src/macros.lisp               |  3 ---
 src/package.lisp              |  2 +-
 t/ps-tests.lisp               |  2 +-
 5 files changed, 7 insertions(+), 15 deletions(-)

diff --git a/docs/reference.html b/docs/reference.html
index 1d5b890..d3e80f8 100644
--- a/docs/reference.html
+++ b/docs/reference.html
@@ -52,7 +52,6 @@
       <li><a href="#section-variables">Variable binding and declaration</a></li>
       <li><a href="#section-assignment">Assignment</a></li>
       <li><a href="#section-iteration">Iteration</a></li>
-      <li><a href="#section-misc-forms">Misc forms</a></li>
       <li><a href="#section-macros">Macros</a>
         <ul>
           <li><a href="#ssection-defining-macros">Defining macros</a></li>
@@ -1059,14 +1058,6 @@ someDiv.offsetLeft;</pre>
     constructs that compile to efficient JavaScript code,
     including a partial implementation of <code>LOOP</code>.</p>
 
-    <h2 id="section-misc-forms">Misc forms</h2>
-    <ul>
-      <li>(<code id="do-set-timeout">DO-SET-TIMEOUT</code> (timeout) body)</li>
-    </ul>
-
-    <code>DO-SET-TIMEOUT</code> is a convenience macro for
-    using <code>set-timeout</code>.</p>
-    
     <h2 id="section-macros">Macros</h2>
     <h3 id="ssection-defining-macros">Defining macros</h3>
     <ul>
@@ -1372,6 +1363,6 @@ someDiv.offsetLeft;</pre>
       that the extension does not work
       in <code>slime-repl-mode</code>, which is intentional.</p>
 
-    <p style="font-size:xxx-small"><i>Last modified: 2010-02-24</i></p>
+    <p style="font-size:xxx-small"><i>Last modified: 2010-08-13</i></p>
   </body>
 </html>
diff --git a/src/deprecated-interface.lisp b/src/deprecated-interface.lisp
index 05d7618..42cb862 100644
--- a/src/deprecated-interface.lisp
+++ b/src/deprecated-interface.lisp
@@ -91,3 +91,7 @@ is output to the OUTPUT-STREAM stream."
 (defpsmacro labeled-for (label init-forms cond-forms step-forms &rest body)
   (warn-deprecated 'labeled-for 'label)
   `(label ,label (for ,init-forms ,cond-forms ,step-forms ,@body)))
+
+(defpsmacro do-set-timeout ((timeout) &body body)
+  (warn-deprecated 'do-set-timeout 'set-timeout)
+  `(set-timeout (lambda () ,@body) ,timeout))
diff --git a/src/macros.lisp b/src/macros.lisp
index 8f760c0..15047c1 100644
--- a/src/macros.lisp
+++ b/src/macros.lisp
@@ -498,6 +498,3 @@ lambda-list::=
          (let* ,(cdr bindings)
            ,@body))
       `(progn ,@body)))
-
-(defpsmacro do-set-timeout ((timeout) &body body)
-  `(set-timeout (lambda () ,@body) ,timeout))
diff --git a/src/package.lisp b/src/package.lisp
index 7921a37..53d0e4f 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -63,6 +63,7 @@
    #:!=
    #:!==
    #:labeled-for
+   #:do-set-timeout
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Language
@@ -217,7 +218,6 @@
    #:who-ps-html
 
    ;; utils
-   #:do-set-timeout
    #:max
    #:min
    #:floor
diff --git a/t/ps-tests.lisp b/t/ps-tests.lisp
index 9b8cd56..ff2277f 100644
--- a/t/ps-tests.lisp
+++ b/t/ps-tests.lisp
@@ -243,7 +243,7 @@ __setf_someThing('foo', 1, 2);")
   "return null;")
 
 (test-ps-js set-timeout
-  (do-set-timeout (10) (alert "foo"))
+  (set-timeout (lambda () (alert "foo")) 10)
   "setTimeout(function () { return alert('foo'); }, 10);")
 
 (test-ps-js operator-precedence
-- 
2.11.4.GIT