load-test-file.lsp 132 Bytes
Newer Older
pfdietz's avatar
pfdietz committed
1 2 3 4 5 6 7 8 9
(in-package :cl-test)

(defun load-file-test-fun.1 ()
  '#.*load-pathname*)

(defun load-file-test-fun.2 ()
  '#.*load-truename*)