Add source sets

This commit is contained in:
Lassi Kortela 2022-09-25 16:54:27 +03:00
parent d5fb2d4475
commit 4b51255e30
2 changed files with 1294 additions and 0 deletions

956
source/common-lisp Normal file
View File

@ -0,0 +1,956 @@
*
**
***
*break-on-signals*
*compile-file-pathname*
*compile-file-truename*
*compile-print*
*compile-verbose*
*debug-io*
*debugger-hook*
*default-pathname-defaults*
*error-output*
*features*
*gensym-counter*
*load-pathname*
*load-print*
*load-truename*
*load-verbose*
*macroexpand-hook*
*modules*
*package*
*print-array*
*print-base*
*print-case*
*print-circle*
*print-escape*
*print-gensym*
*print-length*
*print-level*
*print-lines*
*print-miser-width*
*print-pprint-dispatch*
*print-pretty*
*print-radix*
*print-readably*
*print-right-margin*
*query-io*
*random-state*
*read-base*
*read-default-float-format*
*read-eval*
*read-suppress*
*readtable*
*standard-input*
*standard-output*
*terminal-io*
*trace-output*
+
++
+++
-
/
//
///
/=
1+
1-
<
<=
=
>
>=
abort
abs
acons
acos
acosh
add-method
adjoin
adjust-array
adjustable-array-p
allocate-instance
alpha-char-p
alphanumericp
and
append
apply
apropos
apropos-list
aref
arithmetic-error
arithmetic-error-operands
arithmetic-error-operation
array
array-dimension
array-dimensions
array-displacement
array-element-type
array-has-fill-pointer-p
array-in-bounds-p
array-rank
array-row-major-index
array-total-size
arrayp
ash
asin
asinh
assert
assoc
assoc-if
assoc-if-not
atan
atanh
atom
base-char
base-string
bignum
bit
bit-and
bit-andc1
bit-andc2
bit-eqv
bit-ior
bit-nand
bit-nor
bit-not
bit-orc1
bit-orc2
bit-vector
bit-vector-p
bit-xor
block
boole
boole-1
boole-2
boole-and
boole-andc1
boole-andc2
boole-c1
boole-c2
boole-clr
boole-eqv
boole-ior
boole-nand
boole-nor
boole-orc1
boole-orc2
boole-set
boole-xor
boolean
both-case-p
boundp
break
broadcast-stream
broadcast-stream-streams
built-in-class
butlast
byte
byte-position
byte-size
caaaar
caaadr
caaar
caadar
caaddr
caadr
caar
cadaar
cadadr
cadar
caddar
cadddr
caddr
cadr
call-arguments-limit
call-method
call-next-method
car
case
catch
ccase
cdaaar
cdaadr
cdaar
cdadar
cdaddr
cdadr
cdar
cddaar
cddadr
cddar
cdddar
cddddr
cdddr
cddr
cdr
ceiling
cell-error
cell-error-name
cerror
change-class
char
char-code
char-code-limit
char-equal
char-greaterp
char-int
char-lessp
char-name
char-not-equal
char-not-greaterp
char-not-lessp
char-upcase
char/=
char<
char<=
char=
char>
char>=
character
characterp
check-type
cis
class
class-name
class-of
clear-input
clear-output
close
clrhash
code-char
coerce
compile
compile-file
compile-file-pathname
compiled-function
compiled-function-p
compiler-macro-function
complement
complex
complexp
compute-applicable-methods
compute-restarts
concatenate
concatenated-stream
concatenated-stream-streams
cond
condition
conjugate
cons
consp
constantly
constantp
continue
control-error
copy-alist
copy-list
copy-pprint-dispatch
copy-readtable
copy-seq
copy-structure
copy-symbol
copy-tree
cos
cosh
count
count-if
count-if-not
ctypecase
decf
declaim
declaration
declare
decode-float
decode-universal-time
defclass
defconstant
defgeneric
define-compiler-macro
define-condition
define-method-combination
define-modify-macro
define-setf-expander
define-symbol-macro
defmacro
defmethod
defpackage
defparameter
defsetf
defstruct
deftype
defun
defvar
delete
delete-duplicates
delete-file
delete-if
delete-if-not
delete-package
denominator
deposit-field
describe
describe-object
destructuring-bind
digit-char
digit-char-p
directory
directory-namestring
disassemble
division-by-zero
do
do*
do-all-symbols
do-external-symbols
do-symbols
documentation
dolist
dotimes
double-float
double-float-epsilon
double-float-negative-epsilon
dpb
dribble
dynamic-extent
ecase
echo-stream
echo-stream-input-stream
echo-stream-output-stream
ed
eighth
elt
encode-universal-time
end-of-file
endp
enough-namestring
ensure-directories-exist
ensure-generic-function
eq
eql
equal
equalp
error
etypecase
eval
eval-when
evenp
every
exp
export
expt
extended-char
fboundp
fceiling
fdefinition
ffloor
fifth
file-author
file-error
file-error-pathname
file-length
file-namestring
file-position
file-stream
file-string-length
file-write-date
fill
fill-pointer
find
find-all-symbols
find-class
find-if
find-if-not
find-method
find-package
find-restart
find-symbol
finish-output
first
fixnum
flet
float
float-digits
float-precision
float-radix
float-sign
floating-point-inexact
floating-point-invalid-operation
floating-point-overflow
floating-point-underflow
floatp
floor
fmakunbound
force-output
format
formatter
fourth
fresh-line
fround
ftruncate
ftype
funcall
function
function-keywords
function-lambda-expression
functionp
gcd
generic-function
gensym
gentemp
get
get-decoded-time
get-dispatch-macro-character
get-internal-real-time
get-internal-run-time
get-macro-character
get-output-stream-string
get-properties
get-setf-expansion
get-universal-time
getf
gethash
go
graphic-char-p
handler-bind
handler-case
hash-table
hash-table-count
hash-table-p
hash-table-rehash-size
hash-table-rehash-threshold
hash-table-size
hash-table-test
host-namestring
identity
if
ignorable
ignore
ignore-errors
imagpart
import
in-package
incf
initialize-instance
inline
input-stream-p
inspect
integer
integer-decode-float
integer-length
integerp
interactive-stream-p
intern
internal-time-units-per-second
intersection
invalid-method-error
invoke-debugger
invoke-restart
invoke-restart-interactively
isqrt
keyword
keywordp
labels
lambda
lambda-list-keywords
lambda-parameters-limit
last
lcm
ldb
ldb-test
ldiff
least-negative-double-float
least-negative-long-float
least-negative-normalized-double-float
least-negative-normalized-long-float
least-negative-normalized-short-float
least-negative-normalized-single-float
least-negative-short-float
least-negative-single-float
least-positive-double-float
least-positive-long-float
least-positive-normalized-double-float
least-positive-normalized-long-float
least-positive-normalized-short-float
least-positive-normalized-single-float
least-positive-short-float
least-positive-single-float
length
let
let*
lisp-implementation-type
lisp-implementation-version
list
list*
list-all-packages
list-length
listen
listp
load
load-logical-pathname-translations
load-time-value
locally
log
logand
logandc1
logandc2
logbitp
logcount
logeqv
logical-pathname
logical-pathname-translations
logior
lognand
lognor
lognot
logorc1
logorc2
logtest
logxor
long-float
long-float-epsilon
long-float-negative-epsilon
long-site-name
loop
loop-finish
lower-case-p
machine-instance
machine-type
machine-version
macro-function
macroexpand
macroexpand-1
macrolet
make-array
make-broadcast-stream
make-concatenated-stream
make-condition
make-dispatch-macro-character
make-echo-stream
make-hash-table
make-instance
make-instances-obsolete
make-list
make-load-form
make-load-form-saving-slots
make-method
make-package
make-pathname
make-random-state
make-sequence
make-string
make-string-input-stream
make-string-output-stream
make-symbol
make-synonym-stream
make-two-way-stream
makunbound
map
map-into
mapc
mapcan
mapcar
mapcon
maphash
mapl
maplist
mask-field
max
member
member-if
member-if-not
merge
merge-pathnames
method
method-combination
method-combination-error
method-qualifiers
min
minusp
mismatch
mod
most-negative-double-float
most-negative-fixnum
most-negative-long-float
most-negative-short-float
most-negative-single-float
most-positive-double-float
most-positive-fixnum
most-positive-long-float
most-positive-short-float
most-positive-single-float
muffle-warning
multiple-value-bind
multiple-value-call
multiple-value-list
multiple-value-prog1
multiple-value-setq
multiple-values-limit
name-char
namestring
nbutlast
nconc
next-method-p
nil
nintersection
ninth
no-applicable-method
no-next-method
not
notany
notevery
notinline
nreconc
nreverse
nset-difference
nset-exclusive-or
nstring-capitalize
nstring-downcase
nstring-upcase
nsublis
nsubst
nsubst-if
nsubst-if-not
nsubstitute
nsubstitute-if
nsubstitute-if-not
nth
nth-value
nthcdr
null
number
numberp
numerator
nunion
oddp
open
open-stream-p
optimize
or
output-stream-p
package
package-error
package-error-package
package-name
package-nicknames
package-shadowing-symbols
package-use-list
package-used-by-list
packagep
pairlis
parse-error
parse-integer
parse-namestring
pathname
pathname-device
pathname-directory
pathname-host
pathname-match-p
pathname-name
pathname-type
pathname-version
pathnamep
peek-char
phase
pi
plusp
pop
position
position-if
position-if-not
pprint
pprint-dispatch
pprint-exit-if-list-exhausted
pprint-fill
pprint-indent
pprint-linear
pprint-logical-block
pprint-newline
pprint-pop
pprint-tab
pprint-tabular
prin1
prin1-to-string
princ
princ-to-string
print
print-not-readable
print-not-readable-object
print-object
print-unreadable-object
probe-file
proclaim
prog
prog*
prog1
prog2
progn
program-error
progv
provide
psetf
psetq
push
pushnew
quote
random
random-state
random-state-p
rassoc
rassoc-if
rassoc-if-not
ratio
rational
rationalize
rationalp
read
read-byte
read-char
read-char-no-hang
read-delimited-list
read-from-string
read-line
read-preserving-whitespace
read-sequence
reader-error
readtable
readtable-case
readtablep
real
realp
realpart
reduce
reinitialize-instance
rem
remf
remhash
remove
remove-duplicates
remove-if
remove-if-not
remove-method
remprop
rename-file
rename-package
replace
require
rest
restart
restart-bind
restart-case
restart-name
return
return-from
revappend
reverse
room
rotatef
round
row-major-aref
rplaca
rplacd
satisfies
sbit
scale-float
schar
search
second
sequence
serious-condition
set
set-difference
set-dispatch-macro-character
set-exclusive-or
set-macro-character
set-pprint-dispatch
set-syntax-from-char
setf
setq
seventh
shadow
shadowing-import
shared-initialize
shiftf
short-float
short-float-epsilon
short-float-negative-epsilon
short-site-name
signal
signed-byte
signum
simple-array
simple-base-string
simple-bit-vector
simple-bit-vector-p
simple-condition
simple-condition-format-arguments
simple-condition-format-control
simple-error
simple-string
simple-string-p
simple-type-error
simple-vector
simple-vector-p
simple-warning
sin
single-float
single-float-epsilon
single-float-negative-epsilon
sinh
sixth
sleep
slot-boundp
slot-exists-p
slot-makunbound
slot-missing
slot-unbound
slot-value
software-type
software-version
some
sort
special
special-operator-p
sqrt
stable-sort
standard-char
standard-char-p
standard-class
standard-generic-function
standard-method
standard-object
step
storage-condition
store-value
stream
stream-element-type
stream-error
stream-error-stream
stream-external-format
streamp
string
string-capitalize
string-downcase
string-equal
string-greaterp
string-left-trim
string-lessp
string-not-equal
string-not-greaterp
string-not-lessp
string-right-trim
string-stream
string-trim
string-upcase
string/=
string<
string<=
string=
string>
string>=
stringp
structure-class
structure-object
style-warning
sublis
subseq
subsetp
subst
subst-if
subst-if-not
substitute
substitute-if
substitute-if-not
subtypep
svref
sxhash
symbol
symbol-function
symbol-macrolet
symbol-name
symbol-package
symbol-plist
symbol-value
symbolp
synonym-stream
synonym-stream-symbol
t
tagbody
tailp
tan
tanh
tenth
terpri
the
third
throw
time
trace
translate-logical-pathname
translate-pathname
tree-equal
truename
truncate
two-way-stream
two-way-stream-input-stream
two-way-stream-output-stream
type
type-error
type-error-datum
type-error-expected-type
type-of
typecase
typep
unbound-slot-instance
unbound-variable
undefined-function
unexport
unintern
union
unless
unread-char
unsigned-byte
untrace
unuse-package
unwind-protect
update-instance-for-different-class
update-instance-for-redefined-class
upgraded-array-element-type
upgraded-complex-part-type
upper-case-p
use-package
use-value
user-homedir-pathname
values
values-list
variable
vector
vector-pop
vector-push
vector-push-extend
vectorp
warn
warning
when
wild-pathname-p
with-accessors
with-compilation-unit
with-condition-restarts
with-hash-table-iterator
with-input-from-string
with-open-file
with-open-stream
with-output-to-string
with-package-iterator
with-simple-restart
with-slots
with-standard-io-syntax
write
write-byte
write-char
write-line
write-sequence
write-string
write-to-string
y-or-n-p
yes-or-no-p
zerop

