(mapcar '("alljoint.l"
	  "jis3-0.l"
	  "jis3-1.l"
	  "jis3-2.l"
	  "jis3-3.l"
	  "joint-patch.l"
	  "joint-patch-jis3.l")
	#'(lambda (file) (exfile (string-append base-directory "/" file))))