Commit f1cabd81 authored by Marco Antoniotti's avatar Marco Antoniotti 💬
Browse files

Complete addition of DELEGATE-CONTEXT.

parent f9738410
......@@ -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.
......
......@@ -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"
......
......@@ -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")
)
......
......@@ -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")
)
......
Markdown is supported
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