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
95a699c3
Verified
Commit
95a699c3
authored
Oct 25, 2018
by
Vladimir Sedach
Browse files
Rename EXPRESSIONIZE-RESULT to RETURN-RESULT-OF
parent
fa8b3e7b
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/special-operators.lisp
View file @
95a699c3
...
...
@@ -283,7 +283,7 @@ invocations or not.")
(
otherwise
0
))))))
(
t
t
)))
(
defun
expressionize
-result
(
tag
form
)
(
defun
return
-result
-of
(
tag
form
)
(
ps-compile
(
case
(
car
form
)
((
continue
break
throw
)
;; non-local exit
...
...
@@ -343,7 +343,7 @@ invocations or not.")
(
compile-expression-error
()
(
setf
*used-up-names*
used-up-names
)
nil
))))
(
return-from
expressionize
-result
(
return-exp
tag
form
))
(
return-from
return
-result
-of
(
return-exp
tag
form
))
`
(
if
,
(
second
form
)
(
return-from
,
tag
,
(
third
form
))
,@
(
when
(
or
in-case?
(
fourth
form
))
...
...
@@ -353,7 +353,7 @@ invocations or not.")
(
*function-block-names*
(
cons
tag
¹
*function-block-names*
))
(
*dynamic-return-tags*
(
cons
(
cons
tag
¹
nil
)
*dynamic-return-tags*
)))
(
return-from
expressionize
-result
(
return-from
return
-result
-of
(
wrap-for-dynamic-return
(
list
tag
¹
)
(
ps-compile
`
(
return-from
,
tag
(
progn
,@
(
cddr
form
))))))))
...
...
@@ -364,7 +364,7 @@ invocations or not.")
Parenscript now implements implicit return, update your code! Things like (lambda () (return x)) are not valid Common Lisp and may not be supported in future versions of Parenscript."
))
form
)
(
otherwise
(
return-from
expressionize
-result
(
return-from
return
-result
-of
(
cond
((
not
(
gethash
(
car
form
)
*special-statement-operators*
))
(
return-exp
tag
form
))
(
in-case?
...
...
@@ -376,7 +376,7 @@ Parenscript now implements implicit return, update your code! Things like (lambd
(
let
((
form
(
ps-macroexpand
result
)))
(
if
(
or
(
atom
form
)
(
eq
'values
(
car
form
)))
(
return-exp
tag
form
)
(
expressionize
-result
tag
form
))))
(
return
-result
-of
tag
form
))))
(
define-expression-operator
values
(
&optional
main
&rest
additional
)
(
when
main
...
...
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