Search found 6 matches

by pseudo-cat
Wed Sep 28, 2011 1:38 pm
Forum: Common Lisp
Topic: Hunchentoot sessions
Replies: 2
Views: 4840

Re: Hunchentoot sessions

(setf (hunchentoot:cookie-expires (hunchentoot:cookie-out "hunchentoot-session")) 172800) You're setting the expiration date of the cookie to 172800, which is sometime on January 3rd in the year 1900. Try something like (+ (get-universal-time) 172800) instead. Exactly, thanks)
by pseudo-cat
Sun Sep 25, 2011 2:31 am
Forum: Common Lisp
Topic: Hunchentoot sessions
Replies: 2
Views: 4840

Hunchentoot sessions

Hello, I have'nt problems with hunchentoot's session mechanism on this code: (let ((s (hunchentoot:start-session)) (cookie (hunchentoot:cookie-out "hunchentoot-session"))) (setf (hunchentoot:session-max-time s) 172800) (setf (hunchentoot:session-value 'user s) user) (setf (hunchentoot:sess...
by pseudo-cat
Sat Sep 04, 2010 1:38 am
Forum: Common Lisp
Topic: Is there a simple method for writing traces from multiple sb
Replies: 5
Views: 5630

Re: Is there a simple method for writing traces from multiple sb

I meant normally if I don't set *globally-redirect-io* but use another binding to *standrard-output* (*standrard-output* on the time create thread).
by pseudo-cat
Fri Sep 03, 2010 2:53 pm
Forum: Common Lisp
Topic: Is there a simple method for writing traces from multiple sb
Replies: 5
Views: 5630

Re: Is there a simple method for writing traces from multiple sb

sorry, I have a question, normally if I bind *standard-output* to another symbol on global environment? as is: CL-USER> (defparameter *std-out* *standard-output*) *STD-OUT* CL-USER> (sb-thread:make-thread #'(lambda () (let ((*standard-output* *std-out*)) (print 123)))) 123 #<SB-THREAD:THREAD RUNNING...
by pseudo-cat
Fri Sep 03, 2010 6:45 am
Forum: Common Lisp
Topic: cl--ppcre multi string
Replies: 2
Views: 3085

Re: cl--ppcre multi string

thnks, it works
by pseudo-cat
Thu Sep 02, 2010 4:30 pm
Forum: Common Lisp
Topic: cl--ppcre multi string
Replies: 2
Views: 3085

cl--ppcre multi string

Whether method to scan multi strings without partion that to separate strings?
eg

Code: Select all

TE> (scan-to-strings ".*" "ab
cd")
"ab"
#()
but i want get "ab\ncd"