Re: Lisp Reader & Tools

Yes, the code is actually within a Lisp “Here-doc”

(interpret #>.end
 …..
.end)

which inhales all the text between #>.end and .end. It is arbitrary token syntax within the body of the inhaled text (il.e. Not Lisp).



> On May 28, 2026, at 10:07, Martin Simmons <[email protected]> wrote:
> 
> The first #| inside the double-quotes shouldn't need a closing |#, so I'm
> puzzled by that.
> 
> Is this text inside a file that also contains Lisp code?  If not, then the
> Editor shouldn't be editing it in Lisp mode.
> 
> This looks somewhat like Forth, but Google doesn't find anything useful about
> the case esac words so I'm not sure.
> 
> -- 
> Martin Simmons
> LispWorks Ltd
> http://www.lispworks.com/
> 
> 
> 
>>>>>> On Thu, 28 May 2026 08:27:02 -0700, David McClain (as dbm at refined-audiometrics dot com) said:
>> 
>> With regard to the inability of mere regular expressions guiding the text editor, here is a snippet of code that needs those accessory comments mentioned previously. Note the funny comment on the first line “— |# |#”. That was needed so that the Editor wouldn’t get confused by all the vertical nbars in the code on the left...
>> 
>> (	   
>> : skipper     
>>     case { "#|"      string= } { [compile] #|  }  -- |# |#
>>          { ";;"      string= } { [compile] ;;  }
>>          { ";;;"     string= } { [compile] ;;; }
>>          { "--"      string= } { [compile] --  }
>>          { "("       string= } { [compile] (   }
>>          { "#+IF"    string= } { skip-to-fi    }
>>          { "#-IF"    string= } { skip-to-fi    }
>>          { "\""      string= } { skip-quote    }
>>          { ".\""     string= } { skip-quote    }
>>          { "error\"" string= } { skip-quote    }
>>      esac ;
>> 
> 
> _______________________________________________
> Lisp Hug - the mailing list for LispWorks users
> [email protected]
> http://www.lispworks.com/support/lisp-hug.html


_______________________________________________
Lisp Hug - the mailing list for LispWorks users
[email protected]
http://www.lispworks.com/support/lisp-hug.html