*Since (in src/application.lisp) :* *;;; webapp-scoped session values* *(defun webapp-session-key (&optional (webapp (current-webapp)))* * (weblocks-webapp-session-key webapp))* * * *(defun webapp-session-value (key &optional (session *session*) (webapp (current-webapp)))* * "Get a session value from the currently running webapp.* *KEY is compared using EQUAL."* * (let ((webapp-session (session-value (webapp-session-key webapp) session)))* * (cond (webapp-session* * (gethash key webapp-session))* * (webapp* * (values nil nil))* * (t* * nil))))* * * *(defun (setf webapp-session-value) (value key &optional (session *session*) (webapp (current-webapp)))* * "Set a session value for the currently running webapp.* *KEY is compared using EQUAL."* * (let ((webapp-session (session-value (webapp-session-key webapp) session)))* * (unless webapp-session* * (setf webapp-session (make-hash-table :test #'equal)* * (session-value (webapp-session-key webapp)) webapp-session))* * (setf (gethash key webapp-session) value)))*
*then why (again in src/application.lisp):* *(defun reset-webapp-session (&optional (app (current-webapp)))* * "Reset sessions on a per-webapp basis"* * (setf (session-value (class-name (class-of app))) nil))* *and not something like:* (defun reset-webapp-session (&optional (app (current-webapp))) "Reset sessions on a per-webapp basis" (setf (session-value (webapp-session-key app)) nil)) Am i missing something? Note: The slot-default of session-key is the class-name of the webapp and so this is a problem if someone has defwebapped with a custom session-key value because reset-webapp-session wont reset anything set by the webapp-session value functions, unless I am missing something. -- 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.
