problem with my lisp function

[djdebaviere]

I use this function to connect at a URL and get the html code of the page referenced by the URL. my problem is that the html code that I receive is not all of the code of the page

(defun connect-to-url (url filename)
(ext:with-http-input (stream url)

(with-open-file (stream2 filename :direction :output
:if-exists :overwrite
:if-does-not-exist :create )

(loop for line = (read-line stream nil nil)
while line
do (format stream2 line)))))

[nuntius]

Here are a couple posting suggestions; unfortunately I don't have a system handy to test your problem.

First, specify which non-core packages you are using (e.g. where ext:with-http-input comes from).

Second, use the "

Code: Select all

" blocks, good indentation, and preview so we don't have to specially parse .

[djdebaviere]

Code: Select all

 
(defun connect-to-url (url filename)
    (ext:with-http-input (stream url)
	
        (with-open-file (stream2  filename :direction :output
                                 :if-exists :overwrite
                                 :if-does-not-exist :create )

        	(loop for line = (read-line stream nil nil)
   	         while line
           	 do (format stream2 line)))))

[djdebaviere]

Code: Select all

(defun connect-to-url (url filename)
    (ext:with-http-input (stream url)
	
        (with-open-file (stream2  filename :direction :output
                                 :if-exists :overwrite
                                 :if-does-not-exist :create )

        	(loop for line = (read-line stream nil nil)
   	         while line
           	 do (format stream2 line)))))

to run it, write (connect-to-url("URL" " path of the file")

I have run it on the Clisp and my problem is that it not return all the contain of the web page

[nuntius]

Other than stripping out line breaks, it works for me.

Your code is very similar to
http://rosettacode.org/wiki/HTTP_Request#Common_Lisp

Maybe there is a character-set issue on the page you are trying to read?