> $clisp -q -norc<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="im">
> [1]> (setf (fdefinition 'read-string) (get-macro-character #\"))<br>
> #<SYSTEM-FUNCTION SYSTEM::STRING-READER><br>
> [2]><br>
> (set-macro-character #\"<br>
>   #'(lambda (stream char)<br>
>       (let* ((buf (read-string stream char))<br>
>              (n (parse-integer buf :junk-allowed t)))<br>
>         n)))<br>
> T<br>
> [3]> (+ "3viso" 2)<br>
> 5<br></div></blockquote><div> </div><blockquote class="gmail_quote" style="margin:0pt 0pt 0pt 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
Utilizzando in maniera interattiva l'interprete Python si puņ ottenere lo<br>
stesso risultato con sys.displayhook. :P<br clear="all"></blockquote></div><br>Vorresti forse insinuare che con python e' infinitamente piu' semplice da scrivere e da capire? Cattivo! Fare simil basse insinuazioni :)<br>

<br>Carlos<br>-- <br>If you have no voice, SCREAM! If you have no legs, RUN! If you have no hope, INVENT!<br><br>