338
source/r7rs-small Normal file
View File

@ -0,0 +1,338 @@
*
+
-
...
/
<
<=
=
=>
>
>=
abs
acos
and
angle
append
apply
asin
assoc
assq
assv
atan
begin
binary-port?
boolean=?
boolean?
bytevector
bytevector-append
bytevector-copy
bytevector-copy!
bytevector-length
bytevector-u8-ref
bytevector-u8-set!
bytevector?
caaaar
caaadr
caaar
caadar
caaddr
caadr
caar
cadaar
cadadr
cadar
caddar
cadddr
caddr
cadr
call-with-current-continuation
call-with-input-file
call-with-output-file
call-with-port
call-with-values
call/cc
car
case
case-lambda
cdaaar
cdaadr
cdaar
cdadar
cdaddr
cdadr
cdar
cddaar
cddadr
cddar
cdddar
cddddr
cdddr
cddr
cdr
ceiling
char->integer
char-alphabetic?
char-ci<=?
char-ci<?
char-ci=?
char-ci>=?
char-ci>?
char-downcase
char-foldcase
char-lower-case?
char-numeric?
char-ready?
char-upcase
char-upper-case?
char-whitespace?
char<=?
char<?
char=?
char>=?
char>?
char?
close-input-port
close-output-port
close-port
command-line
complex?
cond
cond-expand
cons
cos
current-error-port
current-input-port
current-jiffy
current-output-port
current-second
define
define-record-type
define-syntax
define-values
delay
delay-force
delete-file
denominator
digit-value
display
do
dynamic-wind
else
emergency-exit
environment
eof-object
eof-object?
eq?
equal?
eqv?
error
error-object-irritants
error-object-message
error-object?
eval
even?
exact
exact->inexact
exact-integer-sqrt
exact-integer?
exact?
exit
exp
expt
features
file-error?
file-exists?
finite?
floor
floor-quotient
floor-remainder
floor/
flush-output-port
for-each
force
gcd
get-environment-variable
get-environment-variables
get-output-bytevector
get-output-string
guard
if
imag-part
include
include-ci
inexact
inexact->exact
inexact?
infinite?
input-port-open?
input-port?
integer->char
integer?
interaction-environment
jiffies-per-second
lambda
lcm
length
let
let*
let*-values
let-syntax
let-values
letrec
letrec*
letrec-syntax
list
list->string
list->vector
list-copy
list-ref
list-set!
list-tail
list?
load
log
magnitude
make-bytevector
make-list
make-parameter
make-polar
make-promise
make-rectangular
make-string
make-vector
map
max
member
memq
memv
min
modulo
nan?
negative?
newline
not
null-environment
null?
number->string
number?
numerator
odd?
open-binary-input-file
open-binary-output-file
open-input-bytevector
open-input-file
open-input-string
open-output-bytevector
open-output-file
open-output-string
or
output-port-open?
output-port?
pair?
parameterize
peek-char
peek-u8
port?
positive?
procedure?
promise?
quasiquote
quote
quotient
raise
raise-continuable
rational?
rationalize
read
read-bytevector
read-bytevector!
read-char
read-error?
read-line
read-string
read-u8
real-part
real?
remainder
reverse
round
scheme-report-environment
set!
set-car!
set-cdr!
sin
sqrt
square
string
string->list
string->number
string->symbol
string->utf8
string->vector
string-append
string-ci<=?
string-ci<?
string-ci=?
string-ci>=?
string-ci>?
string-copy
string-copy!
string-downcase
string-fill!
string-foldcase
string-for-each
string-length
string-map
string-ref
string-set!
string-upcase
string<=?
string<?
string=?
string>=?
string>?
string?
substring
symbol->string
symbol=?
symbol?
syntax-error
syntax-rules
tan
textual-port?
truncate
truncate-quotient
truncate-remainder
truncate/
u8-ready?
unless
unquote
unquote-splicing
utf8->string
values
vector
vector->list
vector->string
vector-append
vector-copy
vector-copy!
vector-fill!
vector-for-each
vector-length
vector-map
vector-ref
vector-set!
vector?
when
with-exception-handler
with-input-from-file
with-output-to-file
write
write-bytevector
write-char
write-shared
write-simple
write-string
write-u8
zero?