anchor.diff:                              "exec ros -Q -- $0 \"$@\"" "|#"
                               "(progn ;;init forms"
                               "  (ros:ensure-asdf)"
  -                            "  ;;#+quicklisp (ql:quickload '() :silent t)"
  +                            (let ((lib (getf params :|lib|)))
  +                              (format nil "  ~A#+quicklisp(ql:quickload '(~A) :silent t)"
  +                                      (if lib "" ";;")
  +                                      (or lib "")))
                               "  )"
                               ""
                               (format nil "(defpackage :ros.script.~A.~A" name date)
  
positive.code: (in-package :roswell.init.default)
  
  (defun default (name &rest params)
    (declare (ignore params))
    (setf name (namestring (make-pathname :defaults name :type nil)))
    (map () (lambda (i)
              (setf name (remove i name)))
  
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)
  