From: espen Date: Thu, 9 Feb 2006 22:29:43 +0000 (+0000) Subject: Initarg :construct renamed to :construct-only X-Git-Tag: clg-0-92~62 X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/f9364484c7530f9d371b4b37b796720b5e84012b Initarg :construct renamed to :construct-only --- diff --git a/glib/ginterface.lisp b/glib/ginterface.lisp index 612586f..a7c0f54 100644 --- a/glib/ginterface.lisp +++ b/glib/ginterface.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: ginterface.lisp,v 1.12 2005/04/23 16:48:50 espen Exp $ +;; $Id: ginterface.lisp,v 1.13 2006/02/09 22:29:43 espen Exp $ (in-package "GLIB") @@ -54,7 +54,7 @@ (defmethod compute-effective-slot-definition-initargs ((class ginterface-class) (most-specific-slot-value direct-slotds 'pname)) :readable (most-specific-slot-value direct-slotds 'readable) :writable (most-specific-slot-value direct-slotds 'writable) - :construct (most-specific-slot-value direct-slotds 'construct)) + :construct-only (most-specific-slot-value direct-slotds 'construct)) (call-next-method)) (call-next-method)))