ERN::NAME
             *DEFAULT-PATHNAME-DEFAULTS*)))
    (DECLARE
     (IGNORABLE CL-EMB-INTERN::TOPENV CL-EMB-INTERN::TEMPLATE-PATH-DEFAULT))
    (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*)
      (PROGN
       (WRITE-STRING &quot;
&lt;ul&gt;
  &quot;)
       (DOLIST
           (CL-EMB-INTERN::ENV
            (CL-EMB::AUTOFUNCALL (CL-EMB::GETF-EMB &quot;users&quot;)))
         (WRITE-STRING &quot;
    &lt;li&gt;&quot;)
         (FORMAT T &quot;~A&quot;
                 (LET ((CL-EMB:*ESCAPE-TYPE* CL-EMB:*ES