tbnl-devel June 2007

tbnl-devel@common-lisp.net

15 participants
11 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] 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] New app using Hunchentoot
by William Bland 27 Jun '07

27 Jun '07

Hi, Just wanted to say thanks for Hunchentoot and to let the list know I launched a new web app yesterday that uses it. In the app's first 24 hours, Hunchentoot has responded to more than 1.5 million http requests and has been absolutely rock-solid the whole time. The app, http://clutu.com is a collaborative crossword game. It's written 100% in CL, using sbcl on an ubuntu vps. In addition to Hunchentoot I used cl-ppcre, cl-who and mel-base. Thanks again for providing such an awesome web server to the Lisp community. Cheers, Bill. -- William Bland: http://abstractnonsense.com/ Lisp documentation: http://lispdoc.com/

4 3

[hunchentoot-devel] Custom default page
by Erick Lopez Carreon 23 Jun '07

23 Jun '07

Hello: I'm trying to point the Hunchentoot default page to my /index page, but i can't figure how. Here is my dispatch table: (setq *dispatch-table* (nconc (list 'dispatch-easy-handlers (create-static-file-dispatcher-and-handler "/favicon.ico" "/usr/share/vhosts/hdemo/favicon.ico") (create-static-file-dispatcher-and-handler "/main.css" "/usr/share/vhosts/hdemo/main.css")) (mapcar (lambda (args) (apply #'create-prefix-dispatcher args)) '(("/index" main-page) ("/admin" admin-page) ("/showpost" showpost) ("/editpost" editpost) ("/showtopic" show-topic-page))) (list #'default-dispatcher))) What i want is when i point my browser to: http://localhost:3000 I get the /index page not the default page (currently i get the Hunchentoot defaul page). Any clues would be appreciated. Thank you.

2 2

[hunchentoot-devel] url-encoding file names
by Mathias Dahl 19 Jun '07

19 Jun '07

