From 4b51255e30bdcecdb80d173fcd469d2acdde11a2 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Sun, 25 Sep 2022 16:54:27 +0300 Subject: [PATCH] Add source sets --- source/common-lisp | 956 +++++++++++++++++++++++++++++++++++++++++++++ source/r7rs-small | 338 ++++++++++++++++ 2 files changed, 1294 insertions(+) create mode 100644 source/common-lisp create mode 100644 source/r7rs-small diff --git a/source/common-lisp b/source/common-lisp new file mode 100644 index 0000000..32f6894 --- /dev/null +++ b/source/common-lisp @@ -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 diff --git a/source/r7rs-small b/source/r7rs-small new file mode 100644 index 0000000..0b78cdf --- /dev/null +++ b/source/r7rs-small @@ -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-downcase +char-foldcase +char-lower-case? +char-numeric? +char-ready? +char-upcase +char-upper-case? +char-whitespace? +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-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? +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?