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
with-contexts
with-contexts
Commits
f1cabd81
Commit
f1cabd81
authored
Dec 12, 2020
by
Marco Antoniotti
💬
Browse files
Complete addition of DELEGATE-CONTEXT.
parent
f9738410
Changes
4
Hide whitespace changes
Inline
Side-by-side
library/delegate-context.lisp
View file @
f1cabd81
...
...
@@ -40,7 +40,7 @@ ENTER, HANDLE, EXIT, WITH, DELEGATE-CONTEXT (Function)
;;; Constructors.
(
defun
delegate
-context
(
&optional
enter-result
)
(
defun
delegate
(
&optional
enter-result
)
"Creates a DELEGATE-CONTEXT stashing ENTER-RESULT for ENTER.
A subsequent call to ENTER on the instance will extract ENTER-RESULT and return it.
...
...
with-contexts-pkg.lisp
View file @
f1cabd81
...
...
@@ -47,6 +47,8 @@ implementation of the WITH macro and 'contexts' in Common Lisp.
(
:export
"DELEGATE-CONTEXT"
"IS-DELEGATE-CONTEXT"
"DELEGATE-CONTEXT-P"
"DELEGATE"
)
(
:export
"CONDITION-IGNORING-CONTEXT"
...
...
with-contexts.asd
View file @
f1cabd81
...
...
@@ -27,6 +27,7 @@ Only better, or, at a minimum different, of course.
(
:file
"exit-stack-context"
)
(
:file
"suppress-context"
)
(
:file
"null-context"
)
(
:file
"delegate-context"
)
(
:file
"redirect-context"
)
(
:file
"managed-resource-context"
)
)
...
...
with-contexts.system
View file @
f1cabd81
...
...
@@ -28,6 +28,7 @@ Only better, or, at a minimum different, of course.
(:file "exit-stack-context")
(:file "suppress-context")
(:file "null-context")
(:file "delegate-context")
(:file "redirect-context")
(:file "managed-resource-context")
)
...
...
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