Plaster
New
List
Login
text
apl
aspx
asterisk
brainfuck
c
c++hdr
c++src
cassandra
ceylon
clojure
clojurescript
cmake
cobol
coffeescript
common-lisp
crystal
csharp
css
cypher-query
cython
d
dart
diff
django
dockerfile
dylan
ebnf
ecl
ecmascript
edn
eiffel
ejs
elm
erb
erlang
ez80
factor
fcl
feature
forth
fortran
fragment
gfm
go
gql
groovy
gss
haml
handlebars-template
haskell
haxe
hive
html
http
httpd-php
httpd-php-open
hxml
ini
java
javascript
json
jsp
jsx
julia
kotlin
latex
less
literate-haskell
lua
mariadb
markdown
mbox
mirc
mscgen
msgenny
mssql
mumps
mysql
n-triples
nesc
nginx-conf
nsis
objectivec
octave
oz
pascal
perl
pgp
pgp-keys
pgp-signature
pgsql
php
pig
plsql
properties
protobuf
puppet
python
q
rpm-changes
rpm-spec
rsrc
ruby
rustsrc
sas
sass
scala
scheme
scss
sieve
slim
smarty
solr
soy
sparql-query
spreadsheet
sql
squirrel
stex
styl
swift
systemverilog
tcl
textile
tiddlywiki
tiki
tlv
tornado
ttcn-asn
ttcn-cfg
turtle
twig
typescript
typescript-jsx
vb
vbscript
velocity
verilog
vertex
vhdl
vue
webidl
xml
xml-dtd
xquery
xu
yaml
z80
default
Visibility:
public
unlisted
private
(defmacro stfu (&body body) (let ((no (gensym))) `(let (,no) (unwind-protect (progn (setf ,no (make-broadcast-stream)) (let ((*standard-output* ,no) (*error-output* ,no) ;; (*debug-io* ,no) (*trace-output* ,no) (*load-print* nil) (*load-verbose* nil) ;;(asdf::*verbose-out* nil) ) ,@body)) (when ,no (close ,no)))))) (defun load-lisp-command-from (command-name package &key silent) "Try to load a command in the Lisp path. Return the command on success or NIL on failure. The Lisp path is most likely the ASDF path." (let (succeeded) (handler-case (let ((asdf:*compile-file-warnings-behaviour* :ignore) (asdf:*compile-file-failure-behaviour* :ignore)) ;; :error :warn :ignore (if silent (stfu (asdf:oos 'asdf:load-op package :verbose nil)) (asdf:oos 'asdf:load-op package :verbose nil)) ;; Presumable we succeeded if we didn't get an error. (setf succeeded t)) (asdf:system-definition-error (c) (declare (ignore c))) (asdf:operation-error (c) (declare (ignore c)))) (if succeeded (progn (get-command command-name)) nil)))