Skip to content

Instantly share code, notes, and snippets.

@darwin

darwin/gist:338e5eec68cf1ed0e7c516a45830fd7c Secret

Created January 27, 2018 21:23
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save darwin/338e5eec68cf1ed0e7c516a45830fd7c to your computer and use it in GitHub Desktop.
Save darwin/338e5eec68cf1ed0e7c516a45830fd7c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
boot dev
Boot.main Boot.java: 257
...
boot.App.main App.java: 491
boot.App.runBoot App.java: 399
org.projectodd.shimdandy.impl.ClojureRuntimeShimImpl.invoke ClojureRuntimeShimImpl.java: 150
org.projectodd.shimdandy.impl.ClojureRuntimeShimImpl.invoke ClojureRuntimeShimImpl.java: 159
...
boot.main/-main main.clj: 216
boot.main/-main/fn main.clj: 216
clojure.core/load-string core.clj: 4055
clojure.core/load-reader core.clj: 4053
...
clojure.spec.alpha/macroexpand-check alpha.clj: 689
clojure.core/ex-info core.clj: 4739
clojure.lang.ExceptionInfo: Call to clojure.core/defn- did not conform to spec:
In: [1 1 :or :keep-project 0] val: :keep-project fails spec: :clojure.core.specs.alpha/or at: [:args :bs :arity-1 :args :varargs :form :map :or 0] predicate: simple-symbol?
In: [1 1] val: {:keys [keep-project], :or {:keep-project true}} fails spec: :clojure.core.specs.alpha/local-name at: [:args :bs :arity-1 :args :varargs :form :sym] predicate: simple-symbol?
In: [1 1] val: {:keys [keep-project], :or {:keep-project true}} fails spec: :clojure.core.specs.alpha/seq-binding-form at: [:args :bs :arity-1 :args :varargs :form :seq] predicate: vector?
In: [1 0] val: & fails spec: :clojure.core.specs.alpha/arg-list at: [:args :bs :arity-n :bodies :args] predicate: vector?
clojure.spec.alpha/args: (generate-lein-project-file!
[& {:keys [keep-project], :or {:keep-project true}}]
(require 'clojure.java.io)
(let
[pfile
((resolve 'clojure.java.io/file) "project.clj")
{:keys [project version]}
(:task-options (meta #'boot.task.built-in/pom))
prop
(fn*
[p1__256# p2__255#]
(when-let [x (get-env p2__255#)] [p1__256# x]))
head
(list*
'defproject
(or project 'boot-project)
(or version "0.0.0-SNAPSHOT")
(concat
(prop :url :url)
(prop :license :license)
(prop :description :description)
[:dependencies
(get-env :dependencies)
:source-paths
(vec
(concat (get-env :source-paths) (get-env :resource-paths)))]))
proj
(pp-str head)]
(if-not keep-project (.deleteOnExit pfile))
(spit pfile proj)))
clojure.spec.alpha/problems: ({:path [:args :bs :arity-1 :args :varargs :form :sym],
:pred clojure.core/simple-symbol?,
:val {:keys [keep-project], :or {:keep-project true}},
:via
[:clojure.core.specs.alpha/defn-args
:clojure.core.specs.alpha/args+body
:clojure.core.specs.alpha/arg-list
:clojure.core.specs.alpha/arg-list
:clojure.core.specs.alpha/binding-form
:clojure.core.specs.alpha/binding-form
:clojure.core.specs.alpha/local-name],
:in [1 1]}
{:path [:args :bs :arity-1 :args :varargs :form :seq],
:pred clojure.core/vector?,
:val {:keys [keep-project], :or {:keep-project true}},
:via
[:clojure.core.specs.alpha/defn-args
:clojure.core.specs.alpha/args+body
:clojure.core.specs.alpha/arg-list
:clojure.core.specs.alpha/arg-list
:clojure.core.specs.alpha/binding-form
:clojure.core.specs.alpha/binding-form
:clojure.core.specs.alpha/seq-binding-form],
:in [1 1]}
{:path [:args :bs :arity-1 :args :varargs :form :map :or 0],
:pred clojure.core/simple-symbol?,
:val :keep-project,
:via
[:clojure.core.specs.alpha/defn-args
:clojure.core.specs.alpha/args+body
:clojure.core.specs.alpha/arg-list
:clojure.core.specs.alpha/arg-list
:clojure.core.specs.alpha/binding-form
:clojure.core.specs.alpha/binding-form
:clojure.core.specs.alpha/map-binding-form
:clojure.core.specs.alpha/map-special-binding
:clojure.core.specs.alpha/or],
:in [1 1 :or :keep-project 0]}
{:path [:args :bs :arity-n :bodies :args],
:pred clojure.core/vector?,
:val &,
:via
[:clojure.core.specs.alpha/defn-args
:clojure.core.specs.alpha/args+body
:clojure.core.specs.alpha/args+body
:clojure.core.specs.alpha/args+body
:clojure.core.specs.alpha/arg-list
:clojure.core.specs.alpha/arg-list],
:in [1 0]})
clojure.spec.alpha/spec: #object[clojure.spec.alpha$regex_spec_impl$reify__2436 0x4dbb42b7 "clojure.spec.alpha$regex_spec_impl$reify__2436@4dbb42b7"]
clojure.spec.alpha/value: (generate-lein-project-file!
[& {:keys [keep-project], :or {:keep-project true}}]
(require 'clojure.java.io)
(let
[pfile
((resolve 'clojure.java.io/file) "project.clj")
{:keys [project version]}
(:task-options (meta #'boot.task.built-in/pom))
prop
(fn*
[p1__256# p2__255#]
(when-let [x (get-env p2__255#)] [p1__256# x]))
head
(list*
'defproject
(or project 'boot-project)
(or version "0.0.0-SNAPSHOT")
(concat
(prop :url :url)
(prop :license :license)
(prop :description :description)
[:dependencies
(get-env :dependencies)
:source-paths
(vec
(concat (get-env :source-paths) (get-env :resource-paths)))]))
proj
(pp-str head)]
(if-not keep-project (.deleteOnExit pfile))
(spit pfile proj)))
clojure.lang.ExceptionInfo: Call to clojure.core/defn- did not conform to spec:
In: [1 1 :or :keep-project 0] val: :keep-project fails spec: :clojure.core.specs.alpha/or at: [:args :bs :arity-1 :args :varargs :form :map :or 0] predicate: simple-symbol?
In: [1 1] val: {:keys [keep-project], :or {:keep-project true}} fails spec: :clojure.core.specs.alpha/local-name at: [:args :bs :arity-1 :args :varargs :form :sym] predicate: simple-symbol?
In: [1 1] val: {:keys [keep-project], :or {:keep-project true}} fails spec: :clojure.core.specs.alpha/seq-binding-form at: [:args :bs :arity-1 :args :varargs :form :seq] predicate: vector?
In: [1 0] val: & fails spec: :clojure.core.specs.alpha/arg-list at: [:args :bs :arity-n :bodies :args] predicate: vector?
line: 39
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment