/usr/share/common-lisp/source/contextl/contextl-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 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 | (in-package :cl-user)
(defpackage #:contextl
#+lispworks5
(:import-from #:system #:with-hash-table-locked)
#+lispworks6
(:import-from #:hcl #:with-hash-table-locked)
(:use #:closer-common-lisp #:lispworks)
(:export
#:*symbol-access*
#:active-layers
#:adjoin-layer
#:adjoin-layer-using-class
#:apply-with-layer-context
#:call-next-layered-method
#:call-with-dynamic-environment
#:capture-dynamic-environment
#:class-layer
#:clear-layer-caches
#:current-layer-context
#:defdynamic
#:define-layered-class
#:define-layered-function
#:define-layered-method
#:deflayer
#: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
#:ensure-active-layer
#:ensure-inactive-layer
#:ensure-layer
#:ensure-layered-function
#:ensure-layered-method
#:find-layer
#:find-layer-class
#:find-singleton
#:funcall-with-layer-context
#:layer-active-p
#:layer-makunbound
#:layer-name
#:layered-access-class
#:layered-class
#:layered-direct-slot-definition
#:layered-effective-slot-definition
#:layered-effective-slot-definition-in-layers
#:layered-function
#:layered-function-argument-precedence-order
#:layered-function-definer
#:layered-function-lambda-list
#:layered-method
#:layered-method-lambda-list
#:layered-method-layer
#:layered-method-specializers
#:lfmakunbound
#:make-dynamic-symbol
#:make-special-symbol
#:partial-class
#:partial-class-defining-classes
#:partial-class-defining-metaclass
#:partial-object
#:proceed
#:remove-layer
#:remove-layer-using-class
#:set-dynamic
#:singleton-class
#:slot-definition-layer
#:slot-definition-layered-readers
#:slot-definition-layered-writers
#:slot-definition-layeredp
#:slot-definition-layers
#:slot-definition-specialp
#:slot-boundp-using-layer
#:slot-makunbound-using-layer
#:slot-value-using-layer
#:safe-special-symbol-progv
#:special-class
#:special-direct-slot-definition
#:special-effective-slot-definition
#:special-effective-slot-definition-in-layers
#:special-layered-access-class
#:special-layered-direct-slot-definition
#:special-layered-effective-slot-definition
#:special-object
#:special-symbol-p
#:special-symbol-progv
#:special-symbol-reprogv
#:standard-class-in-layer
#:standard-direct-slot-definition-in-layer
#:standard-effective-slot-definition-in-layers
#:standard-layer-class
#:standard-layer-object
#:with-active-layers
#:with-active-layers*
#:with-dynamic-environment
#:with-dynamic-mark
#:with-inactive-layers
#:with-special-initargs
#:with-special-initargs*
#:with-symbol-access
#:without-symbol-access))
(defpackage #:contextl-common-lisp
(:nicknames #:cxcl)
(:use #:closer-common-lisp #:contextl)
#.`(:export
,@(loop for sym being the external-symbols of :closer-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*)
(pushnew :contextl *features*))
|