Commit b2af280d authored by Vladimir Sedach's avatar Vladimir Sedach
Browse files

Deprecated DO-SET-TIMEOUT.

parent 2f9fa197
......@@ -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>
......@@ -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))
......@@ -498,6 +498,3 @@ lambda-list::=
(let* ,(cdr bindings)
,@body))
`(progn ,@body)))
(defpsmacro do-set-timeout ((timeout) &body body)
`(set-timeout (lambda () ,@body) ,timeout))
......@@ -63,6 +63,7 @@
#:!=
#:!==
#:labeled-for
#:do-set-timeout
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Language
......@@ -217,7 +218,6 @@
#:who-ps-html
;; utils
#:do-set-timeout
#:max
#:min
#:floor
......
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment