/usr/share/common-lisp/source/contextl/dynamic-wind-packages.lisp is in cl-contextl 1:0.61-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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*))
|