anchor.diff:                           ,(second sb-ext:*posix-argv*))                   
                      (let ((*standard-output* (make-broadcast-stream))
                            (sys ,(third sb-ext:*posix-argv*)))
  -                      (handler-case (asdf:operate 'asdf:load-op sys :verbose nil)
  +                     (handler-case (asdf:operate 'asdf:load-op sys :verbose nil)
                          (asdf:missing-component (c)
                            (error "Couldn't find asdf system (filename ~a.asd and system name ~a) or some dependency.  Original condition was ~a."
  -                                 sys sys c))))
  -                   (load (merge-pathnames (make-pathname :name ,(format nil "~a-init.lisp" (third sb-ext:*posix-argv*))
  +                                sys sys c))))
  +                   (load (merge-pathnames (make-pathname :name ,(format nil "~a-init.lisp" (pathname-name output-filename))
                                                            :directory '(:relative "roslisp" ,(second sb-ext:*posix-argv*)))
                                             (funcall (symbol-function (intern "ROS-HOME" :ros-load))))
                            :if-does-not-exist nil)
                      (funcall (symbol-function (read-from-string ,(fourth sb-ext:*posix-argv*))))
  -                   (sb-ext:quit)))))))
  -(sb-ext:quit)+                   (sb-ext:quit))))))
  +  (sb-ext:quit))
  
positive.code: (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"))))
      (handler-case
          (let ((ros-load:*current-ros-package* (second sb-ext:*posix-argv*)))
            (asdf:operate 'asdf:compile-op (third sb-ext:*posix-argv*)))
  
negative.code:                       (call-next-method)))))
          (pprint '(push :roslisp-standalone-executable *features*))
          (pprint '(declaim (sb-ext:muffle-conditions sb-ext:compiler-note)))
          (pprint `(push ,roslisp-path asdf:*central-registry*))
          (pprint '(defun roslisp-debugger-hook (condition me)
                    (declare (ignore me))
  