Hi,
I am trying to port (and would later like to deploy) an application
that I am developing using OpenMCL on Mac OS X to CMU CL on Linux. It
is a Web application using Portable Allegro Serve, Lisp Server Pages
and Eric Marsden's PostgreSQL interface. All code compiles and loads
(although CMU CL gives so much warnings and notices that I haven't
checked them all yet), but once I start the server and try to connect
it fails: it handles the first GET request (returning the login page),
but fails when handling the second POST request that contains the login
proper. Somehow the socket streams are being used both as binary and as
character streams (bivalent ?) and CMU CL is having problems with this.
Is this fixable ? Did anybody else encounter this ? I would like to
keep on using the same paserve version since I am very happy with it.
I am using paserve 1.2.12c on cmucl 18d. Below is a the program's
output and a backtrace.
Thx,
Sven
[sven@mother lcars]$ cmucl -load setup
; Loading #p"/home/sven/init.lisp".
; Loading #p"/home/sven/cvs/oneclicktest/lcars/setup.lisp".
LCARS setup running with #p"/home/sven/cvs/oneclicktest/lcars/" as
basedir
;; Loading #p"/home/sven/cvs/oneclicktest/lcars/build/defsystem.lisp".
Converted CANONICALIZE-MODULE-NAME.
Converted DEFMODULE.
Converted MODULE-FILES.
Converted PROVIDE.
Converted REQUIRE.
Warning: These variables are undefined:
*LIBRARY* *MODULE-FILES*
Warning: Old-style IN-PACKAGE.
Converted |(PCL::FAST-METHOD PRINT-OBJECT (COMPONENT T))|.
Converted |(PCL::FAST-METHOD PRINT-OBJECT (LANGUAGE T))|.
;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/INSTALL.lisp".
;;; Loading
#p"/home/sven/cmucl/lib/cmucl/lib/subsystems/gray-streams-library.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/logical-
hostnames.lisp".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/acl-compat/acl-
compat.system".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/acl-compat/
nregex.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/acl-compat/acl-mp-
package.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/acl-compat/acl-mp-
cmu.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/acl-compat/acl-
socket-cmu.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/acl-compat/acl-
excl-cmu.x86f".
Warning: System NREGEX doesn't seem to be defined...
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/acl-compat/acl-sys-
cmu.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/acl-compat/
meta.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/acl-compat/
uri.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/acl-compat/
chunked.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/
aserve.system".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/htmlgen/
htmlgen.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/macs.x86f".
Warning: System URI doesn't seem to be defined...
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/main.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/
headers.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/parse.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/decode.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/
publish.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/
authorize.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/log.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/client.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/portableaserve/aserve/proxy.x86f".
;; Loading #p"/home/sven/cvs/oneclicktest/lcars/build/asdf.lisp".
;; Loading #p"/home/sven/cvs/oneclicktest/lcars/setup-asdf.lisp".
Using ASDF central registry (#p"/home/sven/cvs/oneclicktest/lcars/"
*DEFAULT-PATHNAME-DEFAULTS*
"/home/dan/src/sourceforge/cclan/asdf/systems/")
;;; Loading system definition from
/home/sven/cvs/oneclicktest/lcars/lcars.asd into #<The ASDF1945
package, 0/9 internal, 0/9 external>
;;; Loading #p"/home/sven/cvs/oneclicktest/lcars/lcars.asd".
Registering #<SYSTEM :LCARS {480F60A5}> as LCARS
;;; Loading #p"/home/sven/cvs/oneclicktest/lcars/web/session.x86f".
;;; Loading #p"/home/sven/cvs/oneclicktest/lcars/web/lsp.x86f".
;;; Loading #p"/home/sven/cvs/oneclicktest/lcars/web/web.x86f".
;;; Loading #p"/home/sven/cvs/oneclicktest/lcars/db/pg.x86f".
;;; Loading #p"/home/sven/cvs/oneclicktest/lcars/db/db.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/rijbewijs/package.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/rijbewijs/web-actions.x86f".
;;; Loading
#p"/home/sven/cvs/oneclicktest/lcars/rijbewijs/db-access.x86f".
;;; Loading #p"/home/sven/cvs/oneclicktest/lcars/rijbewijs/lcars.x86f".
CMU Common Lisp 18d, running on mother.intern.beta9.be
Send questions to [EMAIL PROTECTED] and bug reports to
[EMAIL PROTECTED]
Loaded subsystems:
Python 1.0, target Intel x86
CLOS based on PCL version: September 16 92 PCL (f)
Gray Streams Protocol Support
* (rijbewijs:run :debug t :dbhost "radon")
Compiling LAMBDA (LSP:REQUEST LSP:ENTITY):
Compiling Top-Level Form:
Compiling LAMBDA (LSP:REQUEST LSP:ENTITY):
Compiling Top-Level Form:
10.0.0.44 - - [Fri, 07 Feb 2003 13:22:19 GMT] "GET / HTTP/1.0" 200 -1
10.0.0.44 - - [Fri, 07 Feb 2003 13:22:20 GMT] "GET /favicon.ico
HTTP/1.0" 404 -1
#<Stream for descriptor 6> is not a character input stream.
Restarts:
0: [LOOP ] :LOOP
1: [ABORT] Return to Top-Level.
Debug (type H for help)
(COMMON-LISP::ILL-IN #<Stream for descriptor 6>)
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no
longer exists:
target:code/stream.lisp.
0] backtrace
0: (COMMON-LISP::ILL-IN #<Stream for descriptor 6>)
1: (READ-CHAR #<Stream for descriptor 6> NIL #\Null #<unused-arg>)
2: (COMMON-LISP::READ-INTO-SIMPLE-STRING ""
#<Stream for descriptor 6>
0
30)
3: (READ-SEQUENCE ""
#<Stream for descriptor 6>
:START
0
...)
4: (MULTIPROCESSING::FN)
5: (MULTIPROCESSING::WITH-TIMEOUT-INTERNAL 60
#<Closure Over Function
MULTIPROCESSING::FN
{4817D4C9}>
#<Function
MULTIPROCESSING::TF
{4839ED91}>)
6: (NET.ASERVE::|(PCL::FAST-METHOD GET-REQUEST-BODY (HTTP-REQUEST))|
#<unused-arg>
#<unused-arg>
#<NET.ASERVE:HTTP-REQUEST {4817C1E5}>)
7: (NET.ASERVE::|(PCL::FAST-METHOD REQUEST-QUERY (HTTP-REQUEST))|
#<unused-arg>
#<unused-arg>
#<NET.ASERVE:HTTP-REQUEST
{4817C1E5}>
(:POST T :URI
T))
8: (NET.ASERVE:REQUEST-QUERY-VALUE "username"
#<NET.ASERVE:HTTP-REQUEST {4817C1E5}>
:POST
T
...)
9: (WEB::WEB-LOGIN #<NET.ASERVE:HTTP-REQUEST {4817C1E5}>
#<NET.ASERVE:COMPUTED-ENTITY {48014955}>)
10: (NET.ASERVE::|(PCL::FAST-METHOD PROCESS-ENTITY (HTTP-REQUEST
COMPUTED-ENTITY))|
#<unused-arg>
#<unused-arg>
#<NET.ASERVE:HTTP-REQUEST {4817C1E5}>
#<NET.ASERVE:COMPUTED-ENTITY {48014955}>)
11: (NET.ASERVE::|(PCL::FAST-METHOD HANDLE-REQUEST (HTTP-REQUEST))|
#<unused-arg>
#<unused-arg>
#<NET.ASERVE:HTTP-REQUEST {4817C1E5}>)
12: (NET.ASERVE::PROCESS-CONNECTION #<Stream for descriptor 6>)
13: (NET.ASERVE::START-SIMPLE-SERVER)
14: (NET.ASERVE:START :PORT 2001 :LISTENERS 0 ...)
15: (RIJBEWIJS:START-RIJBEWIJS :DEBUG T)
16: (INTERACTIVE-EVAL (RIJBEWIJS:RUN :DEBUG T :DBHOST "radon"))
17: (COMMON-LISP::%TOP-LEVEL)
18: (COMMON-LISP::RESTART-LISP)
0]
--
Sven Van Caekenberghe - mailto:[EMAIL PROTECTED]
Beta Nine - software engineering - http://www.beta9.be
.Mac - [EMAIL PROTECTED] - http://homepage.mac.com/svc
