From: drewc Date: Mon, 13 Jun 2005 22:35:02 +0000 (-0700) Subject: this accesses some internal ucw symbols. this will have to be changed with some patch... X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/31597d71ef8141a1134d75668cfa9ce4f6ecae06 this accesses some internal ucw symbols. this will have to be changed with some patches to ucw I'm adding the :instances initarg to the ucw::instances slot, this should be patched in ucw removed from here. darcs-hash:20050613223502-39164-233efddfa5588d6c462df6f27a649809186c6b07.gz --- diff --git a/src/mewa/presentations.lisp b/src/mewa/presentations.lisp index 62d70e8..837e9a8 100644 --- a/src/mewa/presentations.lisp +++ b/src/mewa/presentations.lisp @@ -33,7 +33,7 @@ ;;;lists (defcomponent mewa-list-presentation (mewa ucw:list-presentation) - ((instances :accessor instances :initarg :instances :initform nil) + ((ucw::instances :accessor instances :initarg :instances :initform nil) (instance :accessor instance) (select-label :accessor select-label :initform "select" :initarg :select-label) (selectablep :accessor selectablep :initform t :initarg :selectablep)))