From d42f5bdd3c5d4e0fd11dc806951fb9e3b6c0b50e Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Thu, 9 Feb 2006 22:29:43 +0000 Subject: [PATCH] Initarg :construct renamed to :construct-only Organization: Straylight/Edgeware From: espen --- glib/ginterface.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/glib/ginterface.lisp b/glib/ginterface.lisp index 00fe5fb..6f498c5 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))) -- [mdw]