;;; -*- Mode:LISP; Package:USER; Readtable:CL; Base:10 -*-


;;; test file for ftp-access QC-FILE.


(defun this-is-a-function ()
  "it sure is a function")