anchor.diff:                        (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))
  
positive.code:                          ,(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)
                         (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*))
                                                           :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)
negative.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")))
          (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*)))
  