Search found 6 matches
- Wed Sep 28, 2011 1:38 pm
- Forum: Common Lisp
- Topic: Hunchentoot sessions
- Replies: 2
- Views: 5417
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)
- Sun Sep 25, 2011 2:31 am
- Forum: Common Lisp
- Topic: Hunchentoot sessions
- Replies: 2
- Views: 5417
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...
- 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: 6709
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).
- 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: 6709
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...
- Fri Sep 03, 2010 6:45 am
- Forum: Common Lisp
- Topic: cl--ppcre multi string
- Replies: 2
- Views: 3470
Re: cl--ppcre multi string
thnks, it works
- Thu Sep 02, 2010 4:30 pm
- Forum: Common Lisp
- Topic: cl--ppcre multi string
- Replies: 2
- Views: 3470
cl--ppcre multi string
Whether method to scan multi strings without partion that to separate strings?
eg
but i want get "ab\ncd"
eg
Code: Select all
TE> (scan-to-strings ".*" "ab
cd")
"ab"
#()