(defun rgl-sprint (printlist)
  "work-around to use streams as last argument --- UGLY but working"
  (let* ((restlist (reverse (rest (reverse printlist))))
	 (maybe-stream (first (last (first (last printlist))))));;to-be-done-better
    (if (streamp maybe-stream)
	(print restlist maybe-stream)
	(print printlist))))




(defmacro rgl-print-symbols (&rest symbols)
  "generate a (print (list 'symbol1 symbol1 .....) using rgl-zprint as a work-around"
  (let ((printlist
	 (loop 
	    for symbol in symbols
	    collect (list `list `',symbol `,symbol ))))
    `(rgl-sprint (list ,@printlist))))




(defun test---rgl-print-symbols ()
  "now using streams as supposed to, ugly but working"
  (let ((a "hello") (b "hello2"))
    (with-open-file (file "test.txt"
			  :direction :output
			  :if-exists :append
			  :if-does-not-exist :create)
      (rgl-print-symbols a b file)
      (print (macroexpand-1 '(rgl-print-symbols a b file))))))