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

[Martin Rubey]

Martin Rubey <address@hidden> writes:

A typo:

> (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 "HTTP/1.1 ~S~%" (if fn 200 403))
> ;    (format s "Content-type: text/html~%~%")
  ;    (format s "Content-type: text/html~%")
>     (format s "Location: ~S~%" 
>             
> "file:/users/rubey/martin/Axiom/hyperdoc-replacement/stretch.html")
> ;    (format s "<a href='~S'>click here</a>~%" 
> ;           
> "file:/home/martin/martin/Axiom/hyperdoc-replacement/stretch.html")
>     (close s)))
> 
> but that only keeps displaying in the Axiom shell window
> 
> Got /
> 
> Got /
> 
> Got /

Is the problem that "Location:" expects a http: specification?  I'm quite
clueless...

Martin