(defmacro rgl-print-symbols (&rest symbols)
  "generate a (print (list 'symbol1 symbol1 .....) and print it
if last symbol is a stream -> (print (list ....) stream)"
  (multiple-value-bind (printlist maybe-stream)
      (loop 
	 for symbol in symbols
	 collect (list `list `',symbol `,symbol) into print-symbol-list
	   finally (return (values print-symbol-list 
				   (if (streamp `,symbol) `,symbol nil))))
    (if maybe-stream
	`(print (list ,@printlist) maybe-stream)
	`(print (list ,@printlist)))))


(defun test---rgl-print-symbols ()
  (let ((a "hallo"))
    (with-open-file (rstream "test.txt" 
			     :direction :output :if-exists :append 
			     :if-does-not-exist :create)
      (print (macroexpand-1 '(rgl::rgl-print-symbols a rstream)))
      )))

(let ((a "hallo"))
	  (with-open-file (rstream "test.txt" :direction :output :if-exists :append :if-does-not-exist :create)
	    (print (list 'a a 'rstream rstream))))

---> 
(A "hallo" RSTREAM
 #<SB-SYS:FD-STREAM for "file /home/DKI/gloecr/Sourcen/workdir/lisp/test.txt" {AD3DFA9}>) 

(defmacro rgl-print-symbols (first-arg &rest symbols)
  (let ((list-args (loop for symbol in symbols
			 collect `(',symbol ,symbol))))
    (if (listp first-arg)
        `(print (list ,@list-args) ,(car first-arg))
        `(print (list ',first-arg ,first-arg ,@list-args)))))

(rgl-print-symbols (some-stream) a b c d)
(rgl-print-symbols a b c d)

;; this is how it works till now	
(let ((a "hello") (b "hello2"))
    (rgl-print-symbols a b))

;;; ----> 
(let ((a "hello") (b "hello2"))
    (print (list 'a a 'b b)))



;;; this is what i would like to do it 
(let ((a "hello") (b "hello2"))
  (with-open-file (rstream "test.txt" :direction :output :if-exists :append :if-does-not-exist :create)
    (rgl-print-symbols a b rstream)))


;;; ---> 
(let ((a "hello") (b "hello2"))
  (with-open-file (rstream "test.txt" :direction :output :if-exists :append :if-does-not-exist :create)
    (print (list 'a a 'b b 'rstream rstream) rstream)))


;;; or even perfect ----> 
(let ((a "hello") (b "hello2"))
  (with-open-file (rstream "test.txt" :direction :output :if-exists :append :if-does-not-exist :create)
    (print (list 'a a 'b b) rstream)))