|
From: | Martin Rubey |
Subject: | Re: [Axiom-developer] Re: Axiom HyperDoc Replacement |
Date: | 21 Apr 2007 17:45:26 +0200 |
User-agent: | Gnus/5.09 (Gnus v5.9.0) Emacs/21.4 |
There appear to be at least two different errors in the code below. (defun server (s) (let* ((get (read s nil 'eof)) (fn (and (eq get 'get) (read s nil 'eof)))) (format t "Got ~S~%~%" fn) (format s "HTTP/1.1 ~S~%" (if fn 303 403)) (format s "Location: file:/users/rubey/martin/Axiom/hyperdoc-replacement/stretch.html~%") (close s))) gives An error occurred while loading http://localhost:8080/x: Access denied to file:///users/rubey/martin/Axiom/hyperdoc-replacement/stretch.html. (defun server (s) (let* ((get (read s nil 'eof)) (fn (and (eq get 'get) (read s nil 'eof)))) (format t "Got ~S~%~%" fn) (format s "HTTP/1.1 ~S~%" (if fn 303 403)) (format s "Location: http://mat.univie.ac.at") (close s))) seems to work (defun server (s) (let* ((get (read s nil 'eof)) (fn (and (eq get 'get) (read s nil 'eof)))) (format t "Got ~S~%~%" fn) (format s "HTTP/1.1 ~S~%" (if fn 303 403)) (format s "Location: ~S~% "http://mat.univie.ac.at") (close s))) gives "Got /" forever. Please Help! Martin
[Prev in Thread] | Current Thread | [Next in Thread] |