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
(SYMBOL-MACROLET ((#:ARG1859 '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 KURCINA 20))) (DECLARE) (LET ((#:WHAT11885 '(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 KURCINA 20))) (DECLARE (IGNORABLE #:WHAT11885)) (BLOCK TRIVIA.LEVEL1.IMPL::WHOLE (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:CONS1860 #:WHAT11885)) (DECLARE (IGNORABLE #:CONS1860)) (IF (CONSP #:CONS1860) (LOCALLY (DECLARE (TYPE CONS #:CONS1860)) (LET ((#:CONS1861 (CDR #:CONS1860))) (DECLARE (IGNORABLE #:CONS1861)) (IF (CONSP #:CONS1861) (LOCALLY (DECLARE (TYPE CONS #:CONS1861)) (LET ((#:CONS1862 (CDR #:CONS1861))) (DECLARE (IGNORABLE #:CONS1862)) (IF (CONSP #:CONS1862) (LOCALLY (DECLARE (TYPE CONS #:CONS1862)) (LET ((#:CONS1863 (CDR #:CONS1862))) (DECLARE (IGNORABLE #:CONS1863)) (IF (CONSP #:CONS1863) (LOCALLY (DECLARE (TYPE CONS #:CONS1863)) (LET ((#:CONS1864 (CDR #:CONS1863))) (DECLARE (IGNORABLE #:CONS1864)) (IF (CONSP #:CONS1864) (LOCALLY (DECLARE (TYPE CONS #:CONS1864)) (LET ((#:CONS1865 (CDR #:CONS1864))) (DECLARE (IGNORABLE #:CONS1865)) (IF (CONSP #:CONS1865) (LOCALLY (DECLARE (TYPE CONS #:CONS1865)) (LET ((#:CONS1866 (CDR #:CONS1865))) (DECLARE (IGNORABLE #:CONS1866)) (IF (CONSP #:CONS1866) (LOCALLY (DECLARE (TYPE CONS #:CONS1866)) (LET ((#:CONS1867 (CDR #:CONS1866))) (DECLARE (IGNORABLE #:CONS1867)) (IF (CONSP #:CONS1867) (LOCALLY (DECLARE (TYPE CONS #:CONS1867)) (LET ((#:CONS1868 (CDR #:CONS1867))) (DECLARE (IGNORABLE #:CONS1868)) (IF (CONSP #:CONS1868) (LOCALLY (DECLARE (TYPE CONS #:CONS1868)) (LET ((#:CONS1869 (CDR #:CONS1868))) (DECLARE (IGNORABLE #:CONS1869)) (IF (CONSP #:CONS1869) (LOCALLY (DECLARE (TYPE CONS #:CONS1869)) (LET ((#:CONS1870 (CDR #:CONS1869))) (DECLARE (IGNORABLE #:CONS1870)) (IF (CONSP #:CONS1870) (LOCALLY (DECLARE (TYPE CONS #:CONS1870)) (LET ((#:IT1871 (CAR #:CONS1870))) (DECLARE (IGNORABLE #:IT1871)) (IF (EQL #:IT1871 11) (LOCALLY (DECLARE (TYPE (EQL 11) #:IT1871)) (LET ((#:CONS1872 (CDR #:CONS1870))) (DECLARE (IGNORABLE #:CONS1872)) (IF (CONSP #:CONS1872) (LOCALLY (DECLARE (TYPE CONS #:CONS1872)) (LET ((#:CONS1873 (CDR #:CONS1872))) (DECLARE (IGNORABLE #:CONS1873)) (IF (CONSP #:CONS1873) (LOCALLY (DECLARE (TYPE CONS #:CONS1873)) (LET ((#:CONS1874 (CDR #:CONS1873))) (DECLARE (IGNORABLE #:CONS1874)) (IF (CONSP #:CONS1874) (LOCALLY (DECLARE (TYPE CONS #:CONS1874)) (LET ((#:CONS1875 (CDR #:CONS1874))) (DECLARE (IGNORABLE #:CONS1875)) (IF (CONSP #:CONS1875) (LOCALLY (DECLARE (TYPE CONS #:CONS1875)) (LET ((#:CONS1876 (CDR #:CONS1875))) (DECLARE (IGNORABLE #:CONS1876)) (IF (CONSP #:CONS1876) (LOCALLY (DECLARE (TYPE CONS #:CONS1876)) (LET ((#:CONS1877 (CDR #:CONS1876))) (DECLARE (IGNORABLE #:CONS1877)) (IF (CONSP #:CONS1877) (LOCALLY (DECLARE (TYPE CONS #:CONS1877)) (LET ((#:CONS1878 (CDR #:CONS1877))) (DECLARE (IGNORABLE #:CONS1878)) (IF (CONSP #:CONS1878) (LOCALLY (DECLARE (TYPE CONS #:CONS1878)) (LET ((#:CONS1879 (CDR #:CONS1878))) (DECLARE (IGNORABLE #:CONS1879)) (IF (CONSP #:CONS1879) (LOCALLY (DECLARE (TYPE CONS #:CONS1879)) (LET ((#:IT1880 (CAR #:CONS1879))) (DECLARE (IGNORABLE #:IT1880)) (IF (EQ #:IT1880 'KURCINA) (LOCALLY (DECLARE (TYPE (EQL (QUOTE KURCINA)) #:IT1880)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (LET ((#:WHAT11928 NIL)) (DECLARE (IGNORABLE #:WHAT11928)) (BLOCK TRIVIA.LEVEL1.IMPL::WHOLE (BLOCK TRIVIA.LEVEL1.IMPL::CLAUSE (LET ((#:IT1882 #:WHAT11928)) (DECLARE (IGNORABLE #:IT1882)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY "gottem!")))) (LET ((#:IT1883 #:WHAT11928)) (DECLARE (IGNORABLE #:IT1883)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (RETURN-FROM TRIVIA.LEVEL1.IMPL::CLAUSE NIL)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (LET ((#:IT1881 #:WHAT11885)) (DECLARE (IGNORABLE #:IT1881)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY (LET ((#:WHAT11929 NIL)) (DECLARE (IGNORABLE #:WHAT11929)) (BLOCK TRIVIA.LEVEL1.IMPL::WHOLE (LET ((#:IT1884 #:WHAT11929)) (DECLARE (IGNORABLE #:IT1884)) (RETURN-FROM TRIVIA.LEVEL1.IMPL::WHOLE (LOCALLY NIL)))))))))))