1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
(in-package :cl-user)
(defpackage #:contextl
(:use #:common-lisp #:lispworks)
(:export
#:*symbol-access*
#:call-with-dynamic-environment
#:capture-dynamic-environment
#:defdynamic
#:dlet #:dlet*
#:dletf #:dletf*
#:drelet #:drelet*
#:dreletf #:dreletf*
#:dynamic
#:dynamic-environment
#:dynamic-let
#:dynamic-let*
#:dynamic-mark
#:dynamic-progv
#:dynamic-relet
#:dynamic-relet*
#:dynamic-reprogv
#:dynamic-symbol
#:dynamic-symbol-boundp
#:dynamic-symbol-makunbound
#:dynamic-symbol-p
#:dynamic-symbol-value
#:dynamic-wind
#:make-dynamic-symbol
#:make-special-symbol
#:proceed
#:set-dynamic
#:safe-special-symbol-progv
#:special-symbol-p
#:special-symbol-progv
#:special-symbol-reprogv
#:with-dynamic-environment
#:with-dynamic-mark
#:with-symbol-access
#:without-symbol-access))
(defpackage #:contextl-common-lisp
(:nicknames #:cxcl)
(:use #:common-lisp #:contextl)
#.`(:export
,@(loop for sym being the external-symbols of :common-lisp
collect sym)
,@(loop for sym being the external-symbols of :contextl
collect sym)))
(defpackage #:contextl-user
(:use #:contextl-common-lisp)
(:nicknames #:cx-user))
(eval-when (:compile-toplevel :load-toplevel :execute)
(pushnew :dynamic-wind *features*))
|