Hi! I am encoding file names using the url-encode function in Hunchentoot. However, it encodes chars such as space and / as well, which makes at least my browser (Firefox) or web server not understand that they are indeed links to files I have shared. So I have this workaround: (defun replace-all (string part replacement &key (test #'char=)) "Returns a new string in which all the occurences of the part is replaced with replacement." (with-output-to-string (out) (loop with part-length = (length part) for old-pos = 0 then (+ pos part-length) for pos = (search part string :start2 old-pos :test test) do (write-string string out :start old-pos :end (or pos (length string))) when pos do (write-string replacement out) while pos))) (defun replace-some-encoded (file-name) ;; Some chars should not be encoded, apparently... (replace-all (replace-all file-name "+" "%20") "%2F" "/")) (defun url-encode-file-name (file-name) (replace-some-encoded (hunchentoot:url-encode file-name :utf-8))) The above gives URLs like these: http://myserver/Tommy%20K%C3%B6rberg%2FTommy%20K%C3%B6rberg%20-%20Stad%20i%… And without the workaround I get this: http://klibb.com/muuartist/Tommy+K%C3%B6rberg%2FTommy+K%C3%B6rberg+-+Anthem… I searched the doc for "file name" to see if there was some special method suited for encoding file names with path information but could not find one. Do I need the above workaround? Thanks! /Mathias

4 13

[hunchentoot-devel] PUT parameters missing?
by Jonathon McKitrick 17 Jun '07

17 Jun '07

I'm waaay behind in updating from 0.5.0, so yesterday I grabbed 0.11.1. I use a lot of PUT requests in my web app, and data is sent in parameters just like in POST. However, the latest version of hunchentoot does not appear to populate post-parameters in a PUT request. -- Jonathon McKitrick jmckitrick(a)reedlarkeygroup.com

3 9

[hunchentoot-devel] session cookie URI part gets in LSP expressions in Internet Explorer 7.0
by Andrei Stebakov 16 Jun '07

16 Jun '07

Since I couldn't find a mailing list for hunchentoot LSP port by Mac Chan I am posting here. The problem is that when I create a lsp page for hunchentoot and the page starts with <%(no-cache)%> <%(start-session)%> The page also has a bunch of inline expressions like <img src=<%=(get-image "HeaderTransp.gif")%>> When I go to Internet Explorer 7.0 (In Firefox it doesn't happen) and read the html source of the generated page I see following: <img src='?customize=16%3A5757A00F8834482F324324AED6F91D16'/lisphandler/images/HeaderTransp.gif> Basically all of my inline expressions like <%= (some-func) %> gets prepended by the '?customize=16%3A5757A00F8834482F324324AED6F91D16' When I hit the "refresh page" button it generates a good page without the artifacts. I am not sure if the problem on the LSP or hunchentoot side. Maybe no fix is required and I have to do something differently. Thank you, Andrew

3 3

[hunchentoot-devel] beginners output problem
by Andy Chambers 02 Jun '07

02 Jun '07

The send-reply function below is part of some code that transforms sexp's according to specified rules a-la-sxml from the scheme world. My problem is that when I evaluate the let form on its own, it returns "<HTML></HTML>" as expected. However, when I request the page served by the easy-handler, I get the following condition. I/O timeout reading #<SB-SYS:FD-STREAM for "a constant string" {B84B211}> I'm using sbcl on debian with hunchentoot just asdf-intalled as a local package. Can anyone suggest why the let form would evaluate ok on its own but not inside the easy-handler? Cheers, Andy (defun send-reply (&optional s &rest fragments) "Output the fragments to the specified stream" (labels ((descend (fragments &optional result) (cond ((null fragments) result) ((not (car fragments)) (descend (cdr fragments) result)) ((null (car fragments)) (descend (cdr fragments) result)) ((eq t (car fragments)) (descend (cdr fragments) t)) ((consp (car fragments)) (descend (cdr fragments) (descend (car fragments) result))) ((functionp (car fragments)) (funcall (car fragments)) (descend (cdr fragments) t)) (t (format s "~a" (car fragments)) (descend (cdr fragments) t))))) (descend fragments))) (define-easy-handler (test :uri "/test" :default-request-type :get) () (let ((out (with-output-to-string (s) (send-reply s '(#\< HTML (#\> "</" HTML #\>)))))) out))

2 1

[hunchentoot-devel] patches for Hunchentoot / Flexistream for Allegro MoDeRn lisp
by Gary King 02 Jun '07

02 Jun '07

Hi, I recently ran into a few minor glitches getting Hunchentoot to run under Allegro's Modern Common Lisp. Here are some patches (based on the darcs repos). The flexistream patch is the "important" one. The hunchentoot changes are just adding a declare ignore, fixing a typo in a docstring and rewiting some #+ #+ a b as #+ a #+ b (the former has a claim to elegance but the later is unambiguous and works regardless of the default settings in allegro). HTH, # Flexistreams diff -rN -u old-flexi-streams/packages.lisp new-flexi-streams/ packages.lisp --- old-flexi-streams/packages.lisp 2007-06-02 08:32:41.000000000 -0400 +++ new-flexi-streams/packages.lisp 2007-06-02 08:32:41.000000000 -0400 @@ -29,7 +29,7 @@ (in-package :cl-user) -(unless (find-symbol "STREAM-FILE-POSITION" :trivial-gray-streams) +(unless (find-symbol (symbol-name 'stream-file-position) :trivial- gray-streams) (error "You need a newer version of TRIVIAL-GRAY-STREAMS.")) (defpackage :flexi-streams # Hunchentoot diff -rN -u old-hunchentoot/server.lisp new-hunchentoot/server.lisp --- old-hunchentoot/server.lisp 2007-06-02 08:35:13.000000000 -0400 +++ new-hunchentoot/server.lisp 2007-06-02 08:35:13.000000000 -0400 @@ -159,6 +159,7 @@ but this works only on LispWorks - for other Lisps the key must not be associated with a password." ;; initialize the session secret if needed + (declare (ignorable port-provided-p)) (unless (boundp '*session-secret*) (reset-session-secret)) (let ((output-chunking-p t)) @@ -180,14 +181,20 @@ :dispatch-table dispatch-table :output-chunking-p (and output- chunking-p (not mod-lisp-p)) :input-chunking-p input-chunking-p - #-:hunchentoot-no-ssl #-:hunchentoot-no-ssl - :ssl-certificate-file (and ssl- certificate-file - (namestring ssl-certificate-file)) - #-:hunchentoot-no-ssl #-:hunchentoot-no-ssl - :ssl-privatekey-file (and ssl- privatekey-file - (namestring ssl-privatekey-file)) - #-:hunchentoot-no-ssl #-:hunchentoot-no-ssl - :ssl-privatekey-password ssl- privatekey-password + #-:hunchentoot-no-ssl + :ssl-certificate-file + #-:hunchentoot-no-ssl + (and ssl-certificate-file + (namestring ssl-certificate-file)) + #-:hunchentoot-no-ssl + :ssl-privatekey-file + #-:hunchentoot-no-ssl + (and ssl-privatekey-file + (namestring ssl-privatekey-file)) + #-:hunchentoot-no-ssl + :ssl-privatekey-password + #-:hunchentoot-no-ssl + ssl-privatekey-password :mod-lisp-p mod-lisp-p :use-apache-log-p (and mod-lisp-p use-apache-log-p) :read-timeout read-timeout diff -rN -u old-hunchentoot/test/test.lisp new-hunchentoot/test/ test.lisp --- old-hunchentoot/test/test.lisp 2007-06-02 08:35:13.000000000 -0400 +++ new-hunchentoot/test/test.lisp 2007-06-02 08:35:13.000000000 -0400 @@ -150,7 +150,7 @@ (log-message :info "Oops info") (log-message :debug "Oops debug") (error "An error was triggered on purpose. Check your ~ -Apache error log. Up to 12 messages where logged depending on ~ +Apache error log. Up to 12 messages were logged depending on ~ the Apache log level set in httpd.conf.") (:html (:body "You'll never see this sentence...")))) @@ -580,3 +580,4 @@ ("/hunchentoot/test/files/" send-file) ("/hunchentoot/test" menu))) (list #'default-dispatcher))) -- Gary Warren King, metabang.com Cell: (413) 885 9127 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

tbnl-devel June 2007