> SIMPLE-ERROR: Cannot determine object ID. Object #<G1496 {AA34A41}> has no
> slot 'id'.
>

As a first step does removing the :initform nil help?

If you are using slime, can you check what the type of the object
G1496 is? (That is, verify that it is carping about a missing id in
instance of class 'user).


> The code to set up the form is:
>
> (defun init-user-session (comp)
>     (if (not (authenticatedp))
>             (setf (widget-children comp)
>                   (list (make-instance 'login
>                                        :view 'login-view
>                                        :login-quickform (make-quickform
> 'login-view)
>                                        :on-login (lambda (form data)
>                                             (with-slots (email password)
> data
>                                             (if (or (null password)
>                                                     (null email))
>                                                     nil
>                                                     (make-instance 'user))))
>                                                 ))
>                                        )))
>
> As you can see, this is little more than a stub just to start laying things
> out. The class user is:
>
> (defclass user ()
>     ((id :initarg :id :initform nil :accessor id)
>      (status :type (member :active :inactive)
>              :initarg :status
>              :initform :active)
>      (email :type string
>             :accessor email
>             :initarg :email)
>      (first-name :type string
>                  :initarg :first-name)
>      (last-name :type string
>                 :initarg :last-name)
>      (password :type string
>                :accessor password
>                :initarg :password)
>      ))
>
> (defview login-view
>     (:type form
>      :caption "Login")
>     (email :requiredp t)
>     (password :present-as (password) :requiredp t))
>
> From the trace, it is obvious that the Prevalence store is what is throwing
> the error (I can attach the full trace, if needed). I am running revision
> 1587 from the dev repository. If anyone can help straighten me out, it would
> be very much appreciated.
>
> -Michael
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups 
"weblocks" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to 
[email protected]
For more options, visit this group at 
http://groups.google.com/group/weblocks?hl=en
-~----------~----~----~----~------~----~------~--~---

Reply via email to