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
;the macro (defmacro send-with-json-contents ((name uri) normal-func-args) (let ((x (gensym)) (y (gensym))) `(defun ,name ,normal-func-args (let ((,x (defun-args-to-strings ,normal-func-args)) (,y (extract-passed-var-no-nested ,normal-func-args '&keys))) (cl-json:decode-json-from-source (send ,uri (cl-json:encode-json (list-to-alist (join-two-lists ,x ,y))))))))) ;macroexpansions CLDAPI> (macroexpand-1 '(send-with-json-contents (modify-2 (comp-str "/channels/" channel-id)) (channel-id &keys name position topic nsfw rate-limit-per-user bitrate user-limit permission-overwrites parent-id))) (DEFUN MODIFY-2 (CHANNEL-ID &KEYS NAME POSITION TOPIC NSFW RATE-LIMIT-PER-USER BITRATE USER-LIMIT PERMISSION-OVERWRITES PARENT-ID) (LET ((#:G777 (DEFUN-ARGS-TO-STRINGS (CHANNEL-ID &KEYS NAME POSITION TOPIC NSFW RATE-LIMIT-PER-USER BITRATE USER-LIMIT PERMISSION-OVERWRITES PARENT-ID))) (#:G778 (EXTRACT-PASSED-VAR-NO-NESTED (CHANNEL-ID &KEYS NAME POSITION TOPIC NSFW RATE-LIMIT-PER-USER BITRATE USER-LIMIT PERMISSION-OVERWRITES PARENT-ID) '&KEYS))) (JSON:DECODE-JSON-FROM-SOURCE (SEND (COMP-STR "/channels/" CHANNEL-ID) (JSON:ENCODE-JSON (LIST-TO-ALIST (JOIN-TWO-LISTS #:G777 #:G778))))))) ;trying to actually use it (send-with-json-contents (modify-2 (comp-str "/channels/" channel-id)) (channel-id &keys name position topic nsfw rate-limit-per-user bitrate user-limit permission-overwrites parent-id)) ;error ; file: /tmp/slimebsioJz ; in: ; SEND-WITH-JSON-CONTENTS (MODIFY-2 (COMP-STR "/channels/" CHANNEL-ID)) ; (CL-DISCORD-API::SEND-WITH-JSON-CONTENTS ; (CL-DISCORD-API::MODIFY-2 ; (CL-DISCORD-API::COMP-STR "/channels/" CL-DISCORD-API::CHANNEL-ID)) ; (CL-DISCORD-API::CHANNEL-ID CL-DISCORD-API::&KEYS CL-DISCORD-API::NAME ; POSITION CL-DISCORD-API::TOPIC CL-DISCORD-API::NSFW ; CL-DISCORD-API::RATE-LIMIT-PER-USER CL-DISCORD-API::BITRATE ; CL-DISCORD-API::USER-LIMIT CL-DISCORD-API::PERMISSION-OVERWRITES ; CL-DISCORD-API::PARENT-ID)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-DISCORD-API::MODIFY-2 ; (CL-DISCORD-API::CHANNEL-ID CL-DISCORD-API::&KEYS CL-DISCORD-API::NAME ; POSITION CL-DISCORD-API::TOPIC CL-DISCORD-API::NSFW ; CL-DISCORD-API::RATE-LIMIT-PER-USER CL-DISCORD-API::BITRATE ; CL-DISCORD-API::USER-LIMIT CL-DISCORD-API::PERMISSION-OVERWRITES ; CL-DISCORD-API::PARENT-ID) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-DISCORD-API::MODIFY-2 ; (LET ((#:G0 #) (#:G1 #)) ; (JSON:DECODE-JSON-FROM-SOURCE (CL-DISCORD-API::SEND # #))))) ; ; caught STYLE-WARNING: ; suspicious variable &KEYS in lambda list: (CHANNEL-ID &KEYS NAME POSITION TOPIC ; NSFW RATE-LIMIT-PER-USER BITRATE ; USER-LIMIT PERMISSION-OVERWRITES ; PARENT-ID). ; file: /tmp/slimebsioJz ; in: ; SEND-WITH-JSON-CONTENTS (MODIFY-2 (COMP-STR "/channels/" CHANNEL-ID)) ; (CL-DISCORD-API::CHANNEL-ID CL-DISCORD-API::&KEYS CL-DISCORD-API::NAME ; POSITION CL-DISCORD-API::TOPIC CL-DISCORD-API::NSFW ; CL-DISCORD-API::RATE-LIMIT-PER-USER CL-DISCORD-API::BITRATE ; CL-DISCORD-API::USER-LIMIT CL-DISCORD-API::PERMISSION-OVERWRITES ; CL-DISCORD-API::PARENT-ID) ; ; caught STYLE-WARNING: ; undefined function: CHANNEL-ID ; ; compilation unit finished ; Undefined function: ; CHANNEL-ID ; caught 2 STYLE-WARNING conditions ;calling the function CLDAPI> (modify-2) ; Debugger entered on #<SB-INT:SIMPLE-PROGRAM-ERROR "invalid number of arguments: ~S" {1005847B23}> ;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;; ; file: /tmp/slimezTbmVo ; in: ; SEND-WITH-JSON-CONTENTS (MODIFY-2 (COMP-STR "/channels/" CHANNEL-ID)) ; (CL-DISCORD-API::SEND-WITH-JSON-CONTENTS ; (CL-DISCORD-API::MODIFY-2 ; (CL-DISCORD-API::COMP-STR "/channels/" CL-DISCORD-API::CHANNEL-ID)) ; (CL-DISCORD-API::CHANNEL-ID CL-DISCORD-API::&KEYS CL-DISCORD-API::NAME ; POSITION CL-DISCORD-API::TOPIC CL-DISCORD-API::NSFW ; CL-DISCORD-API::RATE-LIMIT-PER-USER CL-DISCORD-API::BITRATE ; CL-DISCORD-API::USER-LIMIT CL-DISCORD-API::PERMISSION-OVERWRITES ; CL-DISCORD-API::PARENT-ID)) ; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-DISCORD-API::MODIFY-2 ; (CL-DISCORD-API::CHANNEL-ID CL-DISCORD-API::&KEYS CL-DISCORD-API::NAME ; POSITION CL-DISCORD-API::TOPIC CL-DISCORD-API::NSFW ; CL-DISCORD-API::RATE-LIMIT-PER-USER CL-DISCORD-API::BITRATE ; CL-DISCORD-API::USER-LIMIT CL-DISCORD-API::PERMISSION-OVERWRITES ; CL-DISCORD-API::PARENT-ID) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-DISCORD-API::MODIFY-2 ; (LET ((#:G0 #) (#:G1 #)) ; (JSON:DECODE-JSON-FROM-SOURCE (CL-DISCORD-API::SEND # #))))) ; ; caught STYLE-WARNING: ; suspicious variable &KEYS in lambda list: (CHANNEL-ID &KEYS NAME POSITION TOPIC ; NSFW RATE-LIMIT-PER-USER BITRATE ; USER-LIMIT PERMISSION-OVERWRITES ; PARENT-ID). ; ; caught STYLE-WARNING: ; The variable &KEYS is defined but never used. ; ; caught STYLE-WARNING: ; The variable NAME is defined but never used. ; ; caught STYLE-WARNING: ; The variable POSITION is defined but never used. ; ; caught STYLE-WARNING: ; The variable TOPIC is defined but never used. ; ; caught STYLE-WARNING: ; The variable NSFW is defined but never used. ; ; caught STYLE-WARNING: ; The variable RATE-LIMIT-PER-USER is defined but never used. ; ; caught STYLE-WARNING: ; The variable BITRATE is defined but never used. ; ; caught STYLE-WARNING: ; The variable USER-LIMIT is defined but never used. ; ; caught STYLE-WARNING: ; The variable PERMISSION-OVERWRITES is defined but never used. ; ; caught STYLE-WARNING: ; The variable PARENT-ID is defined but never used. ; ; compilation unit finished ; caught 11 STYLE-WARNING conditions CLDAPI>