tests/data/compile-file-pos.lisp

   1 ;; This file is encoded in UTF8 xxx.
   2 ;;
   3 (defun cfp-foolz1 ()
   4   (values "Here is a string: םולש"
   5           (format nil "Line ~D" (compile-file-line))
   6           (format nil "Hey hey! ~D" (compile-file-position))))