Printing list to buffer

[Heime]

I am using the function to print a lisp object to a buffer, but the printing is 
not happening.

I set a list

(defvar names '("Paul" "Peter"))

(viewer names)

--------------------

(defun viewer (bufrn obj)

"Prints object obj to a buffer."
(with-current-buffer (get-buffer-create bufrn)

(org-mode) (princ obj))

(pop-to-buffer bufrn))