Re: another simple defmacro question

Not at all connected with your original problem, but you can
exploit the full power of LOOP to greatly simplify this part
of the code:
 

  (let ((stringlist)
           (tmpstr))
    (with-open-file (infile fname :direction :input)
      (loop
        (setq tmpstr (read-line infile nil nil))
        (unless tmpstr
          (return))
        (push tmpstr stringlist)
         ))
    (setq stringlist (nreverse stringlist))
    stringlist
    ))

 
It can be transformed into:
 
   (with-open-file (infile fname :direction :input)
      (loop for tmpstr = (read-line infile nil nil)
            while tmpstr
            collect tmpstr))