anchor.diff:  (in-package :roswell.init.default)
   
   (defun default (name &rest params)
  -  (declare (ignore params))
  +  (setf params (loop for (i j) on params by #'cddr
  +                     collect (intern i :keyword)
  +                     collect j))
     (setf name (namestring (make-pathname :defaults name :type nil)))
     (map () (lambda (i)
               (setf name (remove i name)))
  
positive.code:                             "exec ros -Q -- $0 \"$@\"" "|#"
                              "(progn ;;init forms"
                              "  (ros:ensure-asdf)"
                              "  ;;#+quicklisp (ql:quickload '() :silent t)"
                              "  )"
                              ""
                              (format nil "(defpackage :ros.script.~A.~A" name date)
  
negative.code:                             "  (declare (ignorable argv)))"
                              ";;; vim: set ft=lisp lisp:")
                      (format t "~&Successfully generated: ~A~%" path)
                      (format t "params ~S~%" params)
                      t))
                #+sbcl (sb-posix:chmod path #o700))
            (format *error-output* "~&File already exists: ~A~%" path)
  