generate "Hello World" without including any literal.

hello world.lisp

(defmacro def-print-string (name)
  `(defun ,name ()
     (let ((one (count t'(t))))
       (print
	(coerce
	 (mapcar #'code-char
		 (list
		  ,@(loop :for i :across (string name)
		       :collect
		       `(+ ,@(loop :for j := (char-code i) :then (floor j #.(count t'(t t)))
				:for to-collect := 'one :then `(ash ,to-collect one)
				:until (zerop j)
				:unless (zerop (mod j #.(count t'(t t))))
				:collect to-collect)))))
	 'string)))))

(def-print-string |Hello World|)