#!/usr/bin/run-lisp-trans ; ; settrans -ac foo ./link.lisp link-target ; (unless (= (length ext:*args*) 1) (error "You must pass the link target as an argument.")) (asdf:operate 'asdf:load-op 'link-translator)
