AutoLISP; как сделать так, чтобы функции princ , prin1 и print печатали аргумент ПО ОДНОМУ РАЗУ

(princ "Hello, word!")

(princ temp)

!temp

(defun f (...)
  ...
  (print "Тра-та-та")
  'OK)

 (print v)

  v

Command: (defun my-print (x) (print x) (print))
MY-PRINT
Command: (my-print 123)
123

(setq *x* 111)
 
==> 111
;; Создана глобальная переменная *x*
 
(defun f (x y)
  (varlist) ;; вывести список активных переменных
  (+ x y)) 
 
==> F
 
(f 555 666)
 
+-------------------------------+---------+----------------------------------+
| Имя переменной                | Тип     | Значение                         |
+-------------------------------+---------+----------------------------------+
|Y                              |Лексич.  |666                               |
|X                              |Лексич.  |555                               |
|*                              |Глобальн.|F                                 |
|*X*                            |Глобальн.|111                               |
+-------------------------------+---------+----------------------------------+
 
==> 1221