Problems with read and delivery level 5 on LWW 4.3.7

This code (read.lisp):

(defun test ()
  (with-open-file (i "/tmp/test-in.txt")
    (let ((data (read i nil)))
      (let ((foo (cdr (assoc 'foo data))))
        (with-open-file (o "/tmp/test-out.txt" :direction :output :if-exists
:supersede)
          (format o "data: ~A~%foo: ~A~%" data foo))))))

with test-in.txt:

((foo . "Hello"))

produces test-out.txt:

data: ((FOO . Hello))
foo: Hello

But when I deliver it like this:

(load-all-patches)
(compile-file-if-needed (current-pathname "c:/tmp/read.lisp") :load t)
(deliver 'test "read" 5 :keep-lisp-reader t)
(quit)

and start the read.exe, the test-out.txt looks like this:

data: ((FOO . Hello))
foo: NIL

How can I fix it, using delivery level 5?

-- 
Frank Buß, fb@frank-buss.de
http://www.frank-buss.de, http://www.it4-systems.de

Re: Problems with read and delivery level 5 on LWW 4.3.7

Frank Buss wrote:

>
>But when I deliver it like this:
>
>(load-all-patches)
>(compile-file-if-needed (current-pathname "c:/tmp/read.lisp") :load t)
>(deliver 'test "read" 5 :keep-lisp-reader t)
>(quit)
>
>  
>
You probably need to do

(deliver 'test "read" 5 :keep-lisp-reader t :symbol-names-action nil)

See
http://www.lispworks.com/documentation/lw43/DV/html/deluser-162.htm#pgfId-107436

Wade

>and start the read.exe, the test-out.txt looks like this:
>
>data: ((FOO . Hello))
>foo: NIL
>
>How can I fix it, using delivery level 5?
>
>  
>

RE: Problems with read and delivery level 5 on LWW 4.3.7

yes, this works, thanks! 

> -----Original Message-----
> From: Wade Humeniuk [mailto:whumeniu@telus.net] 
> Sent: Sunday, May 22, 2005 3:07 PM
> To: Frank Buss
> Cc: lisp-hug@lispworks.com
> Subject: Re: Problems with read and delivery level 5 on LWW 4.3.7
> 
> Frank Buss wrote:
> 
> >
> >But when I deliver it like this:
> >
> >(load-all-patches)
> >(compile-file-if-needed (current-pathname 
> "c:/tmp/read.lisp") :load t) 
> >(deliver 'test "read" 5 :keep-lisp-reader t)
> >(quit)
> >
> >  
> >
> You probably need to do
> 
> (deliver 'test "read" 5 :keep-lisp-reader t :symbol-names-action nil)
> 
> See
> http://www.lispworks.com/documentation/lw43/DV/html/deluser-16
> 2.htm#pgfId-107436
> 
> Wade
> 
> >and start the read.exe, the test-out.txt looks like this:
> >
> >data: ((FOO . Hello))
> >foo: NIL
> >
> >How can I fix it, using delivery level 5?
> >
> >  
> >
> 
>