Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
parenscript
parenscript
Commits
fe0fad36
Verified
Commit
fe0fad36
authored
Oct 23, 2018
by
Vladimir Sedach
Browse files
Marked PS-ONCE-ONLY as deprecated
parent
7618c052
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/compiler.lisp
View file @
fe0fad36
...
...
@@ -368,13 +368,14 @@ gensym-prefix-string)."
(
defmacro
ps-once-only
((
&rest
vars
)
&body
body
)
"Helper macro for writing Parenscript macros. Useful for preventing unwanted multiple evaluation."
(
warn-deprecated
'ps-once-only
'maybe-once-only
)
(
let
((
gensyms
(
mapcar
#'
ps-gensym
vars
)))
`
(
let
,
(
mapcar
(
lambda
(
g
v
)
`
(
,
g
(
ps-gensym
',v
)))
gensyms
vars
)
`
(
let
*
,
(
mapcar
(
lambda
(
g
v
)
`
(
,
g
(
ps-gensym
',v
)))
gensyms
vars
)
`
(
let*
(
,,@
(
mapcar
(
lambda
(
g
v
)
`
(
list
,
g
,
v
))
gensyms
vars
))
,
(
let
,
(
mapcar
(
lambda
(
g
v
)
(
list
v
g
))
gensyms
vars
)
,
(
let
*
,
(
mapcar
(
lambda
(
g
v
)
(
list
v
g
))
gensyms
vars
)
,@
body
)))))
(
defmacro
maybe-once-only
((
&rest
vars
)
&body
body
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment