Ignore-this: a293bce9388c80278e8c522545d2be27

darcs-hash:49d6ae9061e31817c5162f6d61114ad61df7570d

Ignore-this: 72ea658e38073ca42970b848ad7c0b08

darcs-hash:b7ce0fd17f8031bd9617e0413be441a340b51983

Ignore-this: f5e03051b6f16118198e2aac72ea8c92

darcs-hash:457858e8ce675ba0657c3191c62938ec0cf0d3df

Provide dynamic-wind in a separate system definition. Provide support for that part of ContextL for SCL.

Ignore-this: 46fc99f81d7dad993879888f98c363cf

darcs-hash:c31cefdbf28ca237183e26a469c207e8b3e641f9

Ignore-this: 91f7dbb12e7d5478998274cd96c6e0e7

darcs-hash:f0f78bdb4bc52786bc4352c73f5e4a231bc8f2ea

darcs-hash:d5bc51bb41e14c7a1630fb99b390dbebdc66b52b

Removed dependencies on portable-threads and trivial-garbage, plus minor multi-threading improvements.

darcs-hash:56b8fd98f2f784f29a7b1f62cd955a40790c5a69

darcs-hash:7a53a0dc61acabeafcdfcd98bc490d30157f960e

darcs-hash:67f0f4e049799e85a6c1a266fcae8a0c3f1cd4a2

darcs-hash:3141ca64e5786904d7afd42801a55761cf40e350

darcs-hash:f3a5ce08694a951930ebd3a9cf28d0f5996cada3

darcs-hash:989fe8efbb9555d24af6555f0f4456947badde1c

darcs-hash:40e84cbed95718eeeb6b3c039930103224f6e544

Whenever a layer definition is reinitialized (for example by calling reinitialize-instance or by evaluating a deflayer form for an already existing layer), all its entries in the layer activation caches are removed. This guarantees that adjoin-layer-using-class and remove-layer-using-class are called again when such a layer is activated or deactivated, even if those two generic functions have previously returned t as second values for that layer. Since layer-makunbound is implemented in terms of (setf find-class) and (setf class-name), which triggers a call to reinitialize-instance according to the CLOS MOP specification, this means that layer-makunbound causes the respective layer to be removed from the caches as well.

Likewise, if adjoin-layer-using-class and remove-layer-using-class are specialized on a particular layer metaclass, all entries for layers of that layer metaclass are also removed from the layer activation caches. This happens also when methods for these generic functions are redefined.

darcs-hash:3fa63d976bbdcff0ad9a75afc1fa0db696ec8139

darcs-hash:c8e7d8f4556a43e12bcc7849a65bc82f9376968c

darcs-hash:9f30880e913787179ed57884fb8c9dcfc5ec64be

darcs-hash:e48082b948a42cdacd582a5d34ea0b853fba3e93

darcs-hash:b55948e7a7fa3f47a74a55eed5987ff5c6a8bedd

darcs-hash:ef94f10e19d554da7c6c9057c283293fe5f90ac8

darcs-hash:af4483e2925b08d0cec6a00ca5d6d2d74bea59eb

darcs-hash:9db03d40da3a7d772ad6ac7e059dd49fa6388be8

darcs-hash:ca3929f52d4d5187e8a8f156bfd2cd2f62cb780a

This is achieved by the :reinitialize option for a slot, like this:

(defclass some-class ()
  ((some-slot :initform 'foo :reinitialize t))
  (:metaclass singleton-class))

(deflayer some-layer ()
  ((some-slot :initform 'bar :reinitialize t)))

The default value for the :reinitialize option is nil. If it is nil, then the slot will only be initialized when the class/layer is initialized. When the class/layer already exists before the new defclass/deflayer form is processed, the slot keeps its old value, as is the case for slots with :allocation :class in plain CLOS. If the :reinitialize option is true, however, then the respective slot will always be re/initialized with the value given with the :initform, no matter what. If no :initform is given, the slot is made unbound, again no matter what. In other words, a slot with :reinitialize nil behaves similar to a defvar form while a slot with :reinitialize t behaves similar to a defparameter form.

Currently, CMUCL and MCL have a bug wrt reinitialization of slots with :allocation :class, which leads to subsequent bug in ContextL. This has the consequence that special slots (with the option :special set to true) in singleton classes, in layers and in special classes for slots with :allocation :class do not work correctly anymore when the respective class/layer is reinitialized. As soon as the bugs in CMUCL and MCL are fixed, I can also fix the related bug in ContextL.

darcs-hash:b2fb89374af06a505cd2aa36964ae632b9ab3520

Added activate-layer-using-class and deactivate-layer-using-class for metacircular layer activation/deactivation.

darcs-hash:a8f2ff872a966c3ab926dff7e6c22c04ac495f96

darcs-hash:33a4872db252a14daa7928a83107557d92e582bb

darcs-hash:b38d38f4767dfd3243dc6572c7cc9eeaeb2728b3

Before this change, layers were simply classes with the same name as given in the deflayer form. This potentially leads to name conflicts between classes and layers. Since Common Lisp favors multiple namespaces, I have changed this, so now layers reside in their own namespace. (They are still internally implemented as classes.)

darcs-hash:8d44351700472fed4f93f563cf8ebc48107a8d2c

darcs-hash:415903ce35153f8f3afc2535524a92d952176716

darcs-hash:ff9f06424ff8aa76528f8c3c9f67c9b9f5db3b37