anchor.diff:  (let ((p (sb-ext:posix-getenv "ROS_ROOT")))
     (unless p (error "ROS_ROOT not set"))
     (let ((roslisp-path (merge-pathnames (make-pathname :directory '(:relative "asdf"))
  -                                       (ros-load:ros-package-path "roslisp"))))
  +                                       (ros-load:ros-package-path "roslisp")))
  +        (output-filename (pathname (fifth sb-ext:*posix-argv*))))
       (handler-case
           (let ((ros-load:*current-ros-package* (second sb-ext:*posix-argv*)))
             (asdf:operate 'asdf:compile-op (third sb-ext:*posix-argv*)))
  
positive.code:                       (call-next-method)))))
          (pprint '(push :roslisp-standalone-executable *features*))
          (pprint '(declaim (sb-ext:muffle-conditions sb-ext:compiler-note)))
          (pprint '(load (format nil "~a/.sbclrc-roslisp" (sb-ext:posix-getenv "HOME")) :if-does-not-exist nil))
          (pprint `(push ,roslisp-path asdf:*central-registry*))
          (pprint '(defun roslisp-debugger-hook (condition me)
                    (declare (ignore me))
  
negative.code:         (format *error-output* "Compilation failed due to condition: ~a~&" e)
          (sb-ext:quit :unix-status 1)))
  
      (with-open-file (strm output-filename :if-exists :supersede :direction :output)
        (let ((*standard-output* strm))
          (pprint '(require :asdf))
          (pprint '(defmethod asdf:perform :around ((o asdf:load-op)
  