tbnl-devel July 2007

tbnl-devel@common-lisp.net

14 participants
8 discussions

[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] 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] Virtual hosts support using *META-DISPATCHER*
by Ram Krishnan 20 Aug '07

20 Aug '07

Hi all, I'm in the process of migrating a Web app from Portable Allegroserve to Hunchentoot (0.10), and I had a question about implementing virtual hosts by overriding the *META-DISPATCHER* function binding. Here's what I have so far: ---------------- (defvar *vhost-dispatch-table-map* (make-hash-table :test 'string=)) (defun vhost-meta-dispatcher (server) (declare (ignore server)) (or (gethash (hunchentoot:host) *vhost-dispatch-table-map*) *dispatch-table*)) (defun vhost-set-dispatch-table (hosts dispatch-table &key defaultp) (dolist (hostname (pg:mklist hosts)) (setf (gethash hostname *vhost-dispatch-table-map*) dispatch-table)) (when defaultp (setq *dispatch-table* dispatch-table))) (setq hunchentoot:*meta-dispatcher* 'vhost-meta-dispatcher) ---------------- Now, I'm able to return different *DISPATCH-TABLE* bindings based on the hostname, like so: ---------------- (vhost-set-dispatch-table "foo.bar.com" (list (hunchentoot:create-folder-dispatcher-and-handler "/assets/" #p"/var/www/foo.bar.com/assets/"))) (vhost-set-dispatch-table "quux.bar.com" (list (hunchentoot:create-folder-dispatcher-and-handler "/assets/" #p"/var/www/quux.bar.com/assets/"))) ---------------- Are there any problems in subverting the *META-DISPATCHER* binding this way? Is there a better alternative? Thanks. -ram

3 4

[hunchentoot-devel] ALIW (A Lisp in Wonderland) Wiki Project
by Volkan YAZICI 27 Jul '07

27 Jul '07

Hi all! I've just finished the wiki project[1] that I've been working on for some time. Project uses Hunchentoot as its web server (and lots of other EdiWare, e.g., cl-who, cl-ppcre, flexi-streams...) and I thought channel citizens would want to check it. [1] http://node2.core.gen.tr:8080/ And more important of all, thanks so much to Dr. Edmund Weitz for creating such great tools! Regards.

1 0

[hunchentoot-devel] Middleware with Hunchentoot
by Robert Uhl 21 Jul '07

21 Jul '07

>From Python's WSGI I've gotten the idea of middleware--that is, stuff which runs around user-defined code in some user-defined order. A null-effect middleware function might be defined like this: (defun null-effect (request next) (when next (funcall next request))) One can see how a middleware function could set things up for the user-defined handler, could decide whether or not to call the user's handler and could override whatever that handler returns. A convenience macro def-middleware might make it possible to write the null-effect function like this: (def-middleware null-effect (request) (call-next-middleware)) And the user might be able to create a dispatcher thus: (create-regex-dispatcher "/foo/bar?baz" (null-effect #'my-handler)) Obviously middleware could be chained: (create-regex-dispatcher "/foo/bar?baz" (authentication (caching #'my-handler))) Question: does this seem like a reasonable way to handle middleware, particularly authentication/authorisation mechanisms? I'm fairly new to Lisp, but it _seems_ like it's a fairly Lispy way to go about things. Thoughts? -- Robert Uhl <http://public.xdi.org/=ruhl> England really needs France around to provide comic relief. --Matt McLeod in comp.sys.mac.games.strategic

7 12

[hunchentoot-devel] host/port question
by Cyrus Harmon 18 Jul '07

18 Jul '07

I'm not sure what "the right thing" here is, but it struck me as odd that redirect didn't include a port argument, so I made the following changes to redirect: --- hunchentoot-0.9.0/misc.lisp 2007-03-30 14:01:27.000000000 -0700 +++ ../hunchentoot-0.9.0/misc.lisp 2007-04-27 22:45:00.000000000 -0700 @@ -229,6 +229,7 @@ (add-session-id (not (or host-provided-p (starts-with- scheme-p target) (cookie-in *session-cookie-name*)))) + port permanently) "Redirects the browser to TARGET which should be a string. If TARGET is a full URL starting with a scheme, HOST and PROTOCOL @@ -240,11 +241,11 @@ otherwise a 302." (let ((url (if (starts-with-scheme-p target) target - (format nil "~A://~A~A" + (format nil "~A://~A~@[:~A~]~A" (ecase protocol ((:http) "http") ((:https) "https")) - host target)))) + host port target)))) (when add-session-id (setq url (add-cookie-value-to-url url :replace-ampersands-p nil))) (setf (header-out :location) but then I realized that what we call "host" here really is host:port. Should these two notions be more "decoupled" or should I just think host:port when I see host? Thanks, Cyrus

2 4

[hunchentoot-devel] Hunchentoot standalone with and without ssl
by Austin Haas 12 Jul '07

12 Jul '07

If I am running Hunchentoot standalone with ssl, should it be able to handle requests that are NOT using ssl as well? Currently, I am getting the following error if I send a request to "http" and not "https": [2007-07-09 10:56:45 [ERROR]] Error while processing connection: A failure in the SSL library occurred on handle #.(SB-SYS:INT-SAP #X080EE6E0). (Return code: 1)SSL error queue: error:1407609C:SSL routines:SSL23_GET_CLIENT_HELLO:http request Do people normally start two servers, one w/ ssl and one w/o, if they want to be able to handle both types of requests? The requests would be to different resources, obviously. -austin -- Austin Haas Pet Tomato, Inc. http://pettomato.com

4 4

[hunchentoot-devel] https server - no shared cipher error
by Mac Chan 10 Jul '07

10 Jul '07

Hi, Have anyone successfully started a https server with the latest hunchentoot? For some reason I'm getting a "no shared cipher" error. I hoped that I'm not making stupid mistake with the ssl setup. # To generate a key $ openssl genrsa 1024 > server.key # To generate a Certificate Signing Request $openssl req -new -key server.key > server.csr # self-sign cert $openssl req -x509 -key server.key -in server.csr > server.crt (asdf:oos 'asdf:load-op :hunchentoot-test) (hunchentoot:start-server :port 4443 :ssl-certificate-file "server.crt") (setq hunchentoot:*catch-errors-p* nil) When I point firefox to https://localhost:4443/, a error dialog pops up: `Firefox and localhost cannot communicate securely because they have no common encryption algorithms.' I'm using lispworks 5.0.2 32-bit pro. This happens in both fedora core 6 and winxp. I used the precompiled ssl package found here : http://www.slproweb.com/download/Win32OpenSSL-0_9_8e.exe Here's the backtrace: SSL failure in #<COMM:SOCKET-STREAM 2009956F>: error:1408A0C1:SSL routines:SSL3_GET_CLIENT_HELLO:no shared cipher [Condition of type COMM:SSL-FAILURE] Restarts: 0: [ABORT] Quit process. Backtrace: 0: SIGNAL (#<COMM:SSL-FAILURE 2009C333> &REST NIL) 1: CONDITIONS::CONDITIONS-ERROR (:INVISIBLEP T COMM:SSL-FAILURE (:STREAM #1=#<COMM:SOCKET-STREAM 2009956F> :FORMAT-STRING "SSL failure in ~s: ~a" :FORMAT-ARGUMENTS (#1# "error:1408A0C1:SSL routines:SSL3_GET_CLIENT_HELLO:no shared cipher"))) 2: COMM::SSL-READ-OR-WRITE-BUFFER (#<COMM:SOCKET-STREAM 2009956F> T "ULT-DISPATCHERB@HC9 3: (METHOD STREAM:STREAM-FILL-BUFFER (STREAM:BUFFERED-STREAM)) (#<COMM:SOCKET-STREAM 2009956F>) 4: (METHOD STREAM:STREAM-READ-CHAR (STREAM:BUFFERED-STREAM)) (#<COMM:SOCKET-STREAM 2009956F>) 5: (METHOD STREAM:STREAM-READ-BYTE (COMM:SOCKET-STREAM)) (#<COMM:SOCKET-STREAM 2009956F>) 6: READ-BYTE (#<COMM:SOCKET-STREAM 2009956F> &OPTIONAL "<(EOF-ERROR-P T)>" :EOF) 7: READ-BYTE (#<CHUNGA:CHUNKED-IO-STREAM 2009BE8F> &OPTIONAL "<(EOF-ERROR-P T)>" NIL) 8: (METHOD FLEXI-STREAMS::READ-BYTE* (FLEXI-STREAMS::FLEXI-BINARY-INPUT-STREAM)) (#<FLEXI-STREAMS::FLEXI-BINARY-LATIN-1-IO-STREAM 2009BDF7>) 9: (METHOD STREAM:STREAM-READ-CHAR (FLEXI-STREAMS::FLEXI-LATIN-1-INPUT-STREAM)) (#<FLEXI-STREAMS::FLEXI-BINARY-LATIN-1-IO-STREAM 2009BDF7>) 10: READ-CHAR (&OPTIONAL "<(STREAM *STANDARD-INPUT*)>" "<(EOF-ERROR-P T)>" NIL :DONT-KNOW) 11: CHUNGA:READ-LINE* (#<FLEXI-STREAMS::FLEXI-BINARY-LATIN-1-IO-STREAM 2009BDF7> &OPTIONAL NIL) 12: HUNCHENTOOT::GET-REQUEST-DATA NIL 13: HUNCHENTOOT::PROCESS-CONNECTION (#<HUNCHENTOOT::SERVER 200A3EEF> 420) 14: (SUBFUNCTION MP::PROCESS-SG-FUNCTION MP::INITIALIZE-PROCESS-STACK) (:DONT-KNOW) 15: SYSTEM::%%FIRST-CALL-TO-STACK NIL Regards, -- Mac

2 2

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

tbnl-devel July 2007