(mapcar '("alljis.l")
	#'(lambda (file) (exfile (string-append base-directory "/" file))))