`(,@(when *load-truename* (list (make-pathname :directory (pathname-directory *load-truename*))))
,@(when *db2-lib-path* (list *db2-lib-path*))
`(,@(when *load-truename* (list (make-pathname :directory (pathname-directory *load-truename*))))
,@(when *db2-lib-path* (list *db2-lib-path*))