macro for generete same writeln as in pascal

simple-macros.lisp

(defmacro writeln (&rest args)
  `(progn
     (loop for e in '(,@args)
	   do
	      (format t "~A" e))
     (format t "~%")))

(defstruct person name)

(defgeneric hello (obj)
  (:documentation "Say hello to object."))

(defmethod hello ((obj person))
  (writeln "Hello, " (person-name obj) "!"))

(defvar p1 (make-person
	    :name "Alice"))

(hello p1)
;;печатает символы вместо значений 
;;c:\tmp>sbcl --script mac.lisp
;;sbcl --script mac.lisp
;;Hello, (PERSON-NAME OBJ)