axiom-developer
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Axiom-developer] Re: Axiom HyperDoc Replacement


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





reply via email to

[Prev in Thread] Current Thread [Next in Thread]