(eval-when (:compile-toplevel :load-toplevel :execute)
  (format t "load-pathname: ~A~%" *load-pathname*)
  (format t "load-truename: ~A~%" *load-truename*)
  (format t "compile-file-pathname: ~A~%" *compile-file-pathname*)
  (format t "compile-file-truename: ~A~%" *compile-file-truename*))