<div dir="ltr">(let ((opts (stanza-opts stanza)) ;; function returns &#39;(-safe-string)<br>      (opts2 &#39;(-safe-string)))<br>    (format #t &quot;OPTS: ~A :: ~A&quot; (type-of opts) opts) (newline)<br>    (format #t &quot;OPTS2: ~A :: ~A&quot; (type-of opts2) opts2) (newline)<br>    (for-each (lambda (opt)<br>                (format outp &quot;    \&quot;~A\&quot;,\n&quot; opt) ;; outp =&gt; file<br>                (format #t &quot;    \&quot;~A\&quot;,\n&quot; opt)<br>                )<br>              opts)<br>    ...)<br><div><br></div><div>Stdout:</div><div><br></div><div>OPTS: pair? :: (-safe-string)<br>OPTS2: pair? :: (-safe-string)<br>    &quot;-safe-string&quot;,<br></div><div><br></div><div>File output for for-each over opts2 is &quot;-safe-string&quot;, as expected.  But there is no file output for for-each over opts.</div><div><br></div><div>No idea what&#39;s going on. Is this a bug, or am I doing something wrong?</div><div><br></div><div>Thanks</div><div><br></div><div>Gregg</div></div>