anchor.diff:                                  (when (eq metabang.bind:*defclass-macro-name-for-dynamic-context* 'cl:defclass)
                                     (setf metabang.bind:*defclass-macro-name-for-dynamic-context* 'metatilities:defclass*)))")))))
   
  +#+asdf-system-connections 
   (defsystem-connection bind-and-metatilities
     :requires (metabang-bind defclass-star)
     :perform (load-op :after (op c)
  
positive.code:                (:module "website"
                          :components ((:module "source"
                                                :components ((:static-file "index.lml"))))))
    :depends-on (#+asdf-system-connections asdf-system-connections))
  
  (asdf:defsystem-connection bind-and-metatilities
    :requires (metabang-bind metatilities-base)
    :perform (load-op :after (op c)
                      (use-package (find-package '#:metabang.bind)
  
negative.code: ;; give up with a useful (?) error message
  (unless (find-system 'asdf-system-connections nil)
    (terpri)
    (format t "~&;; Warning: The bind system requires ASDF-system-connections. See 
  http://www.cliki.net/asdf-system-connections for details and download
  instructions."))
  
  (when (find-system 'asdf-system-connections nil)
    (asdf:operate 'asdf:load-op 'asdf-system-connections))
  
  (defsystem metabang-bind
    :version "0.2.1"
    :author "Gary Warren King <gwking@metabang.com>"
    :licence "MIT License"    
    :description "Bind is a macro that generalizes multiple-value-bind, let, let* and destructuring-bind."
  