<br><br><div><span class="gmail_quote">On 10/27/06, <b class="gmail_sendername">Henrik Hjelte</b> <<a href="mailto:henrik@evahjelte.com">henrik@evahjelte.com</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Attila, you recently removed the "default" argument to (setf<br>session.value). As it stands now the documentation is outdated, see<br>below, and get-session-value and (setf get-session-value) needs updating<br>
too. Of course I could have fixed this, but I don't have the full<br>picture and I thought you might want to read Marcos comment again and<br>decide if the change is what you wanted (cosmetic change?).<br></blockquote></div>
<br>i remember that i've changed it to get rid of a warning and seems like this should also changed similarly:<br><br>(defun (setf get-session-value) (value key<br>                 &optional<br>                 (default nil)
<br>                 (session (context.session *context*)))<br>  "Convience wrapper around (setf session.value).<br><br>SESSION defaults to the current session."<br>  (setf (session.value key session default) value))
<br><br>i've tried hard to think about the bad sideffects of this change but couldn't come up with any.<br><br>UCW> (session.value 'foo s 42)<br>42<br>NIL<br>UCW> (session.value 'foo s)<br>NIL<br>NIL<br>UCW> (setf (
session.value 'foo s) 42)<br>42<br>UCW> (incf (session.value 'foo s))<br>43<br>UCW> (session.value 'foo s 42)<br>43<br>T<br>UCW> <br><br>if noone yells, i'll push some further cleanup.<br><br>-- <br>- attila<br><br>
"- The truth is that I've been too considerate, and so became unintentionally cruel...<br> - I understand.<br> - No, you don't understand! We don't speak the same language!"<br>(Ingmar Bergman - Smultronstället)