Dyalog APL 20.0 throws error AC0040: could not fix function asynchronously when 2 ⎕FIX fails on invalid source inside a Jarvis HTTP request handler, and the code is in a ]link'd namespace.
The error is:
:Trap 0 in the calling function
| use v5.014; | |
| use warnings; | |
| use List::MoreUtils qw/zip/; | |
| use Term::ANSIColor qw/color/; | |
| # Basic log colourisation for Clojure apps using the default Timbre config | |
| # N.B. '\ ' is an escaped space, as /x modifier ignores whitespace in pattern | |
| my $log_line_re = qr/^(\d{4}-[A-z]{3}-\d\d)\ # date |
Follow up from issues raised here: https://groups.google.com/d/msg/datomic/blgLZkYF5xA/LFjGCASHZNUJ
N.B. These experiments were carried out on a restored backup of the DB (so therefore backing up and restoring isn't a viable solution).
Keywords appear to get added to DB values like so:
user=> (.addKeyword db :this-is-a-test 999999999)
datomic.db.Db@d37f7c59
user=> (d/ident *1 999999999)
| " Initial workings for creating a new namespace from Vim: | |
| " * Transform - to _ (I *still* always forget and have to do a mv) | |
| " * Make directories if needed | |
| " TODO auto-completion would be ah-maaazing! | |
| " TODO only copes with typical src / src/clj setups | |
| " TODO handle cljs | |
| " TODO currently assumes use of Rooter to go to git root directory | |
| " Requires classpath.vim | |
| if !exists('*EditNamespace') |
| (defn arities | |
| "Returns the possible arities of a function implementing ifn. For want of | |
| anything better to return for a variadic 'rest function', returns | |
| nil." | |
| [ifn] | |
| {:pre [(ifn? ifn)]} | |
| (let [invokes (filter #(= (.getName %) "invoke") (.getDeclaredMethods (class ifn))) | |
| arity #(count (.getParameterTypes %))] | |
| (if (instance? clojure.lang.RestFn ifn) | |
| '(nil) |
| // # nmap <F3> :exec 'r!'.substitute(getline('.'),'^//','','')<CR> | |
| // echo test | |
| // curl http://google.com |
| #!/usr/bin/env perl | |
| use v5.012; | |
| use warnings FATAL => 'all'; | |
| use utf8; | |
| use autodie ':all'; | |
| use Mojo::UserAgent; | |
| my $circle_token = $ENV{'CIRCLE_TOKEN'} |
| use strict; | |
| use warnings; | |
| use Test::More; | |
| use FindBin::libs; | |
| use CompareXML qw/compare_xml/; | |
| ok(compare_xml( | |
| '<foo><bar baz="456">123</bar></foo>', |
| alias ls="ls -G -F" | |
| source ~/perl5/perlbrew/etc/bashrc | |
| source ~/perl5/perlbrew/etc/perlbrew-completion.bash | |
| export HISTCONTROL="ignoreboth" | |
| export HISTFILESIZE=25000 | |
| export HISTSIZE=25000 | |
| shopt -s histappend | |
| shopt -s histverify |
| # Allow slightly longer lines | |
| --maximum-line-length 100 | |
| # 4 space tabs used everywhere | |
| --entab-leading-whitespace 4 | |
| --tabs | |
| --continuation-indentation 4 | |
| # Don't outdent labels | |
| --no-outdent-labels |