[Bese-devel] :initform or :initarg ?

[Pascal Bourguignon]

In ucw-0.3.9, presentations.lisp:

(defcomponent list-presentation (presentation)
  ((slots :accessor slots :initarg :slots)
   (editablep :accessor editablep :initform t :initarg :editablep)
   (edit-label :accessor edit-label :initform "Edit")
   (deleteablep :accessor deleteablep :initform :deleteablep)
   (delete-label :accessor delete-label :initform "Delete")
   (instances :accessor instances)))

I'm wondering if you didn't want to write:

   (deleteablep :accessor deleteablep :initarg :deleteablep)

instead?


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
You're always typing.
Well, let's see you ignore my
sitting on your hands.