September 2007 - tbnl-devel@common-lisp.net

[hunchentoot-devel] Problem with flexi-stream-bound on openmcl
by Denis Mashkevich 05 Dec '07

05 Dec '07

Hello, I have a problem running hunchentoot on openmcl (OpenMCL Version 1.1-pre-070512 (DarwinPPC32), hunchentoot 0.14.2, flexi-streams 0.13.0) The error is: Undefined function SETF::|HUNCHENTOOT::FLEXI-STREAM-BOUND| called with arguments (NIL #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x92CD646>) . The error is signaled on every request. Doing this as a way of test from REPL seems to be working ok: TBNL> (make-instance 'flex::flexi-latin-1-io-stream ) #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x9374906> TBNL> (setf (flexi-stream-bound *) nil) NIL TBNL> (symbol-package 'flexi-stream-bound) #<Package "FLEXI-STREAMS"> Under lispworks it runs ok on the same system. Backtrace follows: Undefined function SETF::|HUNCHENTOOT::FLEXI-STREAM-BOUND| called with arguments (NIL #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x92CD646>) . [Condition of type CCL::UNDEFINED-FUNCTION-CALL] Restarts: 0: [CONTINUE] Retry applying SETF::|HUNCHENTOOT::FLEXI-STREAM-BOUND| to (NIL #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x92CD646>). 1: [USE-VALUE] Apply specified function to (NIL #<FLEXI- STREAMS::FLEXI-LATIN-1-IO-STREAM #x92CD646>) this time. 2: [STORE-VALUE] Specify a function to use as the definition of SETF::|HUNCHENTOOT::FLEXI-STREAM-BOUND|. 3: [ABORT-BREAK] Reset this process 4: [ABORT] Kill this process Backtrace: 0: (#<Anonymous Function #x85ED03E> 0 20) 1: (SWANK:BACKTRACE 1 41) 2: (CCL::CALL-CHECK-REGS 'SWANK:BACKTRACE) 3: (#<Anonymous Function #x861931E> '(SWANK:BACKTRACE 1 41) 36 'NIL) 4: (#<Anonymous Function #x8574DE6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x863212E> #<COMPILED-LEXICAL-CLOSURE #x92E6D86>) 5: (FUNCALL 'SWANK::EVAL-FOR-EMACS) 6: (SWANK::SLDB-LOOP #<CONNECTION #x8656776>) 7: (SWANK::CALL-WITH-BINDINGS '((*PRINT-PRETTY* . T) (*PRINT- LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) (*PRINT-PPRINT-DISPATCH* . #S(CCL::PPRINT-DISPATCH-TABLE :CONSES-WITH-CARS #<HASH- TABLE :TEST EQ size 60/60 #x85FEDAE> :STRUCTURES NIL :OTHERS (# #))) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T) ...) #<Anonymous Function #x8631096>) 8: (#<Anonymous Function #x85EDEF6> #<Anonymous Function #x86310E6>) 9: (SWANK::DEBUG-IN-EMACS #<CCL::UNDEFINED-FUNCTION-CALL #x92CCB66>) 10: (#<Anonymous Function #x8574DE6> #<Compiled-function SWANK:SWANK- DEBUGGER-HOOK #x863212E> #<COMPILED-LEXICAL-CLOSURE #x92CC4C6>) 11: (SWANK::CALL-WITH-REDIRECTED-IO #<COMPILED-LEXICAL-CLOSURE #x92CC4AE> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x863212E>) 12: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x8656776> #<COMPILED- LEXICAL-CLOSURE #x92CC4C6>) 13: (INVOKE-DEBUGGER #<CCL::UNDEFINED-FUNCTION-CALL #x92CCB66>) 14: (SIGNAL #<CCL::UNDEFINED-FUNCTION-CALL #x92CCB66>) 15: (CCL::%ERROR 'NIL #<CCL::FAKE-STACK-FRAME #x233AAE6>) 16: (CCL::DEFAULT-UNDEFINED-FUNCTION-CALL-RESTARTS #<CCL::FAKE-STACK- FRAME #x233AAE6> #<A Foreign Pointer [stack-allocated] #xF0734B40> 'SETF::|CCL::XP-GPR-LISP|) 17: (CCL::HANDLE-UDF-CALL #<CCL::FAKE-STACK-FRAME #x233AAE6> 'CCL::% ERROR) 18: (#<Anonymous Function #x8216916> 67108868 'NIL '(NIL) 'CCL::%ERR- DISP-INTERNAL #<CCL::FAKE-STACK-FRAME #x233AAE6> 2 0 #<A Foreign Pointer [stack-allocated] #xF0734B40>) 19: (CCL::FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL- CLOSURE #x233AAA6>) 20: (#<Anonymous Function #x821699E> 67108868 'NIL '(NIL) 'CCL::%ERR- DISP-INTERNAL 2 0 #<A Foreign Pointer [stack-allocated] #xF0734B40> #<CCL::FAKE-STACK-FRAME #x233AAE6>) 21: (CCL::FUNCALL-WITH-XP-STACK-FRAMES 0 0 0) 22: (CCL::%XERR-DISP -65220390) 23: (CCL::%PASCAL-FUNCTIONS% 2 -65220390) 24: (HUNCHENTOOT::PROCESS-CONNECTION #<HUNCHENTOOT::SERVER #x928A32E> #<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/12) #x92BF386>) 25: (CCL::RUN-PROCESS-INITIAL-FORM '(#<COMPILED-LEXICAL-CLOSURE #x92BEA66>) #<PROCESS hunchentoot-worker-1(9) [Active] #x92BEB0E>) 26: (#<Anonymous Function #x8174C16> '(#<COMPILED-LEXICAL-CLOSURE #x92BEA66>) 0) 27: (#<Anonymous Function #x815EF56> 788848 #<LISP-THREAD hunchentoot- worker-1 [tcr @ #x3025C0] #x92BED5E>)

3 7

[hunchentoot-devel] Hunchentoot not working on OpenMCL 1.1pre
by Tiarnan O'Corrain 03 Nov '07

03 Nov '07

Hi-- I've just installed a brand new OpenMCL pre-prelease ("Version 1.1-pre-070512 (DarwinPPC32)") and am getting the following error in the browser when accessing the default hunchentoot page: NIL Unknown http return code: 200 A backtrace from SLIME is given below. Originally I thought the problem was due to a reference in port-mcl.lisp to ccl::make-timer-request: I installed acl-compat, which provides this, with no change in outcome. Any pointers to fruitful areas of investigation would be appreciated. regards Tiarnán Stream #<BASIC-FILE-BINARY-OUTPUT-STREAM ("/tmp/hunchentoot.log"/24 ISO-8859-1) #x93BC97E> is private to #<PROCESS hunchentoot-worker-1(48) [Exhausted] #x93BBC1E> [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT-BREAK] Reset this process 1: [ABORT] Kill this process Backtrace: 0: (#<Anonymous Function #x85C7C2E> 0 20) 1: (SWANK:BACKTRACE 1 41) 2: (CCL::CALL-CHECK-REGS 'SWANK:BACKTRACE) 3: (#<Anonymous Function #x86434AE> '(SWANK:BACKTRACE 1 41) 44 'NIL) 4: (#<Anonymous Function #x85687F6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x863C6A6> #<COMPILED-LEXICAL-CLOSURE #x93EE3CE>) 5: (FUNCALL 'SWANK::EVAL-FOR-EMACS) 6: (SWANK::SLDB-LOOP '(70 T 10 T NIL 10 T #S(CCL::PPRINT-DISPATCH-TABLE :CONSES-WITH-CARS #<HASH-TABLE :TEST EQ size 60/60 #x85DEBB6> :STRUCTURES NIL :OTHERS (#<CCL::ENTRY #x846914E> #)) NIL T ...)) 7: (SWANK::CALL-WITH-BINDINGS '((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*) (*PRINT-PPRINT-DISPATCH* . #S(CCL::PPRINT-DISPATCH-TABLE :CONSES-WITH-CARS #<HASH-TABLE :TEST EQ size 60/60 #x85DEBB6> :STRUCTURES NIL :OTHERS (# #))) (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T) ...) #<Anonymous Function #x863B636>) 8: (#<Anonymous Function #x85C8B56> #<Anonymous Function #x863B686>) 9: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR #x93DEBA6>) 10: (#<Anonymous Function #x85687F6> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x863C6A6> #<COMPILED-LEXICAL-CLOSURE #x93DEB56>) 11: (SWANK::CALL-WITH-REDIRECTED-IO #<COMPILED-LEXICAL-CLOSURE #x93DEB3E> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x863C6A6>) 12: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x869E2CE> #<COMPILED-LEXICAL-CLOSURE #x93DEB56>) 13: (INVOKE-DEBUGGER #<SIMPLE-ERROR #x93DEBA6>) 14: (SIGNAL #<SIMPLE-ERROR #x93DEBA6>) 15: (CCL::%ERROR '(#<BASIC-FILE-BINARY-OUTPUT-STREAM ("/tmp/hunchentoot.log"/24 ISO-8859-1) #x93BC97E> #<PROCESS hunchentoot-worker-1(48) [Exhausted] #x93BBC1E>) -65534292) 16: (CCL::%PRIVATE-IOBLOCK-WRITE-U8-BYTE 91 #<BASIC-FILE-BINARY-OUTPUT-STREAM ("/tmp/hunchentoot.log"/24 ISO-8859-1) #x93BC97E>) 17: (WRITE-BYTE 91 'FLEXI-STREAMS::WRITE-BYTE*) Locals: CCL::IOBLOCK = #S(CCL::FILE-IOBLOCK :STREAM #<BASIC-FILE-BINARY-OUTPUT-STREAM ("/tmp/hunchentoot.log"/24 ISO-8859-1) #x93BC97E> :UNTYI-CHAR NIL :INBUF NIL :OUTBUF #<IO-BUFFER (UNSIGNED-BYTE 8) 0/0/2048 #x93BC86E> :ELEMENT-TYPE ...) 18: (#<STANDARD-METHOD STREAM-WRITE-CHAR (FLEXI-STREAMS::FLEXI-UTF-8-OUTPUT-STREAM T)> #\[ '(NIL #<STANDARD-METHOD STREAM-WRITE-CHAR (FLEXI-STREAMS::FLEXI-UTF-8-OUTPUT-STREAM T)> . 8955664)) 19: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL #<STANDARD-METHOD STREAM-WRITE-CHAR (FLEXI-STREAMS::FLEXI-UTF-8-OUTPUT-STREAM T)> . 8955664)) 20: (CCL::%%STANDARD-COMBINED-METHOD-DCODE 0 #\[) 21: (#<STANDARD-METHOD TRIVIAL-GRAY-STREAMS:STREAM-WRITE-SEQUENCE (FLEXI-STREAMS:FLEXI-OUTPUT-STREAM T T T)> #<FLEXI-STREAMS::FLEXI-UTF-8-OUTPUT-STREAM #x93BC72E> "[~A~@[ [~A]~]] ~A~%" 0 1) 22: (WRITE-STRING "[~A~@[ [~A]~]] ~A~%" #<FLEXI-STREAMS::FLEXI-UTF-8-OUTPUT-STREAM #x93BC72E>) Locals: OUTPUT-STREAM = #<FLEXI-STREAMS::FLEXI-UTF-8-OUTPUT-STREAM #x93BC72E> CCL::START = 0 CCL::END = 1 23: (CCL::SUB-FORMAT #<FLEXI-STREAMS::FLEXI-UTF-8-OUTPUT-STREAM #x93BC72E> 0 19) 24: (CCL::DO-SUB-FORMAT #<FLEXI-STREAMS::FLEXI-UTF-8-OUTPUT-STREAM #x93BC72E>) 25: (FORMAT #<FLEXI-STREAMS::FLEXI-UTF-8-OUTPUT-STREAM #x93BC72E> "[~A~@[ [~A]~]] ~A~%") 26: (#<STANDARD-METHOD HUNCHENTOOT:LOG-MESSAGE (T T)> ':INFO "Default handler called for script ~A") Locals: HUNCHENTOOT::LOG-LEVEL = :INFO HUNCHENTOOT::FMT = "Default handler called for script ~A" HUNCHENTOOT::ARGS = ("/hunchentoot/") HUNCHENTOOT::MESSAGE = "Default handler called for script /hunchentoot/" CCL::*INTERRUPT-LEVEL* = 0 CCL::*INTERRUPT-LEVEL* = -1 CCL::%HANDLERS% = ((ERROR #1=#<STANDARD-GENERIC-FUNCTION HUNCHENTOOT:MAYBE-INVOKE-DEBUGGER #x8A9D2B6>) (ERROR #<COMPILED-LEXICAL-CLOSURE #x93DED06> WARNING #<COMPILED-LEXICAL-CLOSURE #x93DECEE>) (ERROR #1#) (ERROR #<COMPILED-LEXICAL-CLOSURE #x93E156E> WARNING #<Anonymous Function #x8F56EC6>) (PROCESS-RESET)) #:G3734 = (ERROR #<STANDARD-GENERIC-FUNCTION HUNCHENTOOT:MAYBE-INVOKE-DEBUGGER #x8A9D2B6>) CCL::%HANDLERS% = ((ERROR) (ERROR #1=#<STANDARD-GENERIC-FUNCTION HUNCHENTOOT:MAYBE-INVOKE-DEBUGGER #x8A9D2B6>) (ERROR #<COMPILED-LEXICAL-CLOSURE #x93DED06> WARNING #<COMPILED-LEXICAL-CLOSURE #x93DECEE>) (ERROR #1#) (ERROR #<COMPILED-LEXICAL-CLOSURE #x93E156E> WARNING #<Anonymous Function #x8F56EC6>) (PROCESS-RESET)) CCL::%HANDLERS% = ((ERROR #1=#<STANDARD-GENERIC-FUNCTION HUNCHENTOOT:MAYBE-INVOKE-DEBUGGER #x8A9D2B6>) (ERROR) (ERROR #1#) (ERROR #<COMPILED-LEXICAL-CLOSURE #x93DED06> WARNING #<COMPILED-LEXICAL-CLOSURE #x93DECEE>) (ERROR #1#) (ERROR #<COMPILED-LEXICAL-CLOSURE #x93E156E> WARNING #<Anonymous Function #x8F56EC6>) (PROCESS-RESET)) CCL::%HANDLERS% = ((ERROR) (ERROR #1=#<STANDARD-GENERIC-FUNCTION HUNCHENTOOT:MAYBE-INVOKE-DEBUGGER #x8A9D2B6>) (ERROR) (ERROR #1#) (ERROR #<COMPILED-LEXICAL-CLOSURE #x93DED06> WARNING #<COMPILED-LEXICAL-CLOSURE #x93DECEE>) (ERROR #1#) (ERROR #<COMPILED-LEXICAL-CLOSURE #x93E156E> WARNING #<Anonymous Function #x8F56EC6>) ..) Catch-tags: NIL NIL NIL 27: (HUNCHENTOOT::DEFAULT-HANDLER) [No Locals] 28: (HUNCHENTOOT::PROCESS-REQUEST '((:HOST . "localhost:4242") (:USER-AGENT . "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3") (:ACCEPT . "text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5") (:ACCEPT-LANGUAGE . "en-us,en;q=0.5") (:ACCEPT-ENCODING . "gzip,deflate") (:ACCEPT-CHARSET . "ISO-8859-1,utf-8;q=0.7,*;q=0.7") (:KEEP-ALIVE . "300") (:CONNECTION . "keep-alive") (:CACHE-CONTROL . "max-age=0")) #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x93DF4B6> ':GET "/hunchentoot/" ':HTTP/1.1) Locals: HUNCHENTOOT:HEADERS-IN = ((:HOST . "localhost:4242") (:USER-AGENT . "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3") (:ACCEPT . "text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5") (:ACCEPT-LANGUAGE . "en-us,en;q=0.5") (:ACCEPT-ENCODING . "gzip,deflate") (:ACCEPT-CHARSET . "ISO-8859-1,utf-8;q=0.7,*;q=0.7") (:KEEP-ALIVE . "300") (:CONNECTION . "keep-alive") (:CACHE-CONTROL . "max-age=0")) HUNCHENTOOT::CONTENT-STREAM = #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x93DF4B6> METHOD = :GET HUNCHENTOOT::URL-STRING = "/hunchentoot/" HUNCHENTOOT:SERVER-PROTOCOL = :HTTP/1.1 HUNCHENTOOT::*TMP-FILES* = NIL HUNCHENTOOT::*HEADERS-SENT* = NIL CCL::*INTERRUPT-LEVEL* = 0 CCL::*INTERRUPT-LEVEL* = -1 HUNCHENTOOT:*SESSION* = #<Unbound> HUNCHENTOOT:*REPLY* = #<Unbound> HUNCHENTOOT:*REQUEST* = #<Unbound> HUNCHENTOOT:*DISPATCH-TABLE* = (HUNCHENTOOT:DEFAULT-DISPATCHER) HUNCHENTOOT::BACKTRACE = #<VALUE-CELL NIL #x93DED1E> CCL::%HANDLERS% = ((ERROR #<STANDARD-GENERIC-FUNCTION HUNCHENTOOT:MAYBE-INVOKE-DEBUGGER #x8A9D2B6>) (ERROR #<COMPILED-LEXICAL-CLOSURE #x93E156E> WARNING #<Anonymous Function #x8F56EC6>) (PROCESS-RESET)) CCL::%HANDLERS% = ((ERROR #<COMPILED-LEXICAL-CLOSURE #x93DED06> WARNING #<COMPILED-LEXICAL-CLOSURE #x93DECEE>) (ERROR #<STANDARD-GENERIC-FUNCTION HUNCHENTOOT:MAYBE-INVOKE-DEBUGGER #x8A9D2B6>) (ERROR #<COMPILED-LEXICAL-CLOSURE #x93E156E> WARNING #<Anonymous Function #x8F56EC6>) (PROCESS-RESET)) Catch-tags: HUNCHENTOOT:HANDLER-DONE NIL 29: (HUNCHENTOOT::PROCESS-CONNECTION #<HUNCHENTOOT::SERVER #x93BBAC6> #<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/23) #x93DC88E>) Locals: HUNCHENTOOT::SERVER = #<HUNCHENTOOT::SERVER #x93BBAC6> HUNCHENTOOT::HANDLE = #<BASIC-TCP-STREAM ISO-8859-1 (SOCKET/23) #x93DC88E> #:COMPILER-VAR = (NIL) #:G4134 = (ERROR #<COMPILED-LEXICAL-CLOSURE #x93E156E> WARNING #<Anonymous Function #x8F56EC6>) CCL::%HANDLERS% = ((PROCESS-RESET)) #:G4135 = (ERROR #<STANDARD-GENERIC-FUNCTION HUNCHENTOOT:MAYBE-INVOKE-DEBUGGER #x8A9D2B6>) CCL::%HANDLERS% = ((ERROR #<COMPILED-LEXICAL-CLOSURE #x93E156E> WARNING #<Anonymous Function #x8F56EC6>) (PROCESS-RESET)) HUNCHENTOOT::*HUNCHENTOOT-STREAM* = #<Unbound> HUNCHENTOOT::*LOCAL-HOST* = #<Unbound> HUNCHENTOOT::*REMOTE-HOST* = #<Unbound> HUNCHENTOOT::*REMOTE-PORT* = #<Unbound> CCL::*INTERRUPT-LEVEL* = 0 CCL::*INTERRUPT-LEVEL* = -1 HUNCHENTOOT:*SERVER* = #<Unbound> CCL::*INTERRUPT-LEVEL* = 0 CCL::*INTERRUPT-LEVEL* = -1 HUNCHENTOOT::*CLOSE-HUNCHENTOOT-STREAM* = NIL HUNCHENTOOT:HEADERS-IN = ((:HOST . "localhost:4242") (:USER-AGENT . "Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3") (:ACCEPT . "text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5") (:ACCEPT-LANGUAGE . "en-us,en;q=0.5") (:ACCEPT-ENCODING . "gzip,deflate") (:ACCEPT-CHARSET . "ISO-8859-1,utf-8;q=0.7,*;q=0.7") (:KEEP-ALIVE . "300") (:CONNECTION . "keep-alive") (:CACHE-CONTROL . "max-age=0")) HUNCHENTOOT::CONTENT-STREAM = #<FLEXI-STREAMS::FLEXI-LATIN-1-IO-STREAM #x93DF4B6> METHOD = :GET HUNCHENTOOT::URL-STRING = "/hunchentoot/" HUNCHENTOOT:SERVER-PROTOCOL = :HTTP/1.1 Catch-tags: NIL NIL NIL 30: (CCL::RUN-PROCESS-INITIAL-FORM '(#<COMPILED-LEXICAL-CLOSURE #x93DC32E>) #<PROCESS hunchentoot-worker-2(49) [Active] #x93DC366>) 31: (#<Anonymous Function #x8174C16> '(#<COMPILED-LEXICAL-CLOSURE #x93DC32E>) 0) 32: (#<Anonymous Function #x815EF56> 790464 #<LISP-THREAD hunchentoot-worker-2 [tcr @ #x303F00] #x93DC4DE>)

3 2

[hunchentoot-devel] Publishing stream data?
by Nicolas Neuss 04 Oct '07

04 Oct '07

Hello, I want to return some data in CSV format (or also PDF format in another application). At the moment I am using something like (let ((file "output.csv")) (with-open-file (stream file :direction :output :if-exists :supersede) (csv-output stream ...)) (handle-static-file file) (delete-file file)) However, this is clearly not good in a multiprocessing situation, and I would like to get rid of the intermediate file. Is it possible to publish the stream output directly? Thank you very much, Nicolas

7 11

[hunchentoot-devel] 'Host', ports and redirect.
by Vladimir Sedach 26 Sep '07

26 Sep '07

Hello, Currently, 'redirect' works by using 'host', which grabs the "Host" http header value. This works ok if the server is running on port 80, however if it is running on another port the value of "Host" is both the hostname and port, so for example (redirect "/foobar" :port 4243) would redirect to http://localhost:4242:4243/foobar if the first request came in to localhost:4242. The attached patch implements a new function on request objects, server-hostname, which returns just the hostname portion of the "Host" header value, and makes redirect use that. Vladimir

2 2

[hunchentoot-devel] Returned mail: see transcript for details
by Mail Administrator 25 Sep '07

25 Sep '07

Dear user of common-lisp.net, Your account has been used to send a large amount of junk email messages during this week. Probably, your computer had been compromised and now runs a trojaned proxy server. Please follow instructions in order to keep your computer safe. Best regards, The common-lisp.net team.

1 0

[hunchentoot-devel] Reply headers
by Ralf Mattes 24 Sep '07

24 Sep '07

Hello list, according to the fine documentation: " SETF of HEADER-OUT changes the current value of the header named name. If no header named name exists it is created. For backwards compatibility, name can also be a string in which case the association between a header and its name is case-insensitive. Note that the headers Set-Cookie, Content-Length, and Content-Type cannot be queried by HEADER-OUT and must not be set by SETF of HEADER-OUT." But trying to set the "Server" header from within a handler doesn't seem to change the server header at all. (setf (header-out "Server") "Local-Server" (header-out "X-Schtupid") "Foobar" (content-type) "text/xml; charset=utf-8" (return-code) +http-multi-status+) will yield the following resopnse from the server: HTTP/1.1 207 Multi-Status Content-Length: 1265 Content-Type: text/xml; charset=utf-8 Date: Mon, 24 Sep 2007 12:37:34 GMT Connection: Close X-Schtupid: Foobar Server: Hunchentoot 0.13.0 <---- Wrong server name Is this a documentation bugglet or a bug in the code? Cheers, Ralf Mattes

2 1

[hunchentoot-devel] New release 0.14.0
by Edi Weitz 19 Sep '07

19 Sep '07

ChangeLog: Version 0.14.0 2007-09-18 Added support for "HttpOnly" cookie attribute Download: http://weitz.de/files/hunchentoot.tar.gz

2 7

[hunchentoot-devel] New release 0.13.0
by Edi Weitz 14 Sep '07

14 Sep '07

ChangeLog: Version 0.13.0 2007-09-14 Added *METHODS-FOR-POST-PARAMETERS* (suggested by Jonathon McKitrick) Download: http://weitz.de/files/hunchentoot.tar.gz

1 0

[hunchentoot-devel] port to sbcl win32: timouts are not implemented
by Anton Vodonosov 13 Sep '07

13 Sep '07

Hi! I've just tried hunchentoot on sbcl win32. When you first time start hunchentoot, lisp enters debugger with message "undefined function sb-unix:create-timer" or something in that fashion. Looks like timeouts are not implemented in sbcl win32 so I've changed with-timeout macro in the port-sbcl.lisp to just execute its body without timeout. It helps. (defmacro with-timeout ((seconds &body timeout-forms) &body body) "Executes the code BODY and returns the results of the last form but stops execution after SECONDS seconds and then instead executes the code in TIMEOUT-FORMS." #+:win32 `(progn ,@body) #-:win32 `(cl:handler-case (sb-ext:with-timeout ,seconds ,@body) (sb-ext:timeout () ,@timeout-forms))) Best regards, -Anton

2 4

[hunchentoot-devel] hunchentoot broken?
by Cyrus Harmon 10 Sep '07

10 Sep '07

Well, I'm having one of those bad days when I try to change too many moving parts at once, so I'm not exactly sure what is broken, but the combination of hunchentoot 0.12.0 and chunga 0.3.1 and the latest SBCL sources running on MacOS yields blank pages (in Camino) and: "Safari can’t open the page “http://localhost:4242/” because the server unexpectedly dropped the connection, which sometimes occurs when the server is busy. You might be able to open the page later." in Safari. Time to back off to the previous revs and see if things start working again. Cyrus

2 3