bitcoin-rpc

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/08d7a2af682802fce159e47ff3511112f24e892a/cl-colors-20241021-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/8031b1b03c4861658df12660cf2465e195af4bce/parse-float-20241021-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/test") in that file.
WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN
WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN
WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN
WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN
WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN
WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN
WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN
WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN
WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN
WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO
WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO
WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN
WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN
WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN
WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::INSTALL-PACKAGE-LOCAL-NICKNAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN
WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO
WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN
WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO
WARNING: redefining UIOP/UTILITY::ENSURE-FUNCTION-NOTINLINE in DEFUN
WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO
WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO
WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN
WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO
WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO
WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN
WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO
WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO
WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN
WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN
WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN
WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN
WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN
WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN
WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN
WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN
WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN
WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN
WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN
WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN
WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN
WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN
WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN
WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN
WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO
WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN
WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN
WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN
WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN
WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN
WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN
WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN
WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN
WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN
WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN
WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN
WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN
WARNING: redefining UIOP/UTILITY:BOOLEAN-TO-FEATURE-EXPRESSION in DEFUN
WARNING: redefining UIOP/UTILITY:SYMBOL-TEST-TO-FEATURE-EXPRESSION in DEFUN
WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION< in DEFUN
WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN
WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN
WARNING: redefining PRINT-OBJECT (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN
WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO
WARNING: redefining UIOP/OS:FEATUREP in DEFUN
WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN
WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN
WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN
WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN
WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN
WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN
WARNING: redefining UIOP/OS::OS-MEZZANO-P in DEFUN
WARNING: redefining UIOP/OS:DETECT-OS in DEFUN
WARNING: redefining UIOP/OS:OS-COND in DEFMACRO
WARNING: redefining UIOP/OS:GETENV in DEFUN
WARNING: redefining UIOP/OS:GETENVP in DEFUN
WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN
WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN
WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN
WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN
WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN
WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN
WARNING: redefining UIOP/OS:HOSTNAME in DEFUN
WARNING: redefining UIOP/OS:GETCWD in DEFUN
WARNING: redefining UIOP/OS:CHDIR in DEFUN
WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN
WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN
WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN
WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN
WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN
WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN
WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO
WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN
WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN
WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN
WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN
WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN
WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO
WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN
WARNING: redefining UIOP/PATHNAME:TRANSLATE-PATHNAME* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO
WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN
WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN
WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN
WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN
WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO
WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN
WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN
WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN
WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN
WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN
WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN
WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN
WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN
WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN
WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN
WARNING: redefining UIOP/STREAM:WRITELN in DEFUN
WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN
WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO
WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN
WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN
WARNING: redefining UIOP/IMAGE:QUIT in DEFUN
WARNING: redefining UIOP/IMAGE:DIE in DEFUN
WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN
WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN
WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO
WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN
WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN
WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN
WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN
WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN
WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN
WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN
WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN
WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN
WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN
WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:UIOP-DIRECTORY in DEFUN
WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN
WARNING: redefining TO-LISP-VALUE (#<STRUCTURE-CLASS COMMON-LISP:HASH-TABLE> #<SB-MOP:EQL-SPECIALIZER :ANY>) in DEFMETHOD
WARNING: redefining JSON-MOP::INITIALIZE-SLOTS-FROM-JSON in DEFUN
WARNING: redefining JSON-TO-CLOS (#<STRUCTURE-CLASS COMMON-LISP:HASH-TABLE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining TO-LISP-VALUE (#<STRUCTURE-CLASS COMMON-LISP:HASH-TABLE> #<BUILT-IN-CLASS COMMON-LISP:CONS>) in DEFMETHOD
WARNING: redefining LOG4CL-IMPL:APPENDER-ADDED in DEFGENERIC
WARNING: redefining LOG4CL-IMPL:APPENDER-REMOVED in DEFGENERIC
WARNING: redefining LOG4CL-IMPL::PROPERTY-ALIST in DEFGENERIC

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-shlex/5008d39adb43dc1f46519d47c3bc93b6b8f60b66/cl-shlex-20241021-git/shlex.lisp
; in: DEFUN FIND-SORTED
;     (< SHLEX::IDX (LENGTH STRING))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/bitcoin-rpc/873fd1b8c1aa0c63769b11e4736854cb1db3d9d8/bitcoin-rpc-release-bcb5dc00-git/src/classes.lisp
; in: JSON-CLASS LOGGING-CONFIGURATION
;     ((BITCOIN-RPC/CLASSES::ADDRESS-MANAGER "addrman" :BOOL :READER
;       BITCOIN-RPC/CLASSES::ADDRESS-MANAGER)
;      (BITCOIN-RPC/CLASSES::BENCHMARK "bench" :BOOL :READER
;       BITCOIN-RPC/CLASSES::BENCHMARK)
;      (BITCOIN-RPC/CLASSES::BLOCK-STORAGE "blockstorage" :BOOL :READER
;       BITCOIN-RPC/CLASSES::BLOCK-STORAGE)
;      (BITCOIN-RPC/CLASSES::COMPACT-BLOCK "cmpctblock" :BOOL :READER
;       BITCOIN-RPC/CLASSES::COMPACT-BLOCK)
;      (BITCOIN-RPC/CLASSES::COIN-DATA-BASE "coindb" :BOOL :READER
;       BITCOIN-RPC/CLASSES::COIN-DATA-BASE)
;      (BITCOIN-RPC/CLASSES::ESTIMATE-FEE "estimatefee" :BOOL :READER
;       BITCOIN-RPC/CLASSES::ESTIMATE-FEE)
;      ("http" :BOOL :READER BITCOIN-RPC/CLASSES::HTTP)
;      ("i2p" :BOOL :READER BITCOIN-RPC/CLASSES::I2P)
;      ("ipc" :BOOL :READER BITCOIN-RPC/CLASSES::IPC)
;      (BITCOIN-RPC/CLASSES::LEVEL-DATABASE "leveldb" :BOOL :READER
;       BITCOIN-RPC/CLASSES::LEVEL-DATABASE)
;      (BITCOIN-RPC/CLASSES::LIBRARY-EVENT "libevent" :BOOL :READER
;       BITCOIN-RPC/CLASSES::LIBRARY-EVENT)
;      (BITCOIN-RPC/CLASSES:MEMORY-POOL "mempool" :BOOL :READER
;       BITCOIN-RPC/CLASSES:MEMORY-POOL)
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS RPC-INFO
;     ((BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS "active_commands"
;       (:LIST BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS) :READER
;       BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS :DOCUMENTATION "All active commands")
;      (BITCOIN-RPC/CLASSES::LOG-PATH "logpath" :STRING :READER
;       BITCOIN-RPC/CLASSES::LOG-PATH :DOCUMENTATION
;       "The complete file path to the debug log"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS ACTIVE-COMMANDS
;     (("method" :STRING :READER BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS-METHOD
;       :DOCUMENTATION "The name of the RPC command")
;      ("duration" :NUMBER :READER BITCOIN-RPC/CLASSES::DURATION :DOCUMENTATION
;       "The running time in microseconds"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS MEMORY-INFO-STATS
;     (("locked" BITCOIN-RPC/CLASSES::MEMORY-INFO-STATS-LOCKED :READER
;       BITCOIN-RPC/CLASSES::LOCKED :DOCUMENTATION
;       "Information about locked memory manager"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS MEMORY-INFO-STATS-LOCKED
;     (("used" :NUMBER :READER BITCOIN-RPC/CLASSES::USED :DOCUMENTATION
;       "Number of bytes used")
;      ("free" :NUMBER :READER BITCOIN-RPC/CLASSES::FREE :DOCUMENTATION
;       "Number of bytes available in current arenas")
;      ("total" :NUMBER :READER BITCOIN-RPC/CLASSES::TOTAL :DOCUMENTATION
;       "Total number of bytes managed")
;      ("locked" :NUMBER :READER BITCOIN-RPC/CLASSES::LOCKED :DOCUMENTATION
;       "Amount of bytes that succeeded locking. If this number is smaller than total, locking pages failed at some point and key data could be swapped to disk.")
;      (BITCOIN-RPC/CLASSES::CHUNKS-USED "chunks_used" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::CHUNKS-USED :DOCUMENTATION "Number allocated chunks")
;      (BITCOIN-RPC/CLASSES::CHUNKS-FREE "chunks_free" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::CHUNKS-FREE :DOCUMENTATION "Number unused chunks"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS TRANSACTION-OUTPUT-SET
;     (("success" :BOOL :READER BITCOIN-RPC/CLASSES::SUCCESS)
;      (BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS "txouts" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS :DOCUMENTATION
;       "The number of unspent transaction outputs scanned")
;      ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;       "The current block height (index)")
;      (BITCOIN-RPC/CLASSES::BEST-BLOCK "bestblock" :STRING :READER
;       BITCOIN-RPC/CLASSES::BEST-BLOCK :DOCUMENTATION
;       "The hash of the block at the tip of the chain")
;      ("unspents" (:LIST BITCOIN-RPC/CLASSES:UNSPENT-TRANSACTION-OUTPUT) :READER
;       BITCOIN-RPC/CLASSES::UNSPENTS)
;      (BITCOIN-RPC/CLASSES::TOTAL-AMOUNT "total_amount" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TOTAL-AMOUNT :DOCUMENTATION
;       "The total amount of all found unspent outputs in BTC"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS UNSPENT-TRANSACTION-OUTPUT
;     ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION "The transaction id")
;      (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION "the vout value")
;      ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "The bitcoin address.")
;      ("label" :STRING :READER BITCOIN-RPC/CLASSES::LABEL :DOCUMENTATION
;       "The associated label, or \"\" for the default label")
;      ("amount" :NUMBER :READER BITCOIN-RPC/CLASSES::AMOUNT :DOCUMENTATION
;       "the transaction output amount in BTC")
;      (BITCOIN-RPC/CLASSES::BEST-BLOCK "bestblock" :STRING :READER
;       BITCOIN-RPC/CLASSES::BEST-BLOCK :DOCUMENTATION
;       "The hash of the block at the tip of the chain")
;      ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;       :DOCUMENTATION "The number of confirmations")
;      (BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeemScript" :STRING :READER
;       BITCOIN-RPC/CLASSES::REDEEM-SCRIPT :DOCUMENTATION
;       "The string value of the hex-encoded redemption script.")
;      (BITCOIN-RPC/CLASSES::WITNESS-SCRIPT "witnessScript" :STRING :READER
;       BITCOIN-RPC/CLASSES::WITNESS-SCRIPT :DOCUMENTATION
;       "witnessScript if the scriptPubKey is P2WSH or P2SH-P2WSH")
;      ("spendable" :BOOL :READER BITCOIN-RPC/CLASSES::SPENDABLE :DOCUMENTATION
;       "Whether we have the private keys to spend this output")
;      ("solvable" :BOOL :READER BITCOIN-RPC/CLASSES::SOLVABLE :DOCUMENTATION
;       "Whether we know how to spend this output, ignoring the lack of keys")
;      ("reused" :BOOL :READER BITCOIN-RPC/CLASSES::REUSED :DOCUMENTATION
;       "(only present if avoid_reuse is set) Whether this output is reused/dirty (sent to an address that was previously spent from)")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS UNSPENT-TRANSACTION-OUTPUT-SET
;     (("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;       "The current block height (index)")
;      (BITCOIN-RPC/CLASSES::BEST-BLOCK "bestblock" :STRING :READER
;       BITCOIN-RPC/CLASSES::BEST-BLOCK :DOCUMENTATION
;       "The hash of the block at the tip of the chain")
;      (BITCOIN-RPC/CLASSES:TRANSACTIONS "transactions" :NUMBER :READER
;       BITCOIN-RPC/CLASSES:TRANSACTIONS :DOCUMENTATION
;       "The number of transactions with unspent outputs")
;      (BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS "txouts" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS :DOCUMENTATION
;       "The number of unspent transaction outputs")
;      (BITCOIN-RPC/CLASSES::BOGO-SIZE "bogosize" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::BOGO-SIZE :DOCUMENTATION
;       "A meaningless metric for UTXO set size")
;      (BITCOIN-RPC/CLASSES::HASH-SERIALIZED-2 "hash_serialized_2" :STRING :READER
;       BITCOIN-RPC/CLASSES::HASH-SERIALIZED-2 :DOCUMENTATION
;       "The serialized hash (only present if 'hash_serialized_2' hash_type is chosen)")
;      (BITCOIN-RPC/CLASSES::DISK-SIZE "disk_size" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::DISK-SIZE :DOCUMENTATION
;       "The estimated size of the chainstate on disk")
;      (BITCOIN-RPC/CLASSES::TOTAL-AMOUNT "total_amount" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TOTAL-AMOUNT :DOCUMENTATION "The total amount"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SCRIPT-PUBLIC-KEY
;     ((BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES "reqSigs" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES :DOCUMENTATION
;       "Number of required signatures")
;      ("addresses" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::ADDRESSES
;       :DOCUMENTATION "array of bitcoin addresses")
;      ("address" :STRING)
;      (BITCOIN-RPC/CLASSES:DESCRIPTOR "desc" :STRING :READER
;       BITCOIN-RPC/CLASSES:DESCRIPTOR))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS TRANSACTION
;     ((BITCOIN-RPC/CLASSES::INVOLVES-WATCH-ONLY "involvesWatchonly" :BOOL :READER
;       BITCOIN-RPC/CLASSES::INVOLVES-WATCH-ONLY :DOCUMENTATION
;       "Only returns true if imported addresses were involved in transaction.")
;      ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "The bitcoin address involved in the transaction.")
;      ("category" :STRING :READER BITCOIN-RPC/CLASSES::CATEGORY :DOCUMENTATION
;       #<(SIMPLE-ARRAY CHARACTER (370)) The transaction category.
;   "send"                  Transactions sent.
;   "receive"               Non-coinbase transactions received.
;   "generate"              Coinbase transactions received with more than 1... {100DE2493F}>)
;      ("label" :STRING :READER BITCOIN-RPC/CLASSES::LABEL :DOCUMENTATION
;       "A comment for the address/transaction, if any")
;      ("vout" :NUMBER :READER BITCOIN-RPC/CLASSES:VOUT :DOCUMENTATION
;       "the vout value")
;      ("amount" :NUMBER :READER BITCOIN-RPC/CLASSES::AMOUNT :DOCUMENTATION
;       "The amount in BTC")
;      ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;       "The amount of the fee in BTC. This is negative and only available for the 'send' category of transactions.")
;      ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;       :DOCUMENTATION
;       "The number of confirmations for the transaction. Negative confirmations means the transaction conflicted that many blocks ago.")
;      ("generated" :BOOL :READER BITCOIN-RPC/CLASSES::GENERATED :DOCUMENTATION
;       "Only present if transaction only input is a coinbase one.")
;      ("trusted" :BOOL :READER BITCOIN-RPC/CLASSES::TRUSTED :DOCUMENTATION
;       "Only present if we consider transaction to be trusted and so safe to spend from.")
;      (BITCOIN-RPC/CLASSES::BLOCK-HASH "blockhash" :STRING :READER
;       BITCOIN-RPC/CLASSES::BLOCK-HASH :DOCUMENTATION
;       "The block hash containing the transaction.")
;      (BITCOIN-RPC/CLASSES::BLOCK-HEIGHT "blockheight" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::BLOCK-HEIGHT :DOCUMENTATION
;       "The block height containing the transaction.")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS MEMORY-POOL
;     (("loaded" :BOOL :READER BITCOIN-RPC/CLASSES::LOADED :DOCUMENTATION
;       "True if the mempool is fully loaded")
;      ("size" :NUMBER :READER BITCOIN-RPC/CLASSES:SIZE :DOCUMENTATION
;       "Current tx count")
;      ("bytes" :NUMBER :READER BITCOIN-RPC/CLASSES::BYTES :DOCUMENTATION
;       "Sum of all virtual transaction sizes as defined in BIP 141. Differs from actual serialized size because witness data is discounted")
;      ("usage" :NUMBER :READER BITCOIN-RPC/CLASSES::USAGE :DOCUMENTATION
;       "Total memory usage for the mempool")
;      (BITCOIN-RPC/CLASSES::MAXIMUM-MEMORY-POOL "maxmempool" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::MAXIMUM-MEMORY-POOL :DOCUMENTATION
;       "Maximum memory usage for the mempool")
;      (BITCOIN-RPC/CLASSES::MEMORY-POOL-MINIMUM-FEE "mempoolminfee" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::MEMORY-POOL-MINIMUM-FEE :DOCUMENTATION
;       "Minimum fee rate in BTC/kB for tx to be accepted. Is the maximum of minrelaytxfee and minimum mempool fee")
;      (BITCOIN-RPC/CLASSES::MINIMUM-RELAY-TRANSACTION-FEE "minrelaytxfee" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::MINIMUM-RELAY-TRANSACTION-FEE :DOCUMENTATION
;       "Current minimum relay fee for transactions")
;      (BITCOIN-RPC/CLASSES::UNBROADCAST-COUNT "unbroadcastcount" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::UNBROADCAST-COUNT :DOCUMENTATION
;       "Current number of transactions that haven't passed initial broadcast yet")
;      (BITCOIN-RPC/CLASSES::FULL-REPLACE-BY-FEE "fullrbf" :BOOL :READER
;       BITCOIN-RPC/CLASSES::FULL-REPLACE-BY-FEE)
;      (BITCOIN-RPC/CLASSES::INCREMENTAL-RELAY-FEE "incrementalrelayfee" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::INCREMENTAL-RELAY-FEE)
;      (BITCOIN-RPC/CLASSES::TOTAL-FEE "total_fee" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TOTAL-FEE))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS MEMORY-POOL-TRANSACTION
;     ((BITCOIN-RPC/CLASSES::VIRTUAL-SIZE "vsize" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::VIRTUAL-SIZE :DOCUMENTATION
;       "virtual transaction size as defined in BIP 141. This is different from actual serialized size for witness transactions as witness data is discounted.")
;      ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;       "transaction weight as defined in BIP 141.")
;      ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;       "transaction fee in BTC (DEPRECATED)")
;      (BITCOIN-RPC/CLASSES::MODIFIED-FEE "modifiedfee" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::MODIFIED-FEE :DOCUMENTATION
;       "transaction fee with fee deltas used for mining priority (DEPRECATED)")
;      ("time" :NUMBER :READER BITCOIN-RPC/CLASSES::LOCAL-TIME :DOCUMENTATION
;       "local time transaction entered pool in seconds since 1 Jan 1970 GMT")
;      ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;       "block height when transaction entered pool")
;      (BITCOIN-RPC/CLASSES::DESCENDANT-COUNT "descendantcount" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::DESCENDANT-COUNT :DOCUMENTATION
;       "number of in-mempool descendant transactions (including this one)")
;      (BITCOIN-RPC/CLASSES::DESCENDANT-SIZE "descendantsize" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::DESCENDANT-SIZE :DOCUMENTATION
;       "virtual transaction size of in-mempool descendants (including this one)")
;      (BITCOIN-RPC/CLASSES::DESCENDANT-FEES "descendantfees" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::DESCENDANT-FEES :DOCUMENTATION
;       "modified fees (see above) of in-mempool descendants (including this one) (DEPRECATED)")
;      (BITCOIN-RPC/CLASSES::ANCESTOR-COUNT "ancestorcount" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::ANCESTOR-COUNT :DOCUMENTATION
;       "number of in-mempool ancestor transactions (including this one)")
;      (BITCOIN-RPC/CLASSES::ANCESTOR-SIZE "ancestorsize" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::ANCESTOR-SIZE :DOCUMENTATION
;       "virtual transaction size of in-mempool ancestors (including this one)")
;      (BITCOIN-RPC/CLASSES::ANCESTOR-FEES "ancestorfees" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::ANCESTOR-FEES :DOCUMENTATION
;       "modified fees (see above) of in-mempool ancestors (including this one) (DEPRECATED)")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS FEES
;     (("base" :NUMBER :READER BITCOIN-RPC/CLASSES:BASE :DOCUMENTATION
;       "transaction fee in BTC")
;      ("modified" :NUMBER :READER BITCOIN-RPC/CLASSES::MODIFIED :DOCUMENTATION
;       "transaction fee with fee deltas used for mining priority in BTC")
;      ("ancestor" :NUMBER :READER BITCOIN-RPC/CLASSES::ANCESTOR :DOCUMENTATION
;       "modified fees (see above) of in-mempool ancestors (including this one) in BTC")
;      ("descendant" :NUMBER :READER BITCOIN-RPC/CLASSES::DESCENDANT :DOCUMENTATION
;       "modified fees (see above) of in-mempool descendants (including this one) in BTC"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS RAW-TRANSACTION
;     ((BITCOIN-RPC/CLASSES::IN-ACTIVE-CHAIN "in_active_chain" :BOOL :READER
;       BITCOIN-RPC/CLASSES::IN-ACTIVE-CHAIN :DOCUMENTATION
;       "Whether specified block is in the active chain or not (only present with explicit \"blockhash\" argument)")
;      ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;       "The serialized, hex-encoded data for 'txid'")
;      (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;       "The transaction id (same as provided)")
;      ("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;       "The transaction hash (differs from txid for witness transactions)")
;      ("size" :NUMBER :READER BITCOIN-RPC/CLASSES:SIZE :DOCUMENTATION
;       "The serialized transaction size")
;      (BITCOIN-RPC/CLASSES::VIRTUAL-SIZE "vsize" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::VIRTUAL-SIZE :DOCUMENTATION
;       "The virtual transaction size (differs from size for witness transactions)")
;      ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;       "The transaction's weight (between vsize*4-3 and vsize*4)")
;      ("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;       "The version")
;      (BITCOIN-RPC/CLASSES::LOCK-TIME "locktime" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::LOCK-TIME :DOCUMENTATION "The lock time")
;      (BITCOIN-RPC/CLASSES::VALUE-IN "vin" (:LIST BITCOIN-RPC/CLASSES:VIN) :READER
;       BITCOIN-RPC/CLASSES::VALUE-IN)
;      (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" (:LIST BITCOIN-RPC/CLASSES:VOUT)
;       :READER BITCOIN-RPC/CLASSES::VALUE-OUT)
;      (BITCOIN-RPC/CLASSES::BLOCK-HASH "blockhash" :STRING :READER
;       BITCOIN-RPC/CLASSES::BLOCK-HASH :DOCUMENTATION "the block hash")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: DEFMETHOD PRINT-OBJECT (RAW-TRANSACTION T)
;     (DEFMETHOD PRINT-OBJECT
;                (
;                 (BITCOIN-RPC/CLASSES:TRANSACTION
;                  BITCOIN-RPC/CLASSES:RAW-TRANSACTION)
;                 STREAM)
;       (PRINT-UNREADABLE-OBJECT (BITCOIN-RPC/CLASSES:TRANSACTION STREAM :TYPE T)
;         (FORMAT STREAM "~a"
;                 (STR:SUBSTRING 0 8
;                                (BITCOIN-RPC/CLASSES::TRANSACTION-ID
;                                 BITCOIN-RPC/CLASSES:TRANSACTION)))))
; --> EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER PRINT-OBJECT NIL
;                                ((BITCOIN-RPC/CLASSES:TRANSACTION
;                                  BITCOIN-RPC/CLASSES:RAW-TRANSACTION)
;                                 STREAM)
;                                ((PRINT-UNREADABLE-OBJECT
;                                     (BITCOIN-RPC/CLASSES:TRANSACTION STREAM
;                                      :TYPE T)
;                                   (FORMAT STREAM "~a" (STR:SUBSTRING 0 8 #)))))
; 
; caught STYLE-WARNING:
;   Cannot find type for specializer BITCOIN-RPC/CLASSES:RAW-TRANSACTION when executing SB-PCL:SPECIALIZER-TYPE-SPECIFIER for a STANDARD-METHOD of a STANDARD-GENERIC-FUNCTION.

; in: JSON-CLASS LOGGING-CONFIGURATION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:LOGGING-CONFIGURATION NIL
;      ((BITCOIN-RPC/CLASSES::ADDRESS-MANAGER "addrman" :BOOL :READER
;        BITCOIN-RPC/CLASSES::ADDRESS-MANAGER)
;       (BITCOIN-RPC/CLASSES::BENCHMARK "bench" :BOOL :READER
;        BITCOIN-RPC/CLASSES::BENCHMARK)
;       (BITCOIN-RPC/CLASSES::BLOCK-STORAGE "blockstorage" :BOOL :READER
;        BITCOIN-RPC/CLASSES::BLOCK-STORAGE)
;       (BITCOIN-RPC/CLASSES::COMPACT-BLOCK "cmpctblock" :BOOL :READER
;        BITCOIN-RPC/CLASSES::COMPACT-BLOCK)
;       (BITCOIN-RPC/CLASSES::COIN-DATA-BASE "coindb" :BOOL :READER
;        BITCOIN-RPC/CLASSES::COIN-DATA-BASE)
;       (BITCOIN-RPC/CLASSES::ESTIMATE-FEE "estimatefee" :BOOL :READER
;        BITCOIN-RPC/CLASSES::ESTIMATE-FEE)
;       ("http" :BOOL :READER BITCOIN-RPC/CLASSES::HTTP)
;       ("i2p" :BOOL :READER BITCOIN-RPC/CLASSES::I2P)
;       ("ipc" :BOOL :READER BITCOIN-RPC/CLASSES::IPC)
;       (BITCOIN-RPC/CLASSES::LEVEL-DATABASE "leveldb" :BOOL :READER
;        BITCOIN-RPC/CLASSES::LEVEL-DATABASE)
;       (BITCOIN-RPC/CLASSES::LIBRARY-EVENT "libevent" :BOOL :READER
;        BITCOIN-RPC/CLASSES::LIBRARY-EVENT)
;       (BITCOIN-RPC/CLASSES:MEMORY-POOL "mempool" :BOOL :READER
;        BITCOIN-RPC/CLASSES:MEMORY-POOL)
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS RPC-INFO
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:RPC-INFO NIL
;      ((BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS "active_commands"
;        (:LIST BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS) :READER
;        BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS :DOCUMENTATION "All active commands")
;       (BITCOIN-RPC/CLASSES::LOG-PATH "logpath" :STRING :READER
;        BITCOIN-RPC/CLASSES::LOG-PATH :DOCUMENTATION
;        "The complete file path to the debug log")))
; 
; note: deleting unreachable code

; in: JSON-CLASS ACTIVE-COMMANDS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS NIL
;      (("method" :STRING :READER BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS-METHOD
;        :DOCUMENTATION "The name of the RPC command")
;       ("duration" :NUMBER :READER BITCOIN-RPC/CLASSES::DURATION :DOCUMENTATION
;        "The running time in microseconds")))
; 
; note: deleting unreachable code

; in: JSON-CLASS MEMORY-INFO-STATS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MEMORY-INFO-STATS NIL
;      (("locked" BITCOIN-RPC/CLASSES::MEMORY-INFO-STATS-LOCKED :READER
;        BITCOIN-RPC/CLASSES::LOCKED :DOCUMENTATION
;        "Information about locked memory manager")))
; 
; note: deleting unreachable code

; in: JSON-CLASS MEMORY-INFO-STATS-LOCKED
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::MEMORY-INFO-STATS-LOCKED
;      NIL
;      (("used" :NUMBER :READER BITCOIN-RPC/CLASSES::USED :DOCUMENTATION
;        "Number of bytes used")
;       ("free" :NUMBER :READER BITCOIN-RPC/CLASSES::FREE :DOCUMENTATION
;        "Number of bytes available in current arenas")
;       ("total" :NUMBER :READER BITCOIN-RPC/CLASSES::TOTAL :DOCUMENTATION
;        "Total number of bytes managed")
;       ("locked" :NUMBER :READER BITCOIN-RPC/CLASSES::LOCKED :DOCUMENTATION
;        "Amount of bytes that succeeded locking. If this number is smaller than total, locking pages failed at some point and key data could be swapped to disk.")
;       (BITCOIN-RPC/CLASSES::CHUNKS-USED "chunks_used" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CHUNKS-USED :DOCUMENTATION "Number allocated chunks")
;       (BITCOIN-RPC/CLASSES::CHUNKS-FREE "chunks_free" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CHUNKS-FREE :DOCUMENTATION "Number unused chunks")))
; 
; note: deleting unreachable code

; in: JSON-CLASS TRANSACTION-OUTPUT-SET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:TRANSACTION-OUTPUT-SET NIL
;      (("success" :BOOL :READER BITCOIN-RPC/CLASSES::SUCCESS)
;       (BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS "txouts" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS :DOCUMENTATION
;        "The number of unspent transaction outputs scanned")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "The current block height (index)")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK "bestblock" :STRING :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK :DOCUMENTATION
;        "The hash of the block at the tip of the chain")
;       ("unspents" (:LIST BITCOIN-RPC/CLASSES:UNSPENT-TRANSACTION-OUTPUT) :READER
;        BITCOIN-RPC/CLASSES::UNSPENTS)
;       (BITCOIN-RPC/CLASSES::TOTAL-AMOUNT "total_amount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TOTAL-AMOUNT :DOCUMENTATION
;        "The total amount of all found unspent outputs in BTC")))
; 
; note: deleting unreachable code

; in: JSON-CLASS UNSPENT-TRANSACTION-OUTPUT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:UNSPENT-TRANSACTION-OUTPUT
;      NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION "The transaction id")
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION "the vout value")
;       ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The bitcoin address.")
;       ("label" :STRING :READER BITCOIN-RPC/CLASSES::LABEL :DOCUMENTATION
;        "The associated label, or \"\" for the default label")
;       ("amount" :NUMBER :READER BITCOIN-RPC/CLASSES::AMOUNT :DOCUMENTATION
;        "the transaction output amount in BTC")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK "bestblock" :STRING :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK :DOCUMENTATION
;        "The hash of the block at the tip of the chain")
;       ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;        :DOCUMENTATION "The number of confirmations")
;       (BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeemScript" :STRING :READER
;        BITCOIN-RPC/CLASSES::REDEEM-SCRIPT :DOCUMENTATION
;        "The string value of the hex-encoded redemption script.")
;       (BITCOIN-RPC/CLASSES::WITNESS-SCRIPT "witnessScript" :STRING :READER
;        BITCOIN-RPC/CLASSES::WITNESS-SCRIPT :DOCUMENTATION
;        "witnessScript if the scriptPubKey is P2WSH or P2SH-P2WSH")
;       ("spendable" :BOOL :READER BITCOIN-RPC/CLASSES::SPENDABLE :DOCUMENTATION
;        "Whether we have the private keys to spend this output")
;       ("solvable" :BOOL :READER BITCOIN-RPC/CLASSES::SOLVABLE :DOCUMENTATION
;        "Whether we know how to spend this output, ignoring the lack of keys")
;       ("reused" :BOOL :READER BITCOIN-RPC/CLASSES::REUSED :DOCUMENTATION
;        "(only present if avoid_reuse is set) Whether this output is reused/dirty (sent to an address that was previously spent from)")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS UNSPENT-TRANSACTION-OUTPUT-SET
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:UNSPENT-TRANSACTION-OUTPUT-SET NIL
;      (("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "The current block height (index)")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK "bestblock" :STRING :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK :DOCUMENTATION
;        "The hash of the block at the tip of the chain")
;       (BITCOIN-RPC/CLASSES:TRANSACTIONS "transactions" :NUMBER :READER
;        BITCOIN-RPC/CLASSES:TRANSACTIONS :DOCUMENTATION
;        "The number of transactions with unspent outputs")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS "txouts" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS :DOCUMENTATION
;        "The number of unspent transaction outputs")
;       (BITCOIN-RPC/CLASSES::BOGO-SIZE "bogosize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BOGO-SIZE :DOCUMENTATION
;        "A meaningless metric for UTXO set size")
;       (BITCOIN-RPC/CLASSES::HASH-SERIALIZED-2 "hash_serialized_2" :STRING :READER
;        BITCOIN-RPC/CLASSES::HASH-SERIALIZED-2 :DOCUMENTATION
;        "The serialized hash (only present if 'hash_serialized_2' hash_type is chosen)")
;       (BITCOIN-RPC/CLASSES::DISK-SIZE "disk_size" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::DISK-SIZE :DOCUMENTATION
;        "The estimated size of the chainstate on disk")
;       (BITCOIN-RPC/CLASSES::TOTAL-AMOUNT "total_amount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TOTAL-AMOUNT :DOCUMENTATION "The total amount")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SCRIPT-PUBLIC-KEY
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY
;      (BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE)
;      ((BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES "reqSigs" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES :DOCUMENTATION
;        "Number of required signatures")
;       ("addresses" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::ADDRESSES
;        :DOCUMENTATION "array of bitcoin addresses")
;       ("address" :STRING)
;       (BITCOIN-RPC/CLASSES:DESCRIPTOR "desc" :STRING :READER
;        BITCOIN-RPC/CLASSES:DESCRIPTOR)))
; 
; note: deleting unreachable code

; in: JSON-CLASS TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:TRANSACTION NIL
;      ((BITCOIN-RPC/CLASSES::INVOLVES-WATCH-ONLY "involvesWatchonly" :BOOL :READER
;        BITCOIN-RPC/CLASSES::INVOLVES-WATCH-ONLY :DOCUMENTATION
;        "Only returns true if imported addresses were involved in transaction.")
;       ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The bitcoin address involved in the transaction.")
;       ("category" :STRING :READER BITCOIN-RPC/CLASSES::CATEGORY :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER (370)) The transaction category.
;   "send"                  Transactions sent.
;   "receive"               Non-coinbase transactions received.
;   "generate"              Coinbase transactions received with more than 1... {100DE2493F}>)
;       ("label" :STRING :READER BITCOIN-RPC/CLASSES::LABEL :DOCUMENTATION
;        "A comment for the address/transaction, if any")
;       ("vout" :NUMBER :READER BITCOIN-RPC/CLASSES:VOUT :DOCUMENTATION
;        "the vout value")
;       ("amount" :NUMBER :READER BITCOIN-RPC/CLASSES::AMOUNT :DOCUMENTATION
;        "The amount in BTC")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        "The amount of the fee in BTC. This is negative and only available for the 'send' category of transactions.")
;       ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;        :DOCUMENTATION
;        "The number of confirmations for the transaction. Negative confirmations means the transaction conflicted that many blocks ago.")
;       ("generated" :BOOL :READER BITCOIN-RPC/CLASSES::GENERATED :DOCUMENTATION
;        "Only present if transaction only input is a coinbase one.")
;       ("trusted" :BOOL :READER BITCOIN-RPC/CLASSES::TRUSTED :DOCUMENTATION
;        "Only present if we consider transaction to be trusted and so safe to spend from.")
;       (BITCOIN-RPC/CLASSES::BLOCK-HASH "blockhash" :STRING :READER
;        BITCOIN-RPC/CLASSES::BLOCK-HASH :DOCUMENTATION
;        "The block hash containing the transaction.")
;       (BITCOIN-RPC/CLASSES::BLOCK-HEIGHT "blockheight" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BLOCK-HEIGHT :DOCUMENTATION
;        "The block height containing the transaction.")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS MEMORY-POOL
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MEMORY-POOL NIL
;      (("loaded" :BOOL :READER BITCOIN-RPC/CLASSES::LOADED :DOCUMENTATION
;        "True if the mempool is fully loaded")
;       ("size" :NUMBER :READER BITCOIN-RPC/CLASSES:SIZE :DOCUMENTATION
;        "Current tx count")
;       ("bytes" :NUMBER :READER BITCOIN-RPC/CLASSES::BYTES :DOCUMENTATION
;        "Sum of all virtual transaction sizes as defined in BIP 141. Differs from actual serialized size because witness data is discounted")
;       ("usage" :NUMBER :READER BITCOIN-RPC/CLASSES::USAGE :DOCUMENTATION
;        "Total memory usage for the mempool")
;       (BITCOIN-RPC/CLASSES::MAXIMUM-MEMORY-POOL "maxmempool" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MAXIMUM-MEMORY-POOL :DOCUMENTATION
;        "Maximum memory usage for the mempool")
;       (BITCOIN-RPC/CLASSES::MEMORY-POOL-MINIMUM-FEE "mempoolminfee" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::MEMORY-POOL-MINIMUM-FEE :DOCUMENTATION
;        "Minimum fee rate in BTC/kB for tx to be accepted. Is the maximum of minrelaytxfee and minimum mempool fee")
;       (BITCOIN-RPC/CLASSES::MINIMUM-RELAY-TRANSACTION-FEE "minrelaytxfee" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::MINIMUM-RELAY-TRANSACTION-FEE :DOCUMENTATION
;        "Current minimum relay fee for transactions")
;       (BITCOIN-RPC/CLASSES::UNBROADCAST-COUNT "unbroadcastcount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::UNBROADCAST-COUNT :DOCUMENTATION
;        "Current number of transactions that haven't passed initial broadcast yet")
;       (BITCOIN-RPC/CLASSES::FULL-REPLACE-BY-FEE "fullrbf" :BOOL :READER
;        BITCOIN-RPC/CLASSES::FULL-REPLACE-BY-FEE)
;       (BITCOIN-RPC/CLASSES::INCREMENTAL-RELAY-FEE "incrementalrelayfee" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::INCREMENTAL-RELAY-FEE)
;       (BITCOIN-RPC/CLASSES::TOTAL-FEE "total_fee" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TOTAL-FEE)))
; 
; note: deleting unreachable code

; in: JSON-CLASS MEMORY-POOL-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MEMORY-POOL-TRANSACTION
;      NIL
;      ((BITCOIN-RPC/CLASSES::VIRTUAL-SIZE "vsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VIRTUAL-SIZE :DOCUMENTATION
;        "virtual transaction size as defined in BIP 141. This is different from actual serialized size for witness transactions as witness data is discounted.")
;       ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;        "transaction weight as defined in BIP 141.")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        "transaction fee in BTC (DEPRECATED)")
;       (BITCOIN-RPC/CLASSES::MODIFIED-FEE "modifiedfee" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MODIFIED-FEE :DOCUMENTATION
;        "transaction fee with fee deltas used for mining priority (DEPRECATED)")
;       ("time" :NUMBER :READER BITCOIN-RPC/CLASSES::LOCAL-TIME :DOCUMENTATION
;        "local time transaction entered pool in seconds since 1 Jan 1970 GMT")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "block height when transaction entered pool")
;       (BITCOIN-RPC/CLASSES::DESCENDANT-COUNT "descendantcount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::DESCENDANT-COUNT :DOCUMENTATION
;        "number of in-mempool descendant transactions (including this one)")
;       (BITCOIN-RPC/CLASSES::DESCENDANT-SIZE "descendantsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::DESCENDANT-SIZE :DOCUMENTATION
;        "virtual transaction size of in-mempool descendants (including this one)")
;       (BITCOIN-RPC/CLASSES::DESCENDANT-FEES "descendantfees" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::DESCENDANT-FEES :DOCUMENTATION
;        "modified fees (see above) of in-mempool descendants (including this one) (DEPRECATED)")
;       (BITCOIN-RPC/CLASSES::ANCESTOR-COUNT "ancestorcount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::ANCESTOR-COUNT :DOCUMENTATION
;        "number of in-mempool ancestor transactions (including this one)")
;       (BITCOIN-RPC/CLASSES::ANCESTOR-SIZE "ancestorsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::ANCESTOR-SIZE :DOCUMENTATION
;        "virtual transaction size of in-mempool ancestors (including this one)")
;       (BITCOIN-RPC/CLASSES::ANCESTOR-FEES "ancestorfees" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::ANCESTOR-FEES :DOCUMENTATION
;        "modified fees (see above) of in-mempool ancestors (including this one) (DEPRECATED)")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS FEES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::FEES NIL
;      (("base" :NUMBER :READER BITCOIN-RPC/CLASSES:BASE :DOCUMENTATION
;        "transaction fee in BTC")
;       ("modified" :NUMBER :READER BITCOIN-RPC/CLASSES::MODIFIED :DOCUMENTATION
;        "transaction fee with fee deltas used for mining priority in BTC")
;       ("ancestor" :NUMBER :READER BITCOIN-RPC/CLASSES::ANCESTOR :DOCUMENTATION
;        "modified fees (see above) of in-mempool ancestors (including this one) in BTC")
;       ("descendant" :NUMBER :READER BITCOIN-RPC/CLASSES::DESCENDANT
;        :DOCUMENTATION
;        "modified fees (see above) of in-mempool descendants (including this one) in BTC")))
; 
; note: deleting unreachable code

; in: JSON-CLASS RAW-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:RAW-TRANSACTION NIL
;      ((BITCOIN-RPC/CLASSES::IN-ACTIVE-CHAIN "in_active_chain" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IN-ACTIVE-CHAIN :DOCUMENTATION
;        "Whether specified block is in the active chain or not (only present with explicit \"blockhash\" argument)")
;       ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The serialized, hex-encoded data for 'txid'")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The transaction id (same as provided)")
;       ("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;        "The transaction hash (differs from txid for witness transactions)")
;       ("size" :NUMBER :READER BITCOIN-RPC/CLASSES:SIZE :DOCUMENTATION
;        "The serialized transaction size")
;       (BITCOIN-RPC/CLASSES::VIRTUAL-SIZE "vsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VIRTUAL-SIZE :DOCUMENTATION
;        "The virtual transaction size (differs from size for witness transactions)")
;       ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;        "The transaction's weight (between vsize*4-3 and vsize*4)")
;       ("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;        "The version")
;       (BITCOIN-RPC/CLASSES::LOCK-TIME "locktime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::LOCK-TIME :DOCUMENTATION "The lock time")
;       (BITCOIN-RPC/CLASSES::VALUE-IN "vin" (:LIST BITCOIN-RPC/CLASSES:VIN)
;        :READER BITCOIN-RPC/CLASSES::VALUE-IN)
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" (:LIST BITCOIN-RPC/CLASSES:VOUT)
;        :READER BITCOIN-RPC/CLASSES::VALUE-OUT)
;       (BITCOIN-RPC/CLASSES::BLOCK-HASH "blockhash" :STRING :READER
;        BITCOIN-RPC/CLASSES::BLOCK-HASH :DOCUMENTATION "the block hash")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS RPC-INFO
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:RPC-INFO NIL
;      ((BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS "active_commands"
;        (:LIST BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS) :READER
;        BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS :DOCUMENTATION "All active commands")
;       (BITCOIN-RPC/CLASSES::LOG-PATH "logpath" :STRING :READER
;        BITCOIN-RPC/CLASSES::LOG-PATH :DOCUMENTATION
;        "The complete file path to the debug log")))
; 
; note: deleting unreachable code

; in: JSON-CLASS ACTIVE-COMMANDS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS NIL
;      (("method" :STRING :READER BITCOIN-RPC/CLASSES::ACTIVE-COMMANDS-METHOD
;        :DOCUMENTATION "The name of the RPC command")
;       ("duration" :NUMBER :READER BITCOIN-RPC/CLASSES::DURATION :DOCUMENTATION
;        "The running time in microseconds")))
; 
; note: deleting unreachable code

; in: JSON-CLASS MEMORY-INFO-STATS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MEMORY-INFO-STATS NIL
;      (("locked" BITCOIN-RPC/CLASSES::MEMORY-INFO-STATS-LOCKED :READER
;        BITCOIN-RPC/CLASSES::LOCKED :DOCUMENTATION
;        "Information about locked memory manager")))
; 
; note: deleting unreachable code

; in: JSON-CLASS MEMORY-INFO-STATS-LOCKED
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::MEMORY-INFO-STATS-LOCKED
;      NIL
;      (("used" :NUMBER :READER BITCOIN-RPC/CLASSES::USED :DOCUMENTATION
;        "Number of bytes used")
;       ("free" :NUMBER :READER BITCOIN-RPC/CLASSES::FREE :DOCUMENTATION
;        "Number of bytes available in current arenas")
;       ("total" :NUMBER :READER BITCOIN-RPC/CLASSES::TOTAL :DOCUMENTATION
;        "Total number of bytes managed")
;       ("locked" :NUMBER :READER BITCOIN-RPC/CLASSES::LOCKED :DOCUMENTATION
;        "Amount of bytes that succeeded locking. If this number is smaller than total, locking pages failed at some point and key data could be swapped to disk.")
;       (BITCOIN-RPC/CLASSES::CHUNKS-USED "chunks_used" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CHUNKS-USED :DOCUMENTATION "Number allocated chunks")
;       (BITCOIN-RPC/CLASSES::CHUNKS-FREE "chunks_free" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CHUNKS-FREE :DOCUMENTATION "Number unused chunks")))
; 
; note: deleting unreachable code

; in: JSON-CLASS TRANSACTION-OUTPUT-SET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:TRANSACTION-OUTPUT-SET NIL
;      (("success" :BOOL :READER BITCOIN-RPC/CLASSES::SUCCESS)
;       (BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS "txouts" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS :DOCUMENTATION
;        "The number of unspent transaction outputs scanned")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "The current block height (index)")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK "bestblock" :STRING :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK :DOCUMENTATION
;        "The hash of the block at the tip of the chain")
;       ("unspents" (:LIST BITCOIN-RPC/CLASSES:UNSPENT-TRANSACTION-OUTPUT) :READER
;        BITCOIN-RPC/CLASSES::UNSPENTS)
;       (BITCOIN-RPC/CLASSES::TOTAL-AMOUNT "total_amount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TOTAL-AMOUNT :DOCUMENTATION
;        "The total amount of all found unspent outputs in BTC")))
; 
; note: deleting unreachable code

; in: JSON-CLASS UNSPENT-TRANSACTION-OUTPUT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:UNSPENT-TRANSACTION-OUTPUT
;      NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION "The transaction id")
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION "the vout value")
;       ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The bitcoin address.")
;       ("label" :STRING :READER BITCOIN-RPC/CLASSES::LABEL :DOCUMENTATION
;        "The associated label, or \"\" for the default label")
;       ("amount" :NUMBER :READER BITCOIN-RPC/CLASSES::AMOUNT :DOCUMENTATION
;        "the transaction output amount in BTC")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK "bestblock" :STRING :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK :DOCUMENTATION
;        "The hash of the block at the tip of the chain")
;       ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;        :DOCUMENTATION "The number of confirmations")
;       (BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeemScript" :STRING :READER
;        BITCOIN-RPC/CLASSES::REDEEM-SCRIPT :DOCUMENTATION
;        "The string value of the hex-encoded redemption script.")
;       (BITCOIN-RPC/CLASSES::WITNESS-SCRIPT "witnessScript" :STRING :READER
;        BITCOIN-RPC/CLASSES::WITNESS-SCRIPT :DOCUMENTATION
;        "witnessScript if the scriptPubKey is P2WSH or P2SH-P2WSH")
;       ("spendable" :BOOL :READER BITCOIN-RPC/CLASSES::SPENDABLE :DOCUMENTATION
;        "Whether we have the private keys to spend this output")
;       ("solvable" :BOOL :READER BITCOIN-RPC/CLASSES::SOLVABLE :DOCUMENTATION
;        "Whether we know how to spend this output, ignoring the lack of keys")
;       ("reused" :BOOL :READER BITCOIN-RPC/CLASSES::REUSED :DOCUMENTATION
;        "(only present if avoid_reuse is set) Whether this output is reused/dirty (sent to an address that was previously spent from)")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS UNSPENT-TRANSACTION-OUTPUT-SET
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:UNSPENT-TRANSACTION-OUTPUT-SET NIL
;      (("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "The current block height (index)")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK "bestblock" :STRING :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK :DOCUMENTATION
;        "The hash of the block at the tip of the chain")
;       (BITCOIN-RPC/CLASSES:TRANSACTIONS "transactions" :NUMBER :READER
;        BITCOIN-RPC/CLASSES:TRANSACTIONS :DOCUMENTATION
;        "The number of transactions with unspent outputs")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS "txouts" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-OUTPUTS :DOCUMENTATION
;        "The number of unspent transaction outputs")
;       (BITCOIN-RPC/CLASSES::BOGO-SIZE "bogosize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BOGO-SIZE :DOCUMENTATION
;        "A meaningless metric for UTXO set size")
;       (BITCOIN-RPC/CLASSES::HASH-SERIALIZED-2 "hash_serialized_2" :STRING :READER
;        BITCOIN-RPC/CLASSES::HASH-SERIALIZED-2 :DOCUMENTATION
;        "The serialized hash (only present if 'hash_serialized_2' hash_type is chosen)")
;       (BITCOIN-RPC/CLASSES::DISK-SIZE "disk_size" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::DISK-SIZE :DOCUMENTATION
;        "The estimated size of the chainstate on disk")
;       (BITCOIN-RPC/CLASSES::TOTAL-AMOUNT "total_amount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TOTAL-AMOUNT :DOCUMENTATION "The total amount")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SCRIPT-PUBLIC-KEY
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY
;      (BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE)
;      ((BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES "reqSigs" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES :DOCUMENTATION
;        "Number of required signatures")
;       ("addresses" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::ADDRESSES
;        :DOCUMENTATION "array of bitcoin addresses")
;       ("address" :STRING)
;       (BITCOIN-RPC/CLASSES:DESCRIPTOR "desc" :STRING :READER
;        BITCOIN-RPC/CLASSES:DESCRIPTOR)))
; 
; note: deleting unreachable code

; in: JSON-CLASS TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:TRANSACTION NIL
;      ((BITCOIN-RPC/CLASSES::INVOLVES-WATCH-ONLY "involvesWatchonly" :BOOL :READER
;        BITCOIN-RPC/CLASSES::INVOLVES-WATCH-ONLY :DOCUMENTATION
;        "Only returns true if imported addresses were involved in transaction.")
;       ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The bitcoin address involved in the transaction.")
;       ("category" :STRING :READER BITCOIN-RPC/CLASSES::CATEGORY :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER (370)) The transaction category.
;   "send"                  Transactions sent.
;   "receive"               Non-coinbase transactions received.
;   "generate"              Coinbase transactions received with more than 1... {100DE2493F}>)
;       ("label" :STRING :READER BITCOIN-RPC/CLASSES::LABEL :DOCUMENTATION
;        "A comment for the address/transaction, if any")
;       ("vout" :NUMBER :READER BITCOIN-RPC/CLASSES:VOUT :DOCUMENTATION
;        "the vout value")
;       ("amount" :NUMBER :READER BITCOIN-RPC/CLASSES::AMOUNT :DOCUMENTATION
;        "The amount in BTC")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        "The amount of the fee in BTC. This is negative and only available for the 'send' category of transactions.")
;       ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;        :DOCUMENTATION
;        "The number of confirmations for the transaction. Negative confirmations means the transaction conflicted that many blocks ago.")
;       ("generated" :BOOL :READER BITCOIN-RPC/CLASSES::GENERATED :DOCUMENTATION
;        "Only present if transaction only input is a coinbase one.")
;       ("trusted" :BOOL :READER BITCOIN-RPC/CLASSES::TRUSTED :DOCUMENTATION
;        "Only present if we consider transaction to be trusted and so safe to spend from.")
;       (BITCOIN-RPC/CLASSES::BLOCK-HASH "blockhash" :STRING :READER
;        BITCOIN-RPC/CLASSES::BLOCK-HASH :DOCUMENTATION
;        "The block hash containing the transaction.")
;       (BITCOIN-RPC/CLASSES::BLOCK-HEIGHT "blockheight" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BLOCK-HEIGHT :DOCUMENTATION
;        "The block height containing the transaction.")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS MEMORY-POOL
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MEMORY-POOL NIL
;      (("loaded" :BOOL :READER BITCOIN-RPC/CLASSES::LOADED :DOCUMENTATION
;        "True if the mempool is fully loaded")
;       ("size" :NUMBER :READER BITCOIN-RPC/CLASSES:SIZE :DOCUMENTATION
;        "Current tx count")
;       ("bytes" :NUMBER :READER BITCOIN-RPC/CLASSES::BYTES :DOCUMENTATION
;        "Sum of all virtual transaction sizes as defined in BIP 141. Differs from actual serialized size because witness data is discounted")
;       ("usage" :NUMBER :READER BITCOIN-RPC/CLASSES::USAGE :DOCUMENTATION
;        "Total memory usage for the mempool")
;       (BITCOIN-RPC/CLASSES::MAXIMUM-MEMORY-POOL "maxmempool" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MAXIMUM-MEMORY-POOL :DOCUMENTATION
;        "Maximum memory usage for the mempool")
;       (BITCOIN-RPC/CLASSES::MEMORY-POOL-MINIMUM-FEE "mempoolminfee" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::MEMORY-POOL-MINIMUM-FEE :DOCUMENTATION
;        "Minimum fee rate in BTC/kB for tx to be accepted. Is the maximum of minrelaytxfee and minimum mempool fee")
;       (BITCOIN-RPC/CLASSES::MINIMUM-RELAY-TRANSACTION-FEE "minrelaytxfee" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::MINIMUM-RELAY-TRANSACTION-FEE :DOCUMENTATION
;        "Current minimum relay fee for transactions")
;       (BITCOIN-RPC/CLASSES::UNBROADCAST-COUNT "unbroadcastcount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::UNBROADCAST-COUNT :DOCUMENTATION
;        "Current number of transactions that haven't passed initial broadcast yet")
;       (BITCOIN-RPC/CLASSES::FULL-REPLACE-BY-FEE "fullrbf" :BOOL :READER
;        BITCOIN-RPC/CLASSES::FULL-REPLACE-BY-FEE)
;       (BITCOIN-RPC/CLASSES::INCREMENTAL-RELAY-FEE "incrementalrelayfee" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::INCREMENTAL-RELAY-FEE)
;       (BITCOIN-RPC/CLASSES::TOTAL-FEE "total_fee" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TOTAL-FEE)))
; 
; note: deleting unreachable code

; in: JSON-CLASS MEMORY-POOL-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MEMORY-POOL-TRANSACTION
;      NIL
;      ((BITCOIN-RPC/CLASSES::VIRTUAL-SIZE "vsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VIRTUAL-SIZE :DOCUMENTATION
;        "virtual transaction size as defined in BIP 141. This is different from actual serialized size for witness transactions as witness data is discounted.")
;       ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;        "transaction weight as defined in BIP 141.")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        "transaction fee in BTC (DEPRECATED)")
;       (BITCOIN-RPC/CLASSES::MODIFIED-FEE "modifiedfee" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MODIFIED-FEE :DOCUMENTATION
;        "transaction fee with fee deltas used for mining priority (DEPRECATED)")
;       ("time" :NUMBER :READER BITCOIN-RPC/CLASSES::LOCAL-TIME :DOCUMENTATION
;        "local time transaction entered pool in seconds since 1 Jan 1970 GMT")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "block height when transaction entered pool")
;       (BITCOIN-RPC/CLASSES::DESCENDANT-COUNT "descendantcount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::DESCENDANT-COUNT :DOCUMENTATION
;        "number of in-mempool descendant transactions (including this one)")
;       (BITCOIN-RPC/CLASSES::DESCENDANT-SIZE "descendantsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::DESCENDANT-SIZE :DOCUMENTATION
;        "virtual transaction size of in-mempool descendants (including this one)")
;       (BITCOIN-RPC/CLASSES::DESCENDANT-FEES "descendantfees" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::DESCENDANT-FEES :DOCUMENTATION
;        "modified fees (see above) of in-mempool descendants (including this one) (DEPRECATED)")
;       (BITCOIN-RPC/CLASSES::ANCESTOR-COUNT "ancestorcount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::ANCESTOR-COUNT :DOCUMENTATION
;        "number of in-mempool ancestor transactions (including this one)")
;       (BITCOIN-RPC/CLASSES::ANCESTOR-SIZE "ancestorsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::ANCESTOR-SIZE :DOCUMENTATION
;        "virtual transaction size of in-mempool ancestors (including this one)")
;       (BITCOIN-RPC/CLASSES::ANCESTOR-FEES "ancestorfees" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::ANCESTOR-FEES :DOCUMENTATION
;        "modified fees (see above) of in-mempool ancestors (including this one) (DEPRECATED)")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS FEES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::FEES NIL
;      (("base" :NUMBER :READER BITCOIN-RPC/CLASSES:BASE :DOCUMENTATION
;        "transaction fee in BTC")
;       ("modified" :NUMBER :READER BITCOIN-RPC/CLASSES::MODIFIED :DOCUMENTATION
;        "transaction fee with fee deltas used for mining priority in BTC")
;       ("ancestor" :NUMBER :READER BITCOIN-RPC/CLASSES::ANCESTOR :DOCUMENTATION
;        "modified fees (see above) of in-mempool ancestors (including this one) in BTC")
;       ("descendant" :NUMBER :READER BITCOIN-RPC/CLASSES::DESCENDANT
;        :DOCUMENTATION
;        "modified fees (see above) of in-mempool descendants (including this one) in BTC")))
; 
; note: deleting unreachable code

; in: JSON-CLASS RAW-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:RAW-TRANSACTION NIL
;      ((BITCOIN-RPC/CLASSES::IN-ACTIVE-CHAIN "in_active_chain" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IN-ACTIVE-CHAIN :DOCUMENTATION
;        "Whether specified block is in the active chain or not (only present with explicit \"blockhash\" argument)")
;       ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The serialized, hex-encoded data for 'txid'")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The transaction id (same as provided)")
;       ("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;        "The transaction hash (differs from txid for witness transactions)")
;       ("size" :NUMBER :READER BITCOIN-RPC/CLASSES:SIZE :DOCUMENTATION
;        "The serialized transaction size")
;       (BITCOIN-RPC/CLASSES::VIRTUAL-SIZE "vsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VIRTUAL-SIZE :DOCUMENTATION
;        "The virtual transaction size (differs from size for witness transactions)")
;       ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;        "The transaction's weight (between vsize*4-3 and vsize*4)")
;       ("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;        "The version")
;       (BITCOIN-RPC/CLASSES::LOCK-TIME "locktime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::LOCK-TIME :DOCUMENTATION "The lock time")
;       (BITCOIN-RPC/CLASSES::VALUE-IN "vin" (:LIST BITCOIN-RPC/CLASSES:VIN)
;        :READER BITCOIN-RPC/CLASSES::VALUE-IN)
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" (:LIST BITCOIN-RPC/CLASSES:VOUT)
;        :READER BITCOIN-RPC/CLASSES::VALUE-OUT)
;       (BITCOIN-RPC/CLASSES::BLOCK-HASH "blockhash" :STRING :READER
;        BITCOIN-RPC/CLASSES::BLOCK-HASH :DOCUMENTATION "the block hash")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS VIN
;     ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION "The transaction id")
;      (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION "The output number")
;      (BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE "scriptSig"
;       BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;       BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :DOCUMENTATION "The script")
;      (BITCOIN-RPC/CLASSES::TRANSACTION-IN-WITNESS "txinwitness" (:LIST :STRING)
;       :READER BITCOIN-RPC/CLASSES::TRANSACTION-IN-WITNESS :DOCUMENTATION
;       "hex-encoded witness data (if any)")
;      (BITCOIN-RPC/CLASSES::SCRIPT-SEQUENCE "sequence" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::SCRIPT-SEQUENCE :DOCUMENTATION
;       "The script sequence number")
;      (BITCOIN-RPC/CLASSES::COIN-BASE "coinbase" :STRING :READER
;       BITCOIN-RPC/CLASSES::COIN-BASE))
; 
; caught ERROR:
;   illegal function call

; in: DEFMETHOD PRINT-OBJECT (VIN T)
;     (DEFMETHOD PRINT-OBJECT
;                ((BITCOIN-RPC/CLASSES::VALUE-IN BITCOIN-RPC/CLASSES:VIN) STREAM)
;       (PRINT-UNREADABLE-OBJECT (BITCOIN-RPC/CLASSES::VALUE-IN STREAM :TYPE T)
;         (FORMAT STREAM "~a"
;                 (STR:SUBSTRING 0 8
;                                (BITCOIN-RPC/CLASSES::TRANSACTION-ID
;                                 BITCOIN-RPC/CLASSES::VALUE-IN)))))
; --> EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER PRINT-OBJECT NIL
;                                ((BITCOIN-RPC/CLASSES::VALUE-IN
;                                  BITCOIN-RPC/CLASSES:VIN)
;                                 STREAM)
;                                ((PRINT-UNREADABLE-OBJECT
;                                     (BITCOIN-RPC/CLASSES::VALUE-IN STREAM :TYPE
;                                      T)
;                                   (FORMAT STREAM "~a" (STR:SUBSTRING 0 8 #)))))
; 
; caught STYLE-WARNING:
;   Cannot find type for specializer BITCOIN-RPC/CLASSES:VIN when executing SB-PCL:SPECIALIZER-TYPE-SPECIFIER for a STANDARD-METHOD of a STANDARD-GENERIC-FUNCTION.

; in: JSON-CLASS VIN
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:VIN NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION "The transaction id")
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION "The output number")
;       (BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE "scriptSig"
;        BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;        BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :DOCUMENTATION "The script")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-IN-WITNESS "txinwitness" (:LIST :STRING)
;        :READER BITCOIN-RPC/CLASSES::TRANSACTION-IN-WITNESS :DOCUMENTATION
;        "hex-encoded witness data (if any)")
;       (BITCOIN-RPC/CLASSES::SCRIPT-SEQUENCE "sequence" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::SCRIPT-SEQUENCE :DOCUMENTATION
;        "The script sequence number")
;       (BITCOIN-RPC/CLASSES::COIN-BASE "coinbase" :STRING :READER
;        BITCOIN-RPC/CLASSES::COIN-BASE)))
; 
; note: deleting unreachable code

; in: JSON-CLASS ASM
;     ((BITCOIN-RPC/CLASSES::ASSEMBLY "asm" :STRING :READER
;       BITCOIN-RPC/CLASSES::ASSEMBLY))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS HEX
;     (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SCRIPT-TYPE
;     ((BITCOIN-RPC/CLASSES::SCRIPT-TYPE "type" :STRING :READER
;       BITCOIN-RPC/CLASSES::SCRIPT-TYPE :DOCUMENTATION
;       "The type, eg 'pubkeyhash'"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS VOUT
;     (("value" :NUMBER :READER BITCOIN-RPC/CLASSES::VALUE :DOCUMENTATION
;       "The value in BTC")
;      (BITCOIN-RPC/CLASSES::INDEX-NUMBER "n" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::INDEX-NUMBER :DOCUMENTATION "index")
;      (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY "scriptPubKey"
;       BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY :READER
;       BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY))
; 
; caught ERROR:
;   illegal function call

; in: DEFMETHOD PRINT-OBJECT (VOUT T)
;     (DEFMETHOD PRINT-OBJECT
;                ((BITCOIN-RPC/CLASSES::VALUE-OUT BITCOIN-RPC/CLASSES:VOUT) STREAM)
;       (PRINT-UNREADABLE-OBJECT (BITCOIN-RPC/CLASSES::VALUE-OUT STREAM :TYPE T)
;         (FORMAT STREAM "~a"
;                 (WRITE-TO-STRING
;                  (BITCOIN-RPC/CLASSES::VALUE BITCOIN-RPC/CLASSES::VALUE-OUT)))))
; --> EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER PRINT-OBJECT NIL
;                                ((BITCOIN-RPC/CLASSES::VALUE-OUT
;                                  BITCOIN-RPC/CLASSES:VOUT)
;                                 STREAM)
;                                ((PRINT-UNREADABLE-OBJECT
;                                     (BITCOIN-RPC/CLASSES::VALUE-OUT STREAM
;                                      :TYPE T)
;                                   (FORMAT STREAM "~a" (WRITE-TO-STRING #)))))
; 
; caught STYLE-WARNING:
;   Cannot find type for specializer BITCOIN-RPC/CLASSES:VOUT when executing SB-PCL:SPECIALIZER-TYPE-SPECIFIER for a STANDARD-METHOD of a STANDARD-GENERIC-FUNCTION.

; in: JSON-CLASS ASM
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::ASM NIL
;      ((BITCOIN-RPC/CLASSES::ASSEMBLY "asm" :STRING :READER
;        BITCOIN-RPC/CLASSES::ASSEMBLY)))
; 
; note: deleting unreachable code

; in: JSON-CLASS HEX
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::HEX NIL
;      (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX)))
; 
; note: deleting unreachable code

; in: JSON-CLASS SCRIPT-TYPE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::SCRIPT-TYPE NIL
;      ((BITCOIN-RPC/CLASSES::SCRIPT-TYPE "type" :STRING :READER
;        BITCOIN-RPC/CLASSES::SCRIPT-TYPE :DOCUMENTATION
;        "The type, eg 'pubkeyhash'")))
; 
; note: deleting unreachable code

; in: JSON-CLASS VOUT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:VOUT NIL
;      (("value" :NUMBER :READER BITCOIN-RPC/CLASSES::VALUE :DOCUMENTATION
;        "The value in BTC")
;       (BITCOIN-RPC/CLASSES::INDEX-NUMBER "n" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::INDEX-NUMBER :DOCUMENTATION "index")
;       (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY "scriptPubKey"
;        BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY :READER
;        BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY)))
; 
; note: deleting unreachable code

; in: JSON-CLASS HEX
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::HEX NIL
;      (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX)))
; 
; note: deleting unreachable code

; in: JSON-CLASS SCRIPT-TYPE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::SCRIPT-TYPE NIL
;      ((BITCOIN-RPC/CLASSES::SCRIPT-TYPE "type" :STRING :READER
;        BITCOIN-RPC/CLASSES::SCRIPT-TYPE :DOCUMENTATION
;        "The type, eg 'pubkeyhash'")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SCRIPT-SIGNATURE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE
;      (BITCOIN-RPC/CLASSES::ASM BITCOIN-RPC/CLASSES::HEX
;       BITCOIN-RPC/CLASSES::SCRIPT-TYPE)
;      NIL)
; 
; note: deleting unreachable code

; in: JSON-CLASS VOUT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:VOUT NIL
;      (("value" :NUMBER :READER BITCOIN-RPC/CLASSES::VALUE :DOCUMENTATION
;        "The value in BTC")
;       (BITCOIN-RPC/CLASSES::INDEX-NUMBER "n" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::INDEX-NUMBER :DOCUMENTATION "index")
;       (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY "scriptPubKey"
;        BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY :READER
;        BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY)))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-BASE
;     (("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;       "the block hash (same as provided)")
;      ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;       :DOCUMENTATION
;       "The number of confirmations, or -1 if the block is not on the main chain")
;      ("size" :NUMBER :READER BITCOIN-RPC/CLASSES:SIZE :DOCUMENTATION
;       "The block size")
;      (BITCOIN-RPC/CLASSES:STRIPPED-SIZE "strippedsize" :NUMBER :READER
;       BITCOIN-RPC/CLASSES:STRIPPED-SIZE :DOCUMENTATION
;       "The block size excluding witness data")
;      ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;       "The block weight as defined in BIP 141")
;      ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;       "The block height or index")
;      ("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;       "The block version")
;      (BITCOIN-RPC/CLASSES:VERSION-HEX "versionHex" :STRING :READER
;       BITCOIN-RPC/CLASSES:VERSION-HEX :DOCUMENTATION
;       "The block version formatted in hexadecimal")
;      (BITCOIN-RPC/CLASSES:MERKLE-ROOT "merkleroot" :STRING :READER
;       BITCOIN-RPC/CLASSES:MERKLE-ROOT :DOCUMENTATION "The merkle root")
;      ("time" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCK-TIME :DOCUMENTATION
;       "The block time expressed in UNIX epoch time")
;      (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;       BITCOIN-RPC/CLASSES:MEDIAN-TIME :DOCUMENTATION
;       "The median block time expressed in UNIX epoch time")
;      ("nonce" :NUMBER :READER BITCOIN-RPC/CLASSES:NONCE :DOCUMENTATION
;       "The nonce")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BLOCK-SIMPLE
;     ((BITCOIN-RPC/CLASSES:TRANSACTIONS "tx" (:LIST :STRING) :READER
;       BITCOIN-RPC/CLASSES:TRANSACTIONS :DOCUMENTATION "The transaction ids"))
; 
; caught ERROR:
;   illegal function call

; in: DEFMETHOD PRINT-OBJECT (BLOCK-SIMPLE T)
;     (DEFMETHOD PRINT-OBJECT ((BLOCK BITCOIN-RPC/CLASSES:BLOCK-SIMPLE) STREAM)
;       (PRINT-UNREADABLE-OBJECT (BLOCK STREAM)
;         (FORMAT STREAM "~a"
;                 (STR:CONCAT "Block " (WRITE-TO-STRING #) " "
;                             (STR:SUBSTRING 56 64 #)))))
; --> EVAL-WHEN 
; ==>
;   (SB-PCL::%DEFMETHOD-EXPANDER PRINT-OBJECT NIL
;                                ((BLOCK BITCOIN-RPC/CLASSES:BLOCK-SIMPLE)
;                                 STREAM)
;                                ((PRINT-UNREADABLE-OBJECT (BLOCK STREAM)
;                                   (FORMAT STREAM "~a"
;                                           (STR:CONCAT "Block " # " " #)))))
; 
; caught STYLE-WARNING:
;   Cannot find type for specializer BITCOIN-RPC/CLASSES:BLOCK-SIMPLE when executing SB-PCL:SPECIALIZER-TYPE-SPECIFIER for a STANDARD-METHOD of a STANDARD-GENERIC-FUNCTION.

; in: JSON-CLASS BLOCK-BASE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::BLOCK-BASE NIL
;      (("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;        "the block hash (same as provided)")
;       ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;        :DOCUMENTATION
;        "The number of confirmations, or -1 if the block is not on the main chain")
;       ("size" :NUMBER :READER BITCOIN-RPC/CLASSES:SIZE :DOCUMENTATION
;        "The block size")
;       (BITCOIN-RPC/CLASSES:STRIPPED-SIZE "strippedsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES:STRIPPED-SIZE :DOCUMENTATION
;        "The block size excluding witness data")
;       ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;        "The block weight as defined in BIP 141")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "The block height or index")
;       ("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;        "The block version")
;       (BITCOIN-RPC/CLASSES:VERSION-HEX "versionHex" :STRING :READER
;        BITCOIN-RPC/CLASSES:VERSION-HEX :DOCUMENTATION
;        "The block version formatted in hexadecimal")
;       (BITCOIN-RPC/CLASSES:MERKLE-ROOT "merkleroot" :STRING :READER
;        BITCOIN-RPC/CLASSES:MERKLE-ROOT :DOCUMENTATION "The merkle root")
;       ("time" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCK-TIME :DOCUMENTATION
;        "The block time expressed in UNIX epoch time")
;       (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES:MEDIAN-TIME :DOCUMENTATION
;        "The median block time expressed in UNIX epoch time")
;       ("nonce" :NUMBER :READER BITCOIN-RPC/CLASSES:NONCE :DOCUMENTATION
;        "The nonce")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-SIMPLE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCK-SIMPLE
;      (BITCOIN-RPC/CLASSES::BLOCK-BASE)
;      ((BITCOIN-RPC/CLASSES:TRANSACTIONS "tx" (:LIST :STRING) :READER
;        BITCOIN-RPC/CLASSES:TRANSACTIONS :DOCUMENTATION "The transaction ids")))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-VERBOSE
;     ((BITCOIN-RPC/CLASSES:TRANSACTIONS "tx"
;       (:LIST BITCOIN-RPC/CLASSES:RAW-TRANSACTION) :READER
;       BITCOIN-RPC/CLASSES:TRANSACTIONS :DOCUMENTATION "The transaction ids"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BLOCK-TEMPLATE
;     (("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;       "The preferred block version")
;      ("rules" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::RULES :DOCUMENTATION
;       "specific block rules that are to be enforced. The client must understand the names of a rule to some extent; see BIP 9 for format")
;      (BITCOIN-RPC/CLASSES::VERSION-BIT-AVAILABLE "vbavailable"
;       (:HASH-TABLE :NUMBER) :READER BITCOIN-RPC/CLASSES::VERSION-BIT-AVAILABLE
;       :DOCUMENTATION
;       "set of pending, supported versionbit (BIP 9) softfork deployments.
;   identifies the bit number as indicating acceptance and readiness for the named softfork rule")
;      (BITCOIN-RPC/CLASSES::VERSION-BIT-REQUIRED "vbrequired" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::VERSION-BIT-REQUIRED :DOCUMENTATION
;       "bit mask of versionbits the server requires set in submissions")
;      (BITCOIN-RPC/CLASSES:PREVIOUS-BLOCK-HASH "previousblockhash" :STRING :READER
;       BITCOIN-RPC/CLASSES:PREVIOUS-BLOCK-HASH)
;      ("transactions" (:LIST BITCOIN-RPC/CLASSES::INCLUDED-TRANSACTION) :READER
;       BITCOIN-RPC/CLASSES:TRANSACTIONS)
;      (BITCOIN-RPC/CLASSES::COINBASE-AUX "coinbaseaux" (:HASH-TABLE :STRING)
;       :READER BITCOIN-RPC/CLASSES::COINBASE-AUX :DOCUMENTATION
;       "data that should be included in the coinbase's scriptSig content.
;   values must be in the coinbase (keys may be ignored)")
;      (BITCOIN-RPC/CLASSES::COINBASE-VALUE "coinbasevalue" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::COINBASE-VALUE)
;      (BITCOIN-RPC/CLASSES::LONG-POLL-ID "longpollid" :STRING :READER
;       BITCOIN-RPC/CLASSES::LONG-POLL-ID :DOCUMENTATION
;       "an id to include with a request to longpoll on an update to this template")
;      ("target" :STRING :READER BITCOIN-RPC/CLASSES::TARGET :DOCUMENTATION
;       "The hash target")
;      (BITCOIN-RPC/CLASSES::MININUM-TIME "mintime" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::MININUM-TIME :DOCUMENTATION
;       "The minimum timestamp appropriate for the next block time, expressed in UNIX epoch time")
;      ("mutable" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::MUTABLE
;       :DOCUMENTATION "list of ways the block template may be changed.
;   A way the block template may be changed, e.g. 'time', 'transactions', 'prevblock'")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS INCLUDED-TRANSACTION
;     (("data" :STRING :READER BITCOIN-RPC/CLASSES::DATA :DOCUMENTATION
;       "transaction data encoded in hexadecimal (byte-for-byte)")
;      (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;       "transaction id encoded in little-endian hexadecimal")
;      (BITCOIN-RPC/CLASSES:HASH "hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH
;       :DOCUMENTATION
;       "hash encoded in little-endian hexadecimal (including witness data)")
;      ("depends" (:LIST :NUMBER) :READER BITCOIN-RPC/CLASSES::DEPENDS
;       :DOCUMENTATION
;       "transactions before this one (by 1-based index in 'transactions' list) that must be present in the final block if this one is")
;      ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;       #<(SIMPLE-ARRAY CHARACTER
;          (281)) difference in value between transaction inputs and outputs (in satoshis); for coinbase transactions, this is a negative Number of the total collected block fees (ie, not including the block subsidy); ... {100E22A0DF}>)
;      ("sigops" :NUMBER :READER BITCOIN-RPC/CLASSES::SIGOPS :DOCUMENTATION
;       "total SigOps cost, as counted for purposes of block limits; if key is not present, sigop cost is unknown and clients MUST NOT assume it is zero")
;      ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;       "total transaction weight, as counted for purposes of block limits"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BLOCKCHAIN
;     (("chain" :STRING :READER BITCOIN-RPC/CLASSES::CHAIN :DOCUMENTATION
;       "current network name (main, test, regtest)")
;      ("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;       "the height of the most-work fully-validated chain. The genesis block has height 0")
;      ("headers" :NUMBER :READER BITCOIN-RPC/CLASSES::HEADERS :DOCUMENTATION
;       "the current number of headers we have validated")
;      (BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH "bestblockhash" :STRING :READER
;       BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH :DOCUMENTATION
;       "the hash of the currently best block")
;      ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES::DIFFCULTY :DOCUMENTATION
;       "the current difficulty")
;      (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;       BITCOIN-RPC/CLASSES:MEDIAN-TIME :DOCUMENTATION
;       "median time for the current best block")
;      (BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS "verificationprogress" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS :DOCUMENTATION
;       "estimate of verification progress [0..1]")
;      (BITCOIN-RPC/CLASSES::INITIAL-BLOCK-DOWNLOAD "initialblockdownload" :BOOL
;       :READER BITCOIN-RPC/CLASSES::INITIAL-BLOCK-DOWNLOAD :DOCUMENTATION
;       "(debug information) estimate of whether this node is in Initial Block Download mode")
;      (BITCOIN-RPC/CLASSES:CHAIN-WORK "chainwork" :STRING :READER
;       BITCOIN-RPC/CLASSES:CHAIN-WORK :DOCUMENTATION
;       "total amount of work in active chain, in hexadecimal")
;      (BITCOIN-RPC/CLASSES::SIZE-ON-DISK "size_on_disk" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::SIZE-ON-DISK :DOCUMENTATION
;       "the estimated size of the block and undo files on disk")
;      ("pruned" :BOOL :READER BITCOIN-RPC/CLASSES::PRUNED :DOCUMENTATION
;       "if the blocks are subject to pruning")
;      (BITCOIN-RPC/CLASSES::PRUNE-HEIGHT "pruneheight" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::PRUNE-HEIGHT :DOCUMENTATION
;       "lowest-height complete block stored (only present if pruning is enabled)")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SOFT-FORK
;     (("type" :STRING :READER BITCOIN-RPC/CLASSES::SOFT-FORK-TYPE :DOCUMENTATION
;       "one of \"buried\", \"bip9\"")
;      ("bip9" BITCOIN-RPC/CLASSES::SOFT-FORK-BIP-9)
;      ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;       "height of the first block which the rules are or will be enforced (only for \"buried\" type, or \"bip9\" type with \"active\" status)")
;      ("active" :BOOL :READER BITCOIN-RPC/CLASSES::ACTIVE :DOCUMENTATION
;       "true if the rules are enforced for the mempool and the next block"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SOFT-FORK-BIP-9
;     (("status" :STRING :READER BITCOIN-RPC/CLASSES::STATUS :DOCUMENTATION
;       "one of \"defined\", \"started\", \"locked_in\", \"active\", \"failed\"")
;      ("bit" :NUMBER :READER BITCOIN-RPC/CLASSES::BIP-9-BIT :DOCUMENTATION
;       "the bit (0-28) in the block version field used to signal this softfork (only for \"started\" status)")
;      (BITCOIN-RPC/CLASSES::START-TIME "start_time" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::START-TIME :DOCUMENTATION
;       "the minimum median time past of a block at which the bit gains its meaning")
;      ("timeout" :NUMBER :READER BITCOIN-RPC/CLASSES::TIMEOUT :DOCUMENTATION
;       "the median time past of a block at which the deployment is considered failed if not yet locked in")
;      ("since" :NUMBER :READER BITCOIN-RPC/CLASSES::SINCE :DOCUMENTATION
;       "height of the first block to which the status applies")
;      ("statistics" BITCOIN-RPC/CLASSES::SOFT-FORK-BIP-9-STATISTICS :READER
;       BITCOIN-RPC/CLASSES::STATISTICS :DOCUMENTATION
;       "numeric statistics about BIP9 signalling for a softfork (only for \"started\" status)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SOFT-FORK-BIP-9-STATISTICS
;     (("period" :NUMBER :READER BITCOIN-RPC/CLASSES::PERIOD :DOCUMENTATION
;       "the length in blocks of the BIP9 signalling period")
;      ("threshold" :NUMBER :READER BITCOIN-RPC/CLASSES::THRESHOLD :DOCUMENTATION
;       "the number of blocks with the version bit set required to activate the feature")
;      ("elapsed" :NUMBER :READER BITCOIN-RPC/CLASSES::ELAPSED :DOCUMENTATION
;       "the number of blocks elapsed since the beginning of the current period")
;      ("count" :NUMBER :READER BITCOIN-RPC/CLASSES::STATISTICS-COUNT
;       :DOCUMENTATION
;       "the number of blocks with the version bit set in the current period")
;      ("possible" :BOOL :READER BITCOIN-RPC/CLASSES::POSSIBLE :DOCUMENTATION
;       "returns false if there are not enough blocks left in this period to pass activation threshold"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BLOCK-FILTER
;     (("filter" :STRING :READER BITCOIN-RPC/CLASSES::FILTER :DOCUMENTATION
;       "the hex-encoded filter data")
;      ("header" :STRING :READER BITCOIN-RPC/CLASSES::FILTER :DOCUMENTATION
;       "the hex-encoded filter header"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BLOCK-HEADER
;     (("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;       "the block hash (same as provided)")
;      ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;       :DOCUMENTATION
;       "The number of confirmations, or -1 if the block is not on the main chain")
;      ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;       "The block height or index")
;      ("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;       "The block version")
;      (BITCOIN-RPC/CLASSES:VERSION-HEX "versionHex" :STRING :READER
;       BITCOIN-RPC/CLASSES:VERSION-HEX :DOCUMENTATION
;       "The block version formatted in hexadecimal")
;      (BITCOIN-RPC/CLASSES:MERKLE-ROOT "merkleroot" :STRING :READER
;       BITCOIN-RPC/CLASSES:MERKLE-ROOT :DOCUMENTATION "The merkle root")
;      (BITCOIN-RPC/CLASSES::BLOCK-HEADER-TIME "time" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::BLOCK-HEADER-TIME :DOCUMENTATION
;       "The block time expressed in UNIX epoch time")
;      (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;       BITCOIN-RPC/CLASSES:MEDIAN-TIME :DOCUMENTATION
;       "The median block time expressed in UNIX epoch time")
;      ("nonce" :NUMBER :READER BITCOIN-RPC/CLASSES:NONCE)
;      ("bits" :STRING :READER BITCOIN-RPC/CLASSES:BITS)
;      ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES:DIFFICULTY)
;      (BITCOIN-RPC/CLASSES:CHAIN-WORK "chainwork" :STRING :READER
;       BITCOIN-RPC/CLASSES:CHAIN-WORK :DOCUMENTATION
;       "Expected number of hashes required to produce the current chain")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS CHAIN-TRANSACTION-STATISTICS
;     (("time" :NUMBER :READER BITCOIN-RPC/CLASSES::WINDOW-TIME :DOCUMENTATION
;       "The timestamp for the final block in the window, expressed in UNIX epoch time")
;      (BITCOIN-RPC/CLASSES::TRANSACTION-COUNT "txcount" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-COUNT :DOCUMENTATION
;       "The total number of transactions in the chain up to that point")
;      (BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HASH "window_final_block_hash"
;       :STRING :READER BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HASH :DOCUMENTATION
;       "The hash of the final block in the window")
;      (BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HEIGHT "window_final_block_height"
;       :NUMBER :READER BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HEIGHT
;       :DOCUMENTATION "The height of the final block in the window.")
;      (BITCOIN-RPC/CLASSES::WINDOW-BLOCK-COUNT "window_block_count" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::WINDOW-BLOCK-COUNT :DOCUMENTATION
;       "Size of the window in number of blocks")
;      (BITCOIN-RPC/CLASSES::WINDOW-TRANSACTION-COUNT "window_tx_count" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::WINDOW-TRANSACTION-COUNT :DOCUMENTATION
;       "The number of transactions in the window. Only returned if \"window_block_count\" is > 0")
;      (BITCOIN-RPC/CLASSES::WINDOW-INTERVALL "window_interval" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::WINDOW-INTERVALL :DOCUMENTATION
;       "The elapsed time in the window in seconds. Only returned if \"window_block_count\" is > 0")
;      (BITCOIN-RPC/CLASSES::TRANSACTION-RATE "txrate" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-RATE :DOCUMENTATION
;       "The average rate of transactions per second in the window. Only returned if \"window_interval\" is > 0"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BLOCK-STATISTICS
;     ((BITCOIN-RPC/CLASSES::AVERAGE-FEE "avgfee" :NUMBER :DOCUMENTATION
;       "Average fee in the block" :READER BITCOIN-RPC/CLASSES::AVERAGE-FEE)
;      (BITCOIN-RPC/CLASSES::AVERAGE-FEE-RATE "avgfeerate" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::AVERAGE-FEE-RATE :DOCUMENTATION
;       "Average feerate (in satoshis per virtual byte)")
;      (BITCOIN-RPC/CLASSES::AVERAGE-TRANSACTION-SIZE "avgtxsize" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::AVERAGE-TRANSACTION-SIZE :DOCUMENTATION
;       "Average transaction size")
;      ("blockhash" :STRING :READER BITCOIN-RPC/CLASSES::BLOCKHASH :DOCUMENTATION
;       "The block hash (to check for potential reorgs)")
;      (BITCOIN-RPC/CLASSES::FEE-RATE-PERCENTILES "feerate_percentiles"
;       (:LIST :NUMBER) :READER BITCOIN-RPC/CLASSES::FEE-RATE-PERCENTILES
;       :DOCUMENTATION
;       "Feerates at the 10th, 25th, 50th, 75th, and 90th percentile weight unit (in satoshis per virtual byte)")
;      ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;       "The height of the block")
;      (BITCOIN-RPC/CLASSES::INPUTS "ins" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::INPUTS :DOCUMENTATION
;       "The number of inputs (excluding coinbase)")
;      (BITCOIN-RPC/CLASSES::MAXIMUM-FEE "maxfee" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::MAXIMUM-FEE :DOCUMENTATION "Maximum fee in the block")
;      (BITCOIN-RPC/CLASSES::MAXIMUM-FEE-RATE "maxfeerate" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::MAXIMUM-FEE-RATE :DOCUMENTATION
;       "Maximum feerate (in satoshis per virtual byte)")
;      (BITCOIN-RPC/CLASSES::MAXIMUM-TRANSACTION-SIZE "maxtxsize" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::MAXIMUM-TRANSACTION-SIZE :DOCUMENTATION
;       "Maximum transaction size")
;      (BITCOIN-RPC/CLASSES::MEDIAN-FEE "medianfee" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::MEDIAN-FEE :DOCUMENTATION
;       "Truncated median fee in the block")
;      (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;       BITCOIN-RPC/CLASSES:MEDIAN-TIME)
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS CHAIN-TIP
;     (("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;       "height of the chain tip")
;      ("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;       "block hash of the tip")
;      (BITCOIN-RPC/CLASSES::BRANCH-LENGTH "branchlen" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::BRANCH-LENGTH :DOCUMENTATION
;       "zero for main chain, otherwise length of branch connecting the tip to the main chain")
;      ("status" :STRING :READER BITCOIN-RPC/CLASSES::STATUS :DOCUMENTATION
;       #<(SIMPLE-ARRAY CHARACTER
;          (699)) status of the chain, "active" for the main chain
;                            Possible values for status:
;                            1.  "invalid"               This branch contains at least one invalid blo... {100E2C543F}>))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SIGNED-TRANSACTION
;     (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;       "The hex-encoded raw transaction with signature(s)")
;      ("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;       "If the transaction has a complete set of signatures")
;      ("errors" (:LIST BITCOIN-RPC/CLASSES::SIGNING-ERROR)))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SIGNING-ERROR
;     ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;       "The hash of the referenced, previous transaction")
;      (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION
;       "The index of the output to spent and used as input")
;      (BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE "scriptSig" :STRING :READER
;       BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :DOCUMENTATION
;       "The hex-encoded signature script")
;      (BITCOIN-RPC/CLASSES::SCRIPT-SEQUENCE "sequence" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::SCRIPT-SEQUENCE :DOCUMENTATION
;       "Script sequence number")
;      (BITCOIN-RPC/CLASSES::SIGNING-ERROR "error" :STRING :READER
;       BITCOIN-RPC/CLASSES::SIGNING-ERROR :DOCUMENTATION
;       "Verification or signing error related to the input"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS MULTISIG
;     (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "The value of the new multisig address.")
;      (BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeemScript" :STRING :READER
;       BITCOIN-RPC/CLASSES::REDEEM-SCRIPT :DOCUMENTATION
;       "The string value of the hex-encoded redemption script.")
;      ("descriptor" :STRING :READER BITCOIN-RPC/CLASSES:DESCRIPTOR :DOCUMENTATION
;       "The descriptor for this multisig"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SMART-FEE
;     ((BITCOIN-RPC/CLASSES::FEE-RATE "feerate" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::FEE-RATE :DOCUMENTATION
;       "estimate fee rate in BTC/kB (only present if no errors were encountered)")
;      ("errors" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES:ERRORS :DOCUMENTATION
;       "Errors encountered during processing (if there are any)")
;      ("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;       #<(SIMPLE-ARRAY CHARACTER (302)) block number where estimate was found.
;   The request target will be clamped between 2 and the highest target fee estimation is able to return based on how long it has been running. An error is returned ... {100E2F8C6F}>))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS DESCRIPTOR
;     (("descriptor" :STRING :READER BITCOIN-RPC/CLASSES:DESCRIPTOR :DOCUMENTATION
;       "The descriptor in canonical form, without private keys")
;      ("checksum" :STRING :READER BITCOIN-RPC/CLASSES::CHECKSUM :DOCUMENTATION
;       "The checksum for the input descriptor")
;      (BITCOIN-RPC/CLASSES::IS-RANGE "isrange" :BOOL :READER
;       BITCOIN-RPC/CLASSES::IS-RANGE :DOCUMENTATION
;       "Whether the descriptor is ranged")
;      (BITCOIN-RPC/CLASSES::IS-SOLVABLE "issolvable" :BOOL :READER
;       BITCOIN-RPC/CLASSES::IS-SOLVABLE :DOCUMENTATION
;       "Whether the descriptor is solvable")
;      (BITCOIN-RPC/CLASSES::HAS-PRIVATE-KEYS "hasprivatekeys" :BOOL :READER
;       BITCOIN-RPC/CLASSES::HAS-PRIVATE-KEYS :DOCUMENTATION
;       "Whether the input descriptor contained at least one private key")
;      (BITCOIN-RPC/CLASSES::DESC "desc" :STRING :READER BITCOIN-RPC/CLASSES::DESC
;       :DOCUMENTATION "Descriptor string representation")
;      ("timestamp" :NUMBER :READER BITCOIN-RPC/CLASSES::TIMESTAMP :DOCUMENTATION
;       "The creation time of the descriptor")
;      ("active" :BOOL :READER BITCOIN-RPC/CLASSES::ACTIVE :DOCUMENTATION
;       "Whether this descriptor is currently used to generate new addresses")
;      ("internal" :BOOL :READER BITCOIN-RPC/CLASSES::INTERNAL :DOCUMENTATION
;       "True if this descriptor is used to generate change addresses. False if this descriptor is used to generate receiving addresses; defined only for active descriptors")
;      ("range" (:LIST :NUMBER) :READER BITCOIN-RPC/CLASSES::RANGE :DOCUMENTATION
;       "Defined only for ranged descriptors")
;      ("next" :NUMBER :READER BITCOIN-RPC/CLASSES::NEXT :DOCUMENTATION
;       "Same as next_index field. Kept for compatibility reason.")
;      (BITCOIN-RPC/CLASSES::NEXT-INDEX "next_index" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::NEXT-INDEX :DOCUMENTATION
;       "The next index to generate addresses from; defined only for ranged descriptors"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS IMPORTED-DESCRIPTOR
;     (("success" :BOOL :READER BITCOIN-RPC/CLASSES::SUCCESS)
;      ("warnings" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::WARNINGS)
;      ("error" :HASH-TABLE :READER BITCOIN-RPC/CLASSES::IMPORTED-DESCRIPTOR-ERROR))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS UNSPENDABLE-OUTPUT
;     ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :DOCUMENTATION
;       "The transaction id locked")
;      (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :STRING :DOCUMENTATION
;       "The vout value"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BUMP-FEE
;     (("psbt" :STRING :READER BITCOIN-RPC/CLASSES::PSBT :DOCUMENTATION
;       "The base64-encoded unsigned PSBT of the new transaction. Only returned when wallet private keys are disabled. (DEPRECATED)")
;      (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;       "The id of the new transaction. Only returned when wallet private keys are enabled.")
;      (BITCOIN-RPC/CLASSES::ORIGINAL-FEE "origfee" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::ORIGINAL-FEE :DOCUMENTATION
;       "The fee of the replaced transaction.")
;      ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;       "The fee of the new transaction.")
;      ("errors" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES:ERRORS :DOCUMENTATION
;       "Errors encountered during processing (may be empty)."))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BLOCK-VERBOSE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCK-VERBOSE
;      (BITCOIN-RPC/CLASSES::BLOCK-BASE)
;      ((BITCOIN-RPC/CLASSES:TRANSACTIONS "tx"
;        (:LIST BITCOIN-RPC/CLASSES:RAW-TRANSACTION) :READER
;        BITCOIN-RPC/CLASSES:TRANSACTIONS :DOCUMENTATION "The transaction ids")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-TEMPLATE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCK-TEMPLATE NIL
;      (("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;        "The preferred block version")
;       ("rules" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::RULES :DOCUMENTATION
;        "specific block rules that are to be enforced. The client must understand the names of a rule to some extent; see BIP 9 for format")
;       (BITCOIN-RPC/CLASSES::VERSION-BIT-AVAILABLE "vbavailable"
;        (:HASH-TABLE :NUMBER) :READER BITCOIN-RPC/CLASSES::VERSION-BIT-AVAILABLE
;        :DOCUMENTATION
;        "set of pending, supported versionbit (BIP 9) softfork deployments.
;   identifies the bit number as indicating acceptance and readiness for the named softfork rule")
;       (BITCOIN-RPC/CLASSES::VERSION-BIT-REQUIRED "vbrequired" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VERSION-BIT-REQUIRED :DOCUMENTATION
;        "bit mask of versionbits the server requires set in submissions")
;       (BITCOIN-RPC/CLASSES:PREVIOUS-BLOCK-HASH "previousblockhash" :STRING
;        :READER BITCOIN-RPC/CLASSES:PREVIOUS-BLOCK-HASH)
;       ("transactions" (:LIST BITCOIN-RPC/CLASSES::INCLUDED-TRANSACTION) :READER
;        BITCOIN-RPC/CLASSES:TRANSACTIONS)
;       (BITCOIN-RPC/CLASSES::COINBASE-AUX "coinbaseaux" (:HASH-TABLE :STRING)
;        :READER BITCOIN-RPC/CLASSES::COINBASE-AUX :DOCUMENTATION
;        "data that should be included in the coinbase's scriptSig content.
;   values must be in the coinbase (keys may be ignored)")
;       (BITCOIN-RPC/CLASSES::COINBASE-VALUE "coinbasevalue" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::COINBASE-VALUE)
;       (BITCOIN-RPC/CLASSES::LONG-POLL-ID "longpollid" :STRING :READER
;        BITCOIN-RPC/CLASSES::LONG-POLL-ID :DOCUMENTATION
;        "an id to include with a request to longpoll on an update to this template")
;       ("target" :STRING :READER BITCOIN-RPC/CLASSES::TARGET :DOCUMENTATION
;        "The hash target")
;       (BITCOIN-RPC/CLASSES::MININUM-TIME "mintime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MININUM-TIME :DOCUMENTATION
;        "The minimum timestamp appropriate for the next block time, expressed in UNIX epoch time")
;       ("mutable" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::MUTABLE
;        :DOCUMENTATION "list of ways the block template may be changed.
;   A way the block template may be changed, e.g. 'time', 'transactions', 'prevblock'")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS INCLUDED-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::INCLUDED-TRANSACTION NIL
;      (("data" :STRING :READER BITCOIN-RPC/CLASSES::DATA :DOCUMENTATION
;        "transaction data encoded in hexadecimal (byte-for-byte)")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "transaction id encoded in little-endian hexadecimal")
;       (BITCOIN-RPC/CLASSES:HASH "hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH
;        :DOCUMENTATION
;        "hash encoded in little-endian hexadecimal (including witness data)")
;       ("depends" (:LIST :NUMBER) :READER BITCOIN-RPC/CLASSES::DEPENDS
;        :DOCUMENTATION
;        "transactions before this one (by 1-based index in 'transactions' list) that must be present in the final block if this one is")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (281)) difference in value between transaction inputs and outputs (in satoshis); for coinbase transactions, this is a negative Number of the total collected block fees (ie, not including the block subsidy); ... {100E22A0DF}>)
;       ("sigops" :NUMBER :READER BITCOIN-RPC/CLASSES::SIGOPS :DOCUMENTATION
;        "total SigOps cost, as counted for purposes of block limits; if key is not present, sigop cost is unknown and clients MUST NOT assume it is zero")
;       ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;        "total transaction weight, as counted for purposes of block limits")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCKCHAIN
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCKCHAIN NIL
;      (("chain" :STRING :READER BITCOIN-RPC/CLASSES::CHAIN :DOCUMENTATION
;        "current network name (main, test, regtest)")
;       ("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;        "the height of the most-work fully-validated chain. The genesis block has height 0")
;       ("headers" :NUMBER :READER BITCOIN-RPC/CLASSES::HEADERS :DOCUMENTATION
;        "the current number of headers we have validated")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH "bestblockhash" :STRING :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH :DOCUMENTATION
;        "the hash of the currently best block")
;       ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES::DIFFCULTY :DOCUMENTATION
;        "the current difficulty")
;       (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES:MEDIAN-TIME :DOCUMENTATION
;        "median time for the current best block")
;       (BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS "verificationprogress" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS :DOCUMENTATION
;        "estimate of verification progress [0..1]")
;       (BITCOIN-RPC/CLASSES::INITIAL-BLOCK-DOWNLOAD "initialblockdownload" :BOOL
;        :READER BITCOIN-RPC/CLASSES::INITIAL-BLOCK-DOWNLOAD :DOCUMENTATION
;        "(debug information) estimate of whether this node is in Initial Block Download mode")
;       (BITCOIN-RPC/CLASSES:CHAIN-WORK "chainwork" :STRING :READER
;        BITCOIN-RPC/CLASSES:CHAIN-WORK :DOCUMENTATION
;        "total amount of work in active chain, in hexadecimal")
;       (BITCOIN-RPC/CLASSES::SIZE-ON-DISK "size_on_disk" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::SIZE-ON-DISK :DOCUMENTATION
;        "the estimated size of the block and undo files on disk")
;       ("pruned" :BOOL :READER BITCOIN-RPC/CLASSES::PRUNED :DOCUMENTATION
;        "if the blocks are subject to pruning")
;       (BITCOIN-RPC/CLASSES::PRUNE-HEIGHT "pruneheight" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::PRUNE-HEIGHT :DOCUMENTATION
;        "lowest-height complete block stored (only present if pruning is enabled)")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS SOFT-FORK
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::SOFT-FORK NIL
;      (("type" :STRING :READER BITCOIN-RPC/CLASSES::SOFT-FORK-TYPE :DOCUMENTATION
;        "one of \"buried\", \"bip9\"")
;       ("bip9" BITCOIN-RPC/CLASSES::SOFT-FORK-BIP-9)
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "height of the first block which the rules are or will be enforced (only for \"buried\" type, or \"bip9\" type with \"active\" status)")
;       ("active" :BOOL :READER BITCOIN-RPC/CLASSES::ACTIVE :DOCUMENTATION
;        "true if the rules are enforced for the mempool and the next block")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SOFT-FORK-BIP-9
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::SOFT-FORK-BIP-9 NIL
;      (("status" :STRING :READER BITCOIN-RPC/CLASSES::STATUS :DOCUMENTATION
;        "one of \"defined\", \"started\", \"locked_in\", \"active\", \"failed\"")
;       ("bit" :NUMBER :READER BITCOIN-RPC/CLASSES::BIP-9-BIT :DOCUMENTATION
;        "the bit (0-28) in the block version field used to signal this softfork (only for \"started\" status)")
;       (BITCOIN-RPC/CLASSES::START-TIME "start_time" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::START-TIME :DOCUMENTATION
;        "the minimum median time past of a block at which the bit gains its meaning")
;       ("timeout" :NUMBER :READER BITCOIN-RPC/CLASSES::TIMEOUT :DOCUMENTATION
;        "the median time past of a block at which the deployment is considered failed if not yet locked in")
;       ("since" :NUMBER :READER BITCOIN-RPC/CLASSES::SINCE :DOCUMENTATION
;        "height of the first block to which the status applies")
;       ("statistics" BITCOIN-RPC/CLASSES::SOFT-FORK-BIP-9-STATISTICS :READER
;        BITCOIN-RPC/CLASSES::STATISTICS :DOCUMENTATION
;        "numeric statistics about BIP9 signalling for a softfork (only for \"started\" status)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SOFT-FORK-BIP-9-STATISTICS
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES::SOFT-FORK-BIP-9-STATISTICS NIL
;      (("period" :NUMBER :READER BITCOIN-RPC/CLASSES::PERIOD :DOCUMENTATION
;        "the length in blocks of the BIP9 signalling period")
;       ("threshold" :NUMBER :READER BITCOIN-RPC/CLASSES::THRESHOLD :DOCUMENTATION
;        "the number of blocks with the version bit set required to activate the feature")
;       ("elapsed" :NUMBER :READER BITCOIN-RPC/CLASSES::ELAPSED :DOCUMENTATION
;        "the number of blocks elapsed since the beginning of the current period")
;       ("count" :NUMBER :READER BITCOIN-RPC/CLASSES::STATISTICS-COUNT
;        :DOCUMENTATION
;        "the number of blocks with the version bit set in the current period")
;       ("possible" :BOOL :READER BITCOIN-RPC/CLASSES::POSSIBLE :DOCUMENTATION
;        "returns false if there are not enough blocks left in this period to pass activation threshold")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-FILTER
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCK-FILTER NIL
;      (("filter" :STRING :READER BITCOIN-RPC/CLASSES::FILTER :DOCUMENTATION
;        "the hex-encoded filter data")
;       ("header" :STRING :READER BITCOIN-RPC/CLASSES::FILTER :DOCUMENTATION
;        "the hex-encoded filter header")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-HEADER
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCK-HEADER NIL
;      (("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;        "the block hash (same as provided)")
;       ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;        :DOCUMENTATION
;        "The number of confirmations, or -1 if the block is not on the main chain")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "The block height or index")
;       ("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;        "The block version")
;       (BITCOIN-RPC/CLASSES:VERSION-HEX "versionHex" :STRING :READER
;        BITCOIN-RPC/CLASSES:VERSION-HEX :DOCUMENTATION
;        "The block version formatted in hexadecimal")
;       (BITCOIN-RPC/CLASSES:MERKLE-ROOT "merkleroot" :STRING :READER
;        BITCOIN-RPC/CLASSES:MERKLE-ROOT :DOCUMENTATION "The merkle root")
;       (BITCOIN-RPC/CLASSES::BLOCK-HEADER-TIME "time" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BLOCK-HEADER-TIME :DOCUMENTATION
;        "The block time expressed in UNIX epoch time")
;       (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES:MEDIAN-TIME :DOCUMENTATION
;        "The median block time expressed in UNIX epoch time")
;       ("nonce" :NUMBER :READER BITCOIN-RPC/CLASSES:NONCE)
;       ("bits" :STRING :READER BITCOIN-RPC/CLASSES:BITS)
;       ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES:DIFFICULTY)
;       (BITCOIN-RPC/CLASSES:CHAIN-WORK "chainwork" :STRING :READER
;        BITCOIN-RPC/CLASSES:CHAIN-WORK :DOCUMENTATION
;        "Expected number of hashes required to produce the current chain")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS CHAIN-TRANSACTION-STATISTICS
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:CHAIN-TRANSACTION-STATISTICS NIL
;      (("time" :NUMBER :READER BITCOIN-RPC/CLASSES::WINDOW-TIME :DOCUMENTATION
;        "The timestamp for the final block in the window, expressed in UNIX epoch time")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-COUNT "txcount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-COUNT :DOCUMENTATION
;        "The total number of transactions in the chain up to that point")
;       (BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HASH "window_final_block_hash"
;        :STRING :READER BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HASH
;        :DOCUMENTATION "The hash of the final block in the window")
;       (BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HEIGHT "window_final_block_height"
;        :NUMBER :READER BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HEIGHT
;        :DOCUMENTATION "The height of the final block in the window.")
;       (BITCOIN-RPC/CLASSES::WINDOW-BLOCK-COUNT "window_block_count" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::WINDOW-BLOCK-COUNT :DOCUMENTATION
;        "Size of the window in number of blocks")
;       (BITCOIN-RPC/CLASSES::WINDOW-TRANSACTION-COUNT "window_tx_count" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::WINDOW-TRANSACTION-COUNT :DOCUMENTATION
;        "The number of transactions in the window. Only returned if \"window_block_count\" is > 0")
;       (BITCOIN-RPC/CLASSES::WINDOW-INTERVALL "window_interval" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::WINDOW-INTERVALL :DOCUMENTATION
;        "The elapsed time in the window in seconds. Only returned if \"window_block_count\" is > 0")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-RATE "txrate" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-RATE :DOCUMENTATION
;        "The average rate of transactions per second in the window. Only returned if \"window_interval\" is > 0")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-STATISTICS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCK-STATISTICS NIL
;      ((BITCOIN-RPC/CLASSES::AVERAGE-FEE "avgfee" :NUMBER :DOCUMENTATION
;        "Average fee in the block" :READER BITCOIN-RPC/CLASSES::AVERAGE-FEE)
;       (BITCOIN-RPC/CLASSES::AVERAGE-FEE-RATE "avgfeerate" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::AVERAGE-FEE-RATE :DOCUMENTATION
;        "Average feerate (in satoshis per virtual byte)")
;       (BITCOIN-RPC/CLASSES::AVERAGE-TRANSACTION-SIZE "avgtxsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::AVERAGE-TRANSACTION-SIZE :DOCUMENTATION
;        "Average transaction size")
;       ("blockhash" :STRING :READER BITCOIN-RPC/CLASSES::BLOCKHASH :DOCUMENTATION
;        "The block hash (to check for potential reorgs)")
;       (BITCOIN-RPC/CLASSES::FEE-RATE-PERCENTILES "feerate_percentiles"
;        (:LIST :NUMBER) :READER BITCOIN-RPC/CLASSES::FEE-RATE-PERCENTILES
;        :DOCUMENTATION
;        "Feerates at the 10th, 25th, 50th, 75th, and 90th percentile weight unit (in satoshis per virtual byte)")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "The height of the block")
;       (BITCOIN-RPC/CLASSES::INPUTS "ins" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::INPUTS :DOCUMENTATION
;        "The number of inputs (excluding coinbase)")
;       (BITCOIN-RPC/CLASSES::MAXIMUM-FEE "maxfee" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MAXIMUM-FEE :DOCUMENTATION
;        "Maximum fee in the block")
;       (BITCOIN-RPC/CLASSES::MAXIMUM-FEE-RATE "maxfeerate" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MAXIMUM-FEE-RATE :DOCUMENTATION
;        "Maximum feerate (in satoshis per virtual byte)")
;       (BITCOIN-RPC/CLASSES::MAXIMUM-TRANSACTION-SIZE "maxtxsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MAXIMUM-TRANSACTION-SIZE :DOCUMENTATION
;        "Maximum transaction size")
;       (BITCOIN-RPC/CLASSES::MEDIAN-FEE "medianfee" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MEDIAN-FEE :DOCUMENTATION
;        "Truncated median fee in the block")
;       (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES:MEDIAN-TIME)
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS CHAIN-TIP
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:CHAIN-TIP NIL
;      (("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "height of the chain tip")
;       ("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;        "block hash of the tip")
;       (BITCOIN-RPC/CLASSES::BRANCH-LENGTH "branchlen" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BRANCH-LENGTH :DOCUMENTATION
;        "zero for main chain, otherwise length of branch connecting the tip to the main chain")
;       ("status" :STRING :READER BITCOIN-RPC/CLASSES::STATUS :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (699)) status of the chain, "active" for the main chain
;                            Possible values for status:
;                            1.  "invalid"               This branch contains at least one invalid blo... {100E2C543F}>)))
; 
; note: deleting unreachable code

; in: JSON-CLASS SIGNED-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SIGNED-TRANSACTION NIL
;      (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The hex-encoded raw transaction with signature(s)")
;       ("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;        "If the transaction has a complete set of signatures")
;       ("errors" (:LIST BITCOIN-RPC/CLASSES::SIGNING-ERROR))))
; 
; note: deleting unreachable code

; in: JSON-CLASS SIGNING-ERROR
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::SIGNING-ERROR NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The hash of the referenced, previous transaction")
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION
;        "The index of the output to spent and used as input")
;       (BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE "scriptSig" :STRING :READER
;        BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :DOCUMENTATION
;        "The hex-encoded signature script")
;       (BITCOIN-RPC/CLASSES::SCRIPT-SEQUENCE "sequence" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::SCRIPT-SEQUENCE :DOCUMENTATION
;        "Script sequence number")
;       (BITCOIN-RPC/CLASSES::SIGNING-ERROR "error" :STRING :READER
;        BITCOIN-RPC/CLASSES::SIGNING-ERROR :DOCUMENTATION
;        "Verification or signing error related to the input")))
; 
; note: deleting unreachable code

; in: JSON-CLASS MULTISIG
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MULTISIG NIL
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The value of the new multisig address.")
;       (BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeemScript" :STRING :READER
;        BITCOIN-RPC/CLASSES::REDEEM-SCRIPT :DOCUMENTATION
;        "The string value of the hex-encoded redemption script.")
;       ("descriptor" :STRING :READER BITCOIN-RPC/CLASSES:DESCRIPTOR :DOCUMENTATION
;        "The descriptor for this multisig")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SMART-FEE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SMART-FEE NIL
;      ((BITCOIN-RPC/CLASSES::FEE-RATE "feerate" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::FEE-RATE :DOCUMENTATION
;        "estimate fee rate in BTC/kB (only present if no errors were encountered)")
;       ("errors" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES:ERRORS :DOCUMENTATION
;        "Errors encountered during processing (if there are any)")
;       ("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER (302)) block number where estimate was found.
;   The request target will be clamped between 2 and the highest target fee estimation is able to return based on how long it has been running. An error is returned ... {100E2F8C6F}>)))
; 
; note: deleting unreachable code

; in: JSON-CLASS DESCRIPTOR
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:DESCRIPTOR NIL
;      (("descriptor" :STRING :READER BITCOIN-RPC/CLASSES:DESCRIPTOR :DOCUMENTATION
;        "The descriptor in canonical form, without private keys")
;       ("checksum" :STRING :READER BITCOIN-RPC/CLASSES::CHECKSUM :DOCUMENTATION
;        "The checksum for the input descriptor")
;       (BITCOIN-RPC/CLASSES::IS-RANGE "isrange" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-RANGE :DOCUMENTATION
;        "Whether the descriptor is ranged")
;       (BITCOIN-RPC/CLASSES::IS-SOLVABLE "issolvable" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-SOLVABLE :DOCUMENTATION
;        "Whether the descriptor is solvable")
;       (BITCOIN-RPC/CLASSES::HAS-PRIVATE-KEYS "hasprivatekeys" :BOOL :READER
;        BITCOIN-RPC/CLASSES::HAS-PRIVATE-KEYS :DOCUMENTATION
;        "Whether the input descriptor contained at least one private key")
;       (BITCOIN-RPC/CLASSES::DESC "desc" :STRING :READER BITCOIN-RPC/CLASSES::DESC
;        :DOCUMENTATION "Descriptor string representation")
;       ("timestamp" :NUMBER :READER BITCOIN-RPC/CLASSES::TIMESTAMP :DOCUMENTATION
;        "The creation time of the descriptor")
;       ("active" :BOOL :READER BITCOIN-RPC/CLASSES::ACTIVE :DOCUMENTATION
;        "Whether this descriptor is currently used to generate new addresses")
;       ("internal" :BOOL :READER BITCOIN-RPC/CLASSES::INTERNAL :DOCUMENTATION
;        "True if this descriptor is used to generate change addresses. False if this descriptor is used to generate receiving addresses; defined only for active descriptors")
;       ("range" (:LIST :NUMBER) :READER BITCOIN-RPC/CLASSES::RANGE :DOCUMENTATION
;        "Defined only for ranged descriptors")
;       ("next" :NUMBER :READER BITCOIN-RPC/CLASSES::NEXT :DOCUMENTATION
;        "Same as next_index field. Kept for compatibility reason.")
;       (BITCOIN-RPC/CLASSES::NEXT-INDEX "next_index" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::NEXT-INDEX :DOCUMENTATION
;        "The next index to generate addresses from; defined only for ranged descriptors")))
; 
; note: deleting unreachable code

; in: JSON-CLASS IMPORTED-DESCRIPTOR
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:IMPORTED-DESCRIPTOR NIL
;      (("success" :BOOL :READER BITCOIN-RPC/CLASSES::SUCCESS)
;       ("warnings" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::WARNINGS)
;       ("error" :HASH-TABLE :READER
;        BITCOIN-RPC/CLASSES::IMPORTED-DESCRIPTOR-ERROR)))
; 
; note: deleting unreachable code

; in: JSON-CLASS UNSPENDABLE-OUTPUT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:UNSPENDABLE-OUTPUT NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :DOCUMENTATION
;        "The transaction id locked")
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :STRING :DOCUMENTATION
;        "The vout value")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BUMP-FEE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BUMP-FEE NIL
;      (("psbt" :STRING :READER BITCOIN-RPC/CLASSES::PSBT :DOCUMENTATION
;        "The base64-encoded unsigned PSBT of the new transaction. Only returned when wallet private keys are disabled. (DEPRECATED)")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The id of the new transaction. Only returned when wallet private keys are enabled.")
;       (BITCOIN-RPC/CLASSES::ORIGINAL-FEE "origfee" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::ORIGINAL-FEE :DOCUMENTATION
;        "The fee of the replaced transaction.")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        "The fee of the new transaction.")
;       ("errors" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES:ERRORS :DOCUMENTATION
;        "Errors encountered during processing (may be empty).")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-TEMPLATE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCK-TEMPLATE NIL
;      (("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;        "The preferred block version")
;       ("rules" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::RULES :DOCUMENTATION
;        "specific block rules that are to be enforced. The client must understand the names of a rule to some extent; see BIP 9 for format")
;       (BITCOIN-RPC/CLASSES::VERSION-BIT-AVAILABLE "vbavailable"
;        (:HASH-TABLE :NUMBER) :READER BITCOIN-RPC/CLASSES::VERSION-BIT-AVAILABLE
;        :DOCUMENTATION
;        "set of pending, supported versionbit (BIP 9) softfork deployments.
;   identifies the bit number as indicating acceptance and readiness for the named softfork rule")
;       (BITCOIN-RPC/CLASSES::VERSION-BIT-REQUIRED "vbrequired" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VERSION-BIT-REQUIRED :DOCUMENTATION
;        "bit mask of versionbits the server requires set in submissions")
;       (BITCOIN-RPC/CLASSES:PREVIOUS-BLOCK-HASH "previousblockhash" :STRING
;        :READER BITCOIN-RPC/CLASSES:PREVIOUS-BLOCK-HASH)
;       ("transactions" (:LIST BITCOIN-RPC/CLASSES::INCLUDED-TRANSACTION) :READER
;        BITCOIN-RPC/CLASSES:TRANSACTIONS)
;       (BITCOIN-RPC/CLASSES::COINBASE-AUX "coinbaseaux" (:HASH-TABLE :STRING)
;        :READER BITCOIN-RPC/CLASSES::COINBASE-AUX :DOCUMENTATION
;        "data that should be included in the coinbase's scriptSig content.
;   values must be in the coinbase (keys may be ignored)")
;       (BITCOIN-RPC/CLASSES::COINBASE-VALUE "coinbasevalue" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::COINBASE-VALUE)
;       (BITCOIN-RPC/CLASSES::LONG-POLL-ID "longpollid" :STRING :READER
;        BITCOIN-RPC/CLASSES::LONG-POLL-ID :DOCUMENTATION
;        "an id to include with a request to longpoll on an update to this template")
;       ("target" :STRING :READER BITCOIN-RPC/CLASSES::TARGET :DOCUMENTATION
;        "The hash target")
;       (BITCOIN-RPC/CLASSES::MININUM-TIME "mintime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MININUM-TIME :DOCUMENTATION
;        "The minimum timestamp appropriate for the next block time, expressed in UNIX epoch time")
;       ("mutable" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::MUTABLE
;        :DOCUMENTATION "list of ways the block template may be changed.
;   A way the block template may be changed, e.g. 'time', 'transactions', 'prevblock'")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS INCLUDED-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::INCLUDED-TRANSACTION NIL
;      (("data" :STRING :READER BITCOIN-RPC/CLASSES::DATA :DOCUMENTATION
;        "transaction data encoded in hexadecimal (byte-for-byte)")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "transaction id encoded in little-endian hexadecimal")
;       (BITCOIN-RPC/CLASSES:HASH "hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH
;        :DOCUMENTATION
;        "hash encoded in little-endian hexadecimal (including witness data)")
;       ("depends" (:LIST :NUMBER) :READER BITCOIN-RPC/CLASSES::DEPENDS
;        :DOCUMENTATION
;        "transactions before this one (by 1-based index in 'transactions' list) that must be present in the final block if this one is")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (281)) difference in value between transaction inputs and outputs (in satoshis); for coinbase transactions, this is a negative Number of the total collected block fees (ie, not including the block subsidy); ... {100E22A0DF}>)
;       ("sigops" :NUMBER :READER BITCOIN-RPC/CLASSES::SIGOPS :DOCUMENTATION
;        "total SigOps cost, as counted for purposes of block limits; if key is not present, sigop cost is unknown and clients MUST NOT assume it is zero")
;       ("weight" :NUMBER :READER BITCOIN-RPC/CLASSES:WEIGHT :DOCUMENTATION
;        "total transaction weight, as counted for purposes of block limits")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCKCHAIN
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCKCHAIN NIL
;      (("chain" :STRING :READER BITCOIN-RPC/CLASSES::CHAIN :DOCUMENTATION
;        "current network name (main, test, regtest)")
;       ("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;        "the height of the most-work fully-validated chain. The genesis block has height 0")
;       ("headers" :NUMBER :READER BITCOIN-RPC/CLASSES::HEADERS :DOCUMENTATION
;        "the current number of headers we have validated")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH "bestblockhash" :STRING :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH :DOCUMENTATION
;        "the hash of the currently best block")
;       ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES::DIFFCULTY :DOCUMENTATION
;        "the current difficulty")
;       (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES:MEDIAN-TIME :DOCUMENTATION
;        "median time for the current best block")
;       (BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS "verificationprogress" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS :DOCUMENTATION
;        "estimate of verification progress [0..1]")
;       (BITCOIN-RPC/CLASSES::INITIAL-BLOCK-DOWNLOAD "initialblockdownload" :BOOL
;        :READER BITCOIN-RPC/CLASSES::INITIAL-BLOCK-DOWNLOAD :DOCUMENTATION
;        "(debug information) estimate of whether this node is in Initial Block Download mode")
;       (BITCOIN-RPC/CLASSES:CHAIN-WORK "chainwork" :STRING :READER
;        BITCOIN-RPC/CLASSES:CHAIN-WORK :DOCUMENTATION
;        "total amount of work in active chain, in hexadecimal")
;       (BITCOIN-RPC/CLASSES::SIZE-ON-DISK "size_on_disk" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::SIZE-ON-DISK :DOCUMENTATION
;        "the estimated size of the block and undo files on disk")
;       ("pruned" :BOOL :READER BITCOIN-RPC/CLASSES::PRUNED :DOCUMENTATION
;        "if the blocks are subject to pruning")
;       (BITCOIN-RPC/CLASSES::PRUNE-HEIGHT "pruneheight" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::PRUNE-HEIGHT :DOCUMENTATION
;        "lowest-height complete block stored (only present if pruning is enabled)")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS SOFT-FORK
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::SOFT-FORK NIL
;      (("type" :STRING :READER BITCOIN-RPC/CLASSES::SOFT-FORK-TYPE :DOCUMENTATION
;        "one of \"buried\", \"bip9\"")
;       ("bip9" BITCOIN-RPC/CLASSES::SOFT-FORK-BIP-9)
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "height of the first block which the rules are or will be enforced (only for \"buried\" type, or \"bip9\" type with \"active\" status)")
;       ("active" :BOOL :READER BITCOIN-RPC/CLASSES::ACTIVE :DOCUMENTATION
;        "true if the rules are enforced for the mempool and the next block")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SOFT-FORK-BIP-9
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::SOFT-FORK-BIP-9 NIL
;      (("status" :STRING :READER BITCOIN-RPC/CLASSES::STATUS :DOCUMENTATION
;        "one of \"defined\", \"started\", \"locked_in\", \"active\", \"failed\"")
;       ("bit" :NUMBER :READER BITCOIN-RPC/CLASSES::BIP-9-BIT :DOCUMENTATION
;        "the bit (0-28) in the block version field used to signal this softfork (only for \"started\" status)")
;       (BITCOIN-RPC/CLASSES::START-TIME "start_time" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::START-TIME :DOCUMENTATION
;        "the minimum median time past of a block at which the bit gains its meaning")
;       ("timeout" :NUMBER :READER BITCOIN-RPC/CLASSES::TIMEOUT :DOCUMENTATION
;        "the median time past of a block at which the deployment is considered failed if not yet locked in")
;       ("since" :NUMBER :READER BITCOIN-RPC/CLASSES::SINCE :DOCUMENTATION
;        "height of the first block to which the status applies")
;       ("statistics" BITCOIN-RPC/CLASSES::SOFT-FORK-BIP-9-STATISTICS :READER
;        BITCOIN-RPC/CLASSES::STATISTICS :DOCUMENTATION
;        "numeric statistics about BIP9 signalling for a softfork (only for \"started\" status)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SOFT-FORK-BIP-9-STATISTICS
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES::SOFT-FORK-BIP-9-STATISTICS NIL
;      (("period" :NUMBER :READER BITCOIN-RPC/CLASSES::PERIOD :DOCUMENTATION
;        "the length in blocks of the BIP9 signalling period")
;       ("threshold" :NUMBER :READER BITCOIN-RPC/CLASSES::THRESHOLD :DOCUMENTATION
;        "the number of blocks with the version bit set required to activate the feature")
;       ("elapsed" :NUMBER :READER BITCOIN-RPC/CLASSES::ELAPSED :DOCUMENTATION
;        "the number of blocks elapsed since the beginning of the current period")
;       ("count" :NUMBER :READER BITCOIN-RPC/CLASSES::STATISTICS-COUNT
;        :DOCUMENTATION
;        "the number of blocks with the version bit set in the current period")
;       ("possible" :BOOL :READER BITCOIN-RPC/CLASSES::POSSIBLE :DOCUMENTATION
;        "returns false if there are not enough blocks left in this period to pass activation threshold")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-FILTER
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCK-FILTER NIL
;      (("filter" :STRING :READER BITCOIN-RPC/CLASSES::FILTER :DOCUMENTATION
;        "the hex-encoded filter data")
;       ("header" :STRING :READER BITCOIN-RPC/CLASSES::FILTER :DOCUMENTATION
;        "the hex-encoded filter header")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-HEADER
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCK-HEADER NIL
;      (("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;        "the block hash (same as provided)")
;       ("confirmations" :NUMBER :READER BITCOIN-RPC/CLASSES:CONFIRMATIONS
;        :DOCUMENTATION
;        "The number of confirmations, or -1 if the block is not on the main chain")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "The block height or index")
;       ("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;        "The block version")
;       (BITCOIN-RPC/CLASSES:VERSION-HEX "versionHex" :STRING :READER
;        BITCOIN-RPC/CLASSES:VERSION-HEX :DOCUMENTATION
;        "The block version formatted in hexadecimal")
;       (BITCOIN-RPC/CLASSES:MERKLE-ROOT "merkleroot" :STRING :READER
;        BITCOIN-RPC/CLASSES:MERKLE-ROOT :DOCUMENTATION "The merkle root")
;       (BITCOIN-RPC/CLASSES::BLOCK-HEADER-TIME "time" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BLOCK-HEADER-TIME :DOCUMENTATION
;        "The block time expressed in UNIX epoch time")
;       (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES:MEDIAN-TIME :DOCUMENTATION
;        "The median block time expressed in UNIX epoch time")
;       ("nonce" :NUMBER :READER BITCOIN-RPC/CLASSES:NONCE)
;       ("bits" :STRING :READER BITCOIN-RPC/CLASSES:BITS)
;       ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES:DIFFICULTY)
;       (BITCOIN-RPC/CLASSES:CHAIN-WORK "chainwork" :STRING :READER
;        BITCOIN-RPC/CLASSES:CHAIN-WORK :DOCUMENTATION
;        "Expected number of hashes required to produce the current chain")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS CHAIN-TRANSACTION-STATISTICS
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:CHAIN-TRANSACTION-STATISTICS NIL
;      (("time" :NUMBER :READER BITCOIN-RPC/CLASSES::WINDOW-TIME :DOCUMENTATION
;        "The timestamp for the final block in the window, expressed in UNIX epoch time")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-COUNT "txcount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-COUNT :DOCUMENTATION
;        "The total number of transactions in the chain up to that point")
;       (BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HASH "window_final_block_hash"
;        :STRING :READER BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HASH
;        :DOCUMENTATION "The hash of the final block in the window")
;       (BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HEIGHT "window_final_block_height"
;        :NUMBER :READER BITCOIN-RPC/CLASSES::WINDOW-FINAL-BLOCK-HEIGHT
;        :DOCUMENTATION "The height of the final block in the window.")
;       (BITCOIN-RPC/CLASSES::WINDOW-BLOCK-COUNT "window_block_count" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::WINDOW-BLOCK-COUNT :DOCUMENTATION
;        "Size of the window in number of blocks")
;       (BITCOIN-RPC/CLASSES::WINDOW-TRANSACTION-COUNT "window_tx_count" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::WINDOW-TRANSACTION-COUNT :DOCUMENTATION
;        "The number of transactions in the window. Only returned if \"window_block_count\" is > 0")
;       (BITCOIN-RPC/CLASSES::WINDOW-INTERVALL "window_interval" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::WINDOW-INTERVALL :DOCUMENTATION
;        "The elapsed time in the window in seconds. Only returned if \"window_block_count\" is > 0")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-RATE "txrate" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-RATE :DOCUMENTATION
;        "The average rate of transactions per second in the window. Only returned if \"window_interval\" is > 0")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCK-STATISTICS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCK-STATISTICS NIL
;      ((BITCOIN-RPC/CLASSES::AVERAGE-FEE "avgfee" :NUMBER :DOCUMENTATION
;        "Average fee in the block" :READER BITCOIN-RPC/CLASSES::AVERAGE-FEE)
;       (BITCOIN-RPC/CLASSES::AVERAGE-FEE-RATE "avgfeerate" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::AVERAGE-FEE-RATE :DOCUMENTATION
;        "Average feerate (in satoshis per virtual byte)")
;       (BITCOIN-RPC/CLASSES::AVERAGE-TRANSACTION-SIZE "avgtxsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::AVERAGE-TRANSACTION-SIZE :DOCUMENTATION
;        "Average transaction size")
;       ("blockhash" :STRING :READER BITCOIN-RPC/CLASSES::BLOCKHASH :DOCUMENTATION
;        "The block hash (to check for potential reorgs)")
;       (BITCOIN-RPC/CLASSES::FEE-RATE-PERCENTILES "feerate_percentiles"
;        (:LIST :NUMBER) :READER BITCOIN-RPC/CLASSES::FEE-RATE-PERCENTILES
;        :DOCUMENTATION
;        "Feerates at the 10th, 25th, 50th, 75th, and 90th percentile weight unit (in satoshis per virtual byte)")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "The height of the block")
;       (BITCOIN-RPC/CLASSES::INPUTS "ins" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::INPUTS :DOCUMENTATION
;        "The number of inputs (excluding coinbase)")
;       (BITCOIN-RPC/CLASSES::MAXIMUM-FEE "maxfee" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MAXIMUM-FEE :DOCUMENTATION
;        "Maximum fee in the block")
;       (BITCOIN-RPC/CLASSES::MAXIMUM-FEE-RATE "maxfeerate" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MAXIMUM-FEE-RATE :DOCUMENTATION
;        "Maximum feerate (in satoshis per virtual byte)")
;       (BITCOIN-RPC/CLASSES::MAXIMUM-TRANSACTION-SIZE "maxtxsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MAXIMUM-TRANSACTION-SIZE :DOCUMENTATION
;        "Maximum transaction size")
;       (BITCOIN-RPC/CLASSES::MEDIAN-FEE "medianfee" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MEDIAN-FEE :DOCUMENTATION
;        "Truncated median fee in the block")
;       (BITCOIN-RPC/CLASSES:MEDIAN-TIME "mediantime" :NUMBER :READER
;        BITCOIN-RPC/CLASSES:MEDIAN-TIME)
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS CHAIN-TIP
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:CHAIN-TIP NIL
;      (("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "height of the chain tip")
;       ("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;        "block hash of the tip")
;       (BITCOIN-RPC/CLASSES::BRANCH-LENGTH "branchlen" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BRANCH-LENGTH :DOCUMENTATION
;        "zero for main chain, otherwise length of branch connecting the tip to the main chain")
;       ("status" :STRING :READER BITCOIN-RPC/CLASSES::STATUS :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (699)) status of the chain, "active" for the main chain
;                            Possible values for status:
;                            1.  "invalid"               This branch contains at least one invalid blo... {100E2C543F}>)))
; 
; note: deleting unreachable code

; in: JSON-CLASS SIGNED-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SIGNED-TRANSACTION NIL
;      (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The hex-encoded raw transaction with signature(s)")
;       ("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;        "If the transaction has a complete set of signatures")
;       ("errors" (:LIST BITCOIN-RPC/CLASSES::SIGNING-ERROR))))
; 
; note: deleting unreachable code

; in: JSON-CLASS SIGNING-ERROR
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::SIGNING-ERROR NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The hash of the referenced, previous transaction")
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION
;        "The index of the output to spent and used as input")
;       (BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE "scriptSig" :STRING :READER
;        BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :DOCUMENTATION
;        "The hex-encoded signature script")
;       (BITCOIN-RPC/CLASSES::SCRIPT-SEQUENCE "sequence" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::SCRIPT-SEQUENCE :DOCUMENTATION
;        "Script sequence number")
;       (BITCOIN-RPC/CLASSES::SIGNING-ERROR "error" :STRING :READER
;        BITCOIN-RPC/CLASSES::SIGNING-ERROR :DOCUMENTATION
;        "Verification or signing error related to the input")))
; 
; note: deleting unreachable code

; in: JSON-CLASS MULTISIG
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MULTISIG NIL
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The value of the new multisig address.")
;       (BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeemScript" :STRING :READER
;        BITCOIN-RPC/CLASSES::REDEEM-SCRIPT :DOCUMENTATION
;        "The string value of the hex-encoded redemption script.")
;       ("descriptor" :STRING :READER BITCOIN-RPC/CLASSES:DESCRIPTOR :DOCUMENTATION
;        "The descriptor for this multisig")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SMART-FEE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SMART-FEE NIL
;      ((BITCOIN-RPC/CLASSES::FEE-RATE "feerate" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::FEE-RATE :DOCUMENTATION
;        "estimate fee rate in BTC/kB (only present if no errors were encountered)")
;       ("errors" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES:ERRORS :DOCUMENTATION
;        "Errors encountered during processing (if there are any)")
;       ("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER (302)) block number where estimate was found.
;   The request target will be clamped between 2 and the highest target fee estimation is able to return based on how long it has been running. An error is returned ... {100E2F8C6F}>)))
; 
; note: deleting unreachable code

; in: JSON-CLASS DESCRIPTOR
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:DESCRIPTOR NIL
;      (("descriptor" :STRING :READER BITCOIN-RPC/CLASSES:DESCRIPTOR :DOCUMENTATION
;        "The descriptor in canonical form, without private keys")
;       ("checksum" :STRING :READER BITCOIN-RPC/CLASSES::CHECKSUM :DOCUMENTATION
;        "The checksum for the input descriptor")
;       (BITCOIN-RPC/CLASSES::IS-RANGE "isrange" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-RANGE :DOCUMENTATION
;        "Whether the descriptor is ranged")
;       (BITCOIN-RPC/CLASSES::IS-SOLVABLE "issolvable" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-SOLVABLE :DOCUMENTATION
;        "Whether the descriptor is solvable")
;       (BITCOIN-RPC/CLASSES::HAS-PRIVATE-KEYS "hasprivatekeys" :BOOL :READER
;        BITCOIN-RPC/CLASSES::HAS-PRIVATE-KEYS :DOCUMENTATION
;        "Whether the input descriptor contained at least one private key")
;       (BITCOIN-RPC/CLASSES::DESC "desc" :STRING :READER BITCOIN-RPC/CLASSES::DESC
;        :DOCUMENTATION "Descriptor string representation")
;       ("timestamp" :NUMBER :READER BITCOIN-RPC/CLASSES::TIMESTAMP :DOCUMENTATION
;        "The creation time of the descriptor")
;       ("active" :BOOL :READER BITCOIN-RPC/CLASSES::ACTIVE :DOCUMENTATION
;        "Whether this descriptor is currently used to generate new addresses")
;       ("internal" :BOOL :READER BITCOIN-RPC/CLASSES::INTERNAL :DOCUMENTATION
;        "True if this descriptor is used to generate change addresses. False if this descriptor is used to generate receiving addresses; defined only for active descriptors")
;       ("range" (:LIST :NUMBER) :READER BITCOIN-RPC/CLASSES::RANGE :DOCUMENTATION
;        "Defined only for ranged descriptors")
;       ("next" :NUMBER :READER BITCOIN-RPC/CLASSES::NEXT :DOCUMENTATION
;        "Same as next_index field. Kept for compatibility reason.")
;       (BITCOIN-RPC/CLASSES::NEXT-INDEX "next_index" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::NEXT-INDEX :DOCUMENTATION
;        "The next index to generate addresses from; defined only for ranged descriptors")))
; 
; note: deleting unreachable code

; in: JSON-CLASS IMPORTED-DESCRIPTOR
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:IMPORTED-DESCRIPTOR NIL
;      (("success" :BOOL :READER BITCOIN-RPC/CLASSES::SUCCESS)
;       ("warnings" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::WARNINGS)
;       ("error" :HASH-TABLE :READER
;        BITCOIN-RPC/CLASSES::IMPORTED-DESCRIPTOR-ERROR)))
; 
; note: deleting unreachable code

; in: JSON-CLASS UNSPENDABLE-OUTPUT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:UNSPENDABLE-OUTPUT NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :DOCUMENTATION
;        "The transaction id locked")
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :STRING :DOCUMENTATION
;        "The vout value")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BUMP-FEE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BUMP-FEE NIL
;      (("psbt" :STRING :READER BITCOIN-RPC/CLASSES::PSBT :DOCUMENTATION
;        "The base64-encoded unsigned PSBT of the new transaction. Only returned when wallet private keys are disabled. (DEPRECATED)")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The id of the new transaction. Only returned when wallet private keys are enabled.")
;       (BITCOIN-RPC/CLASSES::ORIGINAL-FEE "origfee" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::ORIGINAL-FEE :DOCUMENTATION
;        "The fee of the replaced transaction.")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        "The fee of the new transaction.")
;       ("errors" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES:ERRORS :DOCUMENTATION
;        "Errors encountered during processing (may be empty).")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BLOCKCHAIN-RESCAN
;     ((BITCOIN-RPC/CLASSES::START-HEIGHT "start_height" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::START-HEIGHT)
;      (BITCOIN-RPC/CLASSES::STOP-HEIGHT "stop_height" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::STOP-HEIGHT))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS ADDRESS-BASE
;     (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "The bitcoin address validated")
;      (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY "scriptPubKey" :STRING :READER
;       BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY :DOCUMENTATION
;       "The hex-encoded scriptPubKey generated by the address")
;      (BITCOIN-RPC/CLASSES::IS-SCRIPT "isscript" :BOOL :READER
;       BITCOIN-RPC/CLASSES::IS-SCRIPT :DOCUMENTATION "If the key is a script")
;      (BITCOIN-RPC/CLASSES::IS-WITNESS "iswitness" :BOOL :READER
;       BITCOIN-RPC/CLASSES::IS-WITNESS :DOCUMENTATION
;       "If the address is a witness address")
;      (BITCOIN-RPC/CLASSES::WITNESS-VERSION "witness_version" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::WITNESS-VERSION :DOCUMENTATION
;       "The version number of the witness program")
;      (BITCOIN-RPC/CLASSES::WITNESS-PROGRAM "witness_program" :STRING :READER
;       BITCOIN-RPC/CLASSES::WITNESS-PROGRAM :DOCUMENTATION
;       "The hex value of the witness program"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS VALIDATE-ADDRESS
;     ((BITCOIN-RPC/CLASSES::IS-VALID "isvalid" :BOOL :READER
;       BITCOIN-RPC/CLASSES::IS-VALID :DOCUMENTATION
;       "If the address is valid or not. If not, this is the only property returned.")
;      ("error" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS-ERROR)
;      (BITCOIN-RPC/CLASSES::ERROR-LOCATIONS "error_locations" :ANY :READER
;       BITCOIN-RPC/CLASSES::ERROR-LOCATIONS))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS ADDRESS-INFO
;     (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "The bitcoin address validated.")
;      (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY "scriptPubKey" :STRING :READER
;       BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY :DOCUMENTATION
;       "The hex-encoded scriptPubKey generated by the address.")
;      (BITCOIN-RPC/CLASSES::IS-MINE "ismine" :BOOL :READER
;       BITCOIN-RPC/CLASSES::IS-MINE :DOCUMENTATION "If the address is yours.")
;      (BITCOIN-RPC/CLASSES::IS-WATCH-ONLY "iswatchonly" :BOOL :READER
;       BITCOIN-RPC/CLASSES::IS-WATCH-ONLY :DOCUMENTATION
;       "If the address is watchonly.")
;      ("solvable" :BOOL :READER BITCOIN-RPC/CLASSES::SOLVABLE :DOCUMENTATION
;       "If we know how to spend coins sent to this address, ignoring the possible lack of private keys.")
;      (BITCOIN-RPC/CLASSES:DESCRIPTOR "desc" :STRING :READER
;       BITCOIN-RPC/CLASSES:DESCRIPTOR :DOCUMENTATION
;       "A descriptor for spending coins sent to this address (only when solvable).")
;      ("ischange" :BOOL :READER BITCOIN-RPC/CLASSES::IS-CHANGE :DOCUMENTATION
;       "If the address was used for change output.")
;      ("script" :STRING :READER BITCOIN-RPC/CLASSES::SCRIPT :DOCUMENTATION
;       #<(SIMPLE-ARRAY CHARACTER
;          (220)) The output script type. Only if isscript is true and the redeemscript is known. Possible types: nonstandard, pubkey, pubkeyhash, scripthash, multisig, nulldata, witness_v0_keyhash, witness_v0_scriptha... {100E471D1F}>)
;      ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;       "The redeemscript for the p2sh address.")
;      (BITCOIN-RPC/CLASSES::PUBLIC-KEYS "pubkeys" (:LIST :STRING) :READER
;       BITCOIN-RPC/CLASSES::PUBLIC-KEYS :DOCUMENTATION
;       "Array of pubkeys associated with the known redeemscript (only if script is multisig).")
;      (BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES "sigsrequired" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES :DOCUMENTATION
;       "The number of signatures required to spend multisig output (only if script is multisig).")
;      (BITCOIN-RPC/CLASSES::PUBLIC-KEY "pubkey" :STRING :READER
;       BITCOIN-RPC/CLASSES::PUBLIC-KEY :DOCUMENTATION
;       "The hex value of the raw public key for single-key addresses (possibly embedded in P2SH or P2WSH).")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BALANCES
;     (("mine" BITCOIN-RPC/CLASSES:BALANCE :READER BITCOIN-RPC/CLASSES::MINE
;       :DOCUMENTATION "balances from outputs that the wallet can sign")
;      (BITCOIN-RPC/CLASSES::WATCH-ONLY "watchonly" BITCOIN-RPC/CLASSES:BALANCE
;       :READER BITCOIN-RPC/CLASSES::WATCH-ONLY :DOCUMENTATION
;       "watchonly balances (not present if wallet does not watch anything)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BALANCE
;     (("trusted" :NUMBER :READER BITCOIN-RPC/CLASSES::TRUSTED :DOCUMENTATION
;       "trusted balance (outputs created by the wallet or confirmed outputs)")
;      (BITCOIN-RPC/CLASSES::UNTRUSTED-PENDING "untrusted_pending" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::UNTRUSTED-PENDING :DOCUMENTATION
;       "untrusted pending balance (outputs created by others that are in the mempool)")
;      ("immature" :NUMBER :READER BITCOIN-RPC/CLASSES::IMMATURE :DOCUMENTATION
;       "balance from immature coinbase outputs")
;      ("used" :NUMBER :READER BITCOIN-RPC/CLASSES::USED :DOCUMENTATION
;       "(only present if avoid_reuse is set) balance from coins sent to addresses that were previously spent from (potentially privacy violating)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS WALLET
;     ((BITCOIN-RPC/CLASSES::EXTERNAL-SIGNER "external_signer" :BOOL :READER
;       BITCOIN-RPC/CLASSES::EXTERNAL-SIGNER)
;      ("balance" :NUMBER :READER BITCOIN-RPC/CLASSES:BALANCE :DOCUMENTATION
;       "DEPRECATED. Identical to getbalances().mine.trusted")
;      (BITCOIN-RPC/CLASSES::UNCONFIRMED-BALANCE "unconfirmed_balance" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::UNCONFIRMED-BALANCE :DOCUMENTATION
;       "DEPRECATED. Identical to getbalances().mine.untrusted_pending")
;      (BITCOIN-RPC/CLASSES::IMMATURE-BALANCE "immature_balance" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::IMMATURE-BALANCE :DOCUMENTATION
;       "Identical to getbalances().mine.immature")
;      (BITCOIN-RPC/CLASSES::WALLET-NAME "walletname" :STRING :READER
;       BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION "the wallet name")
;      (BITCOIN-RPC/CLASSES::WALLET-VERSION "walletversion" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::WALLET-VERSION)
;      ("format" :STRING :READER BITCOIN-RPC/CLASSES::WALLET-FORMAT :DOCUMENTATION
;       "the database format (bdb or sqlite)")
;      (BITCOIN-RPC/CLASSES::TRANSACTION-COUNT "txcount" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-COUNT :DOCUMENTATION
;       "the total number of transactions in the wallet")
;      (BITCOIN-RPC/CLASSES::KEY-POOL-OLDEST "keypoololdest" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::KEY-POOL-OLDEST :DOCUMENTATION
;       "the UNIX epoch time of the oldest pre-generated key in the key pool. Legacy wallets only.")
;      (BITCOIN-RPC/CLASSES::KEY-POOL-SIZE "keypoolsize" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::KEY-POOL-SIZE :DOCUMENTATION
;       "how many new keys are pre-generated (only counts external keys)")
;      (BITCOIN-RPC/CLASSES::KEY-POOL-SIZE-HD-INTERNAL "keypoolsize_hd_internal"
;       :NUMBER :READER BITCOIN-RPC/CLASSES::KEY-POOL-SIZE-HD-INTERNAL
;       :DOCUMENTATION
;       "how many new keys are pre-generated for internal use (used for change outputs, only appears if the wallet is using this feature, otherwise external keys are used)")
;      (BITCOIN-RPC/CLASSES::UNLOCKED-UNTIL "unlocked_until" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::UNLOCKED-UNTIL :DOCUMENTATION
;       "the UNIX epoch time until which the wallet is unlocked for transfers, or 0 if the wallet is locked (only present for passphrase-encrypted wallets)")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SCANNING
;     (("duration" :NUMBER :READER BITCOIN-RPC/CLASSES::DURATION :DOCUMENTATION
;       "elapsed seconds since scan start")
;      ("progress" :NUMBER :READER BITCOIN-RPC/CLASSES::PROGRESS :DOCUMENTATION
;       "scanning progress percentage [0.0, 1.0]"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS MINING-INFORMATION
;     (("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;       "The current block")
;      (BITCOIN-RPC/CLASSES::CURRENT-BLOCK-WEIGHT "currentblockweight" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::CURRENT-BLOCK-WEIGHT :DOCUMENTATION
;       "The block weight of the last assembled block (only present if a block was ever assembled)")
;      (BITCOIN-RPC/CLASSES::CURRENT-BLOCK-TRANSACTIONS "currentblocktx" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::CURRENT-BLOCK-TRANSACTIONS :DOCUMENTATION
;       "The number of block transactions of the last assembled block (only present if a block was ever assembled)")
;      ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES:DIFFICULTY :DOCUMENTATION
;       "The current difficulty")
;      (BITCOIN-RPC/CLASSES::NETWORK-HASH-PER-SECOND "networkhashps" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::NETWORK-HASH-PER-SECOND :DOCUMENTATION
;       "The network hashes per second")
;      (BITCOIN-RPC/CLASSES::POOLED-TRANSACTIONS "pooledtx" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::POOLED-TRANSACTIONS :DOCUMENTATION
;       "The size of the mempool")
;      ("chain" :STRING :READER BITCOIN-RPC/CLASSES::CHAIN :DOCUMENTATION
;       "current network name (main, test, regtest)")
;      ("warnings" :STRING :READER BITCOIN-RPC/CLASSES::WARNINGS :DOCUMENTATION
;       "any network and blockchain warnings"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS ADDED-NODES
;     ((BITCOIN-RPC/CLASSES::ADDED-NODE "addednode" :STRING :READER
;       BITCOIN-RPC/CLASSES::ADDED-NODE :DOCUMENTATION
;       "The node IP address or name (as provided to addnode)")
;      ("connected" :BOOL :READER BITCOIN-RPC/CLASSES::CONNECTED :DOCUMENTATION
;       "If connected")
;      ("addresses" (:LIST BITCOIN-RPC/CLASSES::CONNECTED-ADDRESS) :READER
;       BITCOIN-RPC/CLASSES::ADDRESSES))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS CONNECTED-ADDRESS
;     (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "The bitcoin server IP and port we're connected to")
;      ("connected" :STRING :READER BITCOIN-RPC/CLASSES::CONNECTED :DOCUMENTATION
;       "connection, inbound or outbound"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS NETWORK-TRAFFIC
;     ((BITCOIN-RPC/CLASSES::TOTAL-BYTES-RECEIVED "totalbytesrecv" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TOTAL-BYTES-RECEIVED :DOCUMENTATION
;       "Total bytes received")
;      (BITCOIN-RPC/CLASSES::TOTAL-BYTES-SENT "totalbytessent" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TOTAL-BYTES-SENT :DOCUMENTATION "Total bytes sent")
;      (BITCOIN-RPC/CLASSES::TIME-MILLI-SECONDS "timemillis" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TIME-MILLI-SECONDS :DOCUMENTATION
;       "Current UNIX epoch time in milliseconds")
;      (BITCOIN-RPC/CLASSES::UPLOAD-TARGET "uploadtarget"
;       BITCOIN-RPC/CLASSES::UPLOAD-TARGET :READER
;       BITCOIN-RPC/CLASSES::UPLOAD-TARGET))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS UPLOAD-TARGET
;     ((BITCOIN-RPC/CLASSES::TIME-FRAME "timeframe" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TIME-FRAME :DOCUMENTATION
;       "Length of the measuring timeframe in seconds")
;      ("target" :NUMBER :READER BITCOIN-RPC/CLASSES::TARGET :DOCUMENTATION
;       "Target in bytes")
;      (BITCOIN-RPC/CLASSES::TARGET-REACHED "target_reached" :BOOL :READER
;       BITCOIN-RPC/CLASSES::TARGET-REACHED :DOCUMENTATION
;       "True if target is reached")
;      (BITCOIN-RPC/CLASSES::SERVE-HISTORICAL-BLOCKS "serve_historical_blocks"
;       :BOOL :READER BITCOIN-RPC/CLASSES::SERVE-HISTORICAL-BLOCKS :DOCUMENTATION
;       "True if serving historical blocks")
;      (BITCOIN-RPC/CLASSES::BYTES-LEFT-IN-CYCLE "bytes_left_in_cycle" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::BYTES-LEFT-IN-CYCLE :DOCUMENTATION
;       "Bytes left in current time cycle")
;      (BITCOIN-RPC/CLASSES::TIME-LEFT-IN-CYCLE "time_left_in_cycle" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::TIME-LEFT-IN-CYCLE :DOCUMENTATION
;       "Seconds left in current time cycle"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS NETWORK-INFORMATION
;     (("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;       "the server version")
;      (BITCOIN-RPC/CLASSES::SUB-VERSION "subversion" :STRING :READER
;       BITCOIN-RPC/CLASSES::SUB-VERSION :DOCUMENTATION
;       "the server subversion string")
;      (BITCOIN-RPC/CLASSES::PROTOCOL-VERSION "protocolversion" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::PROTOCOL-VERSION :DOCUMENTATION
;       "the protocol version")
;      (BITCOIN-RPC/CLASSES::LOCAL-SERVICES "localservices" :STRING :READER
;       BITCOIN-RPC/CLASSES::LOCAL-SERVICES :DOCUMENTATION
;       "the services we offer to the network")
;      (BITCOIN-RPC/CLASSES::LOCAL-SERVICES-NAMES "localservicesnames"
;       (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::LOCAL-SERVICES-NAMES
;       :DOCUMENTATION
;       "the services we offer to the network, in human-readable form")
;      (BITCOIN-RPC/CLASSES::LOCAL-RELAY "localrelay" :BOOL :READER
;       BITCOIN-RPC/CLASSES::LOCAL-RELAY :DOCUMENTATION
;       "true if transaction relay is requested from peers")
;      (BITCOIN-RPC/CLASSES::TIME-OFFSET "timeoffset" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TIME-OFFSET :DOCUMENTATION "the time offset")
;      ("connections" :NUMBER :READER BITCOIN-RPC/CLASSES::CONNECTIONS
;       :DOCUMENTATION "the total number of connections")
;      (BITCOIN-RPC/CLASSES::CONNECTIONS-IN "connections_in" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::CONNECTIONS-IN :DOCUMENTATION
;       "the number of inbound connections")
;      (BITCOIN-RPC/CLASSES::CONNECTIONS-OUT "connections_out" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::CONNECTIONS-OUT :DOCUMENTATION
;       "the number of outbound connections")
;      (BITCOIN-RPC/CLASSES::NETWORK-ACTIVE "networkactive" :BOOL :READER
;       BITCOIN-RPC/CLASSES::NETWORK-ACTIVE :DOCUMENTATION
;       "whether p2p networking is enabled")
;      ("networks" (:LIST BITCOIN-RPC/CLASSES::NETWORK) :READER
;       BITCOIN-RPC/CLASSES::NETWORKS :DOCUMENTATION "information per network")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS NETWORK
;     (("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;       "network (ipv4, ipv6 or onion)")
;      ("limited" :BOOL :READER BITCOIN-RPC/CLASSES::LIMITED :DOCUMENTATION
;       "is the network limited using -onlynet?")
;      ("reachable" :BOOL :READER BITCOIN-RPC/CLASSES::REACHABLE :DOCUMENTATION
;       "is the network reachable?")
;      ("proxy" :STRING :READER BITCOIN-RPC/CLASSES::PROXY :DOCUMENTATION
;       "(\"host:port\") the proxy that is used for this network, or empty if none")
;      (BITCOIN-RPC/CLASSES::PROXY-RANDOMIZE-CREDENTIALS
;       "proxy_randomize_credentials" :BOOL :READER
;       BITCOIN-RPC/CLASSES::PROXY-RANDOMIZE-CREDENTIALS :DOCUMENTATION
;       "Whether randomized credentials are used"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS LOCAL-ADDRESS
;     (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "network address")
;      ("port" :NUMBER :READER BITCOIN-RPC/CLASSES::PORT :DOCUMENTATION
;       "network port")
;      ("score" :NUMBER :READER BITCOIN-RPC/CLASSES::SCORE :DOCUMENTATION
;       "relative score"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS NODE-ADDRESS
;     (("time" :NUMBER :READER BITCOIN-RPC/CLASSES::NODE-TIME :DOCUMENTATION
;       "The UNIX epoch time of when the node was last seen")
;      ("services" :NUMBER :READER BITCOIN-RPC/CLASSES::SERVICES :DOCUMENTATION
;       "The services offered")
;      ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "The address of the node")
;      ("port" :NUMBER :READER BITCOIN-RPC/CLASSES::PORT :DOCUMENTATION
;       "The port of the node")
;      ("network" :STRING :READER BITCOIN-RPC/CLASSES::NETWORK))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS PEER
;     (("id" :NUMBER :READER BITCOIN-RPC/CLASSES::ID :DOCUMENTATION "Peer index")
;      (BITCOIN-RPC/CLASSES::ADDRESS-PROCESSED "addr_processed" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::ADDRESS-PROCESSED)
;      (BITCOIN-RPC/CLASSES::ADDRESS-RATE-LIMITED "addr_rate_limited" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::ADDRESS-RATE-LIMITED)
;      (BITCOIN-RPC/CLASSES::ADDRESS-RELAY-ENABLED "addr_relay_enabled" :BOOL
;       :READER BITCOIN-RPC/CLASSES::ADDRESS-RELAY-ENABLED)
;      (BITCOIN-RPC/CLASSES::BIP152-HB-FROM "bip152_hb_from" :BOOL :READER
;       BITCOIN-RPC/CLASSES::BIP152-HB-FROM)
;      (BITCOIN-RPC/CLASSES::BIP152-HB-TO "bip152_hb_to" :BOOL :READER
;       BITCOIN-RPC/CLASSES::BIP152-HB-TO)
;      (BITCOIN-RPC/CLASSES::PRESYNCED-HEADERS "presynced_headers" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::PRESYNCED-HEADERS)
;      (BITCOIN-RPC/CLASSES::ADDRESS "addr" :STRING :READER
;       BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "(host:port) The IP address and port of the peer")
;      (BITCOIN-RPC/CLASSES::ADDRESS-BIND "addrbind" :STRING :READER
;       BITCOIN-RPC/CLASSES::ADDRESS-BIND :DOCUMENTATION
;       "(ip:port) Bind address of the connection to the peer")
;      (BITCOIN-RPC/CLASSES::ADDRESS-LOCAL "addrlocal" :STRING :READER
;       BITCOIN-RPC/CLASSES::ADDRESS-LOCAL :DOCUMENTATION
;       "(ip:port) Local address as reported by the peer")
;      ("network" :STRING :READER BITCOIN-RPC/CLASSES::NETWORK :DOCUMENTATION
;       "Network (ipv4, ipv6, or onion) the peer connected through")
;      (BITCOIN-RPC/CLASSES::MAPPED-AS "mapped_as" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::MAPPED-AS :DOCUMENTATION
;       "The AS in the BGP route to the peer used for diversifying peer selection (only available if the asmap config flag is set)")
;      ...)
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BANNED
;     (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "The banned address.")
;      (BITCOIN-RPC/CLASSES::BANNED-UNTIL "banned_until" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::BANNED-UNTIL :DOCUMENTATION
;       "The time (in seconds since Jan 1 1970 GMT) until the address is banned.")
;      ("ban_created" :NUMBER :READER BITCOIN-RPC/CLASSES::BAN_CREATED
;       :DOCUMENTATION
;       "The time (in seconds since Jan 1 1970 GMT) when the ban was created.")
;      (BITCOIN-RPC/CLASSES::BAN-DURATION "ban_duration" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::BAN-DURATION)
;      (BITCOIN-RPC/CLASSES::TIME-REMAINING "time_remaining" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::TIME-REMAINING))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     (("inputs"
;       (:LIST BITCOIN-RPC/CLASSES::PARTIALLY-SIGNED-BITCOIN-TRANSACTION-INPUT)
;       :READER BITCOIN-RPC/CLASSES::INPUTS)
;      (BITCOIN-RPC/CLASSES::ESTIMATED-VIRTUAL-SIZE "estimated_vsize" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::ESTIMATED-VIRTUAL-SIZE :DOCUMENTATION
;       "Estimated vsize of the final signed transaction")
;      (BITCOIN-RPC/CLASSES::ESTIMATED-FEE-RATE "estimated_feerate" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::ESTIMATED-FEE-RATE :DOCUMENTATION
;       "Estimated feerate of the final signed transaction in BTC/kB. Shown only if all UTXO slots in the PSBT have been filled")
;      ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;       "The transaction fee paid. Shown only if all UTXO slots in the PSBT have been filled")
;      ("next" :STRING :READER BITCOIN-RPC/CLASSES::NEXT :DOCUMENTATION
;       "Role of the next person that this psbt needs to go to")
;      (BITCOIN-RPC/CLASSES::ERROR-MESSAGE "error" :STRING :READER
;       BITCOIN-RPC/CLASSES::ERROR-MESSAGE :DOCUMENTATION
;       "Error message (if there is one)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS PARTIALLY-SIGNED-BITCOIN-TRANSACTION-INPUT
;     ((BITCOIN-RPC/CLASSES::HAS-UTXO "has_utxo" :BOOL :READER
;       BITCOIN-RPC/CLASSES::HAS-UTXO :DOCUMENTATION "Whether a UTXO is provided")
;      (BITCOIN-RPC/CLASSES::IS-FINAL "is_final" :BOOL :READER
;       BITCOIN-RPC/CLASSES::IS-FINAL :DOCUMENTATION
;       "Whether the input is finalized")
;      ("missing" BITCOIN-RPC/CLASSES::MISSING-INPUTS :READER
;       BITCOIN-RPC/CLASSES::MISSING :DOCUMENTATION
;       "Things that are missing that are required to complete this input")
;      ("next" :STRING :READER BITCOIN-RPC/CLASSES::NEXT :DOCUMENTATION
;       "Role of the next person that this input needs to go to"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS ADDRESS-BASE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::ADDRESS-BASE NIL
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The bitcoin address validated")
;       (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY "scriptPubKey" :STRING :READER
;        BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY :DOCUMENTATION
;        "The hex-encoded scriptPubKey generated by the address")
;       (BITCOIN-RPC/CLASSES::IS-SCRIPT "isscript" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-SCRIPT :DOCUMENTATION "If the key is a script")
;       (BITCOIN-RPC/CLASSES::IS-WITNESS "iswitness" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-WITNESS :DOCUMENTATION
;        "If the address is a witness address")
;       (BITCOIN-RPC/CLASSES::WITNESS-VERSION "witness_version" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::WITNESS-VERSION :DOCUMENTATION
;        "The version number of the witness program")
;       (BITCOIN-RPC/CLASSES::WITNESS-PROGRAM "witness_program" :STRING :READER
;        BITCOIN-RPC/CLASSES::WITNESS-PROGRAM :DOCUMENTATION
;        "The hex value of the witness program")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS VALIDATE-ADDRESS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:VALIDATE-ADDRESS
;      (BITCOIN-RPC/CLASSES::ADDRESS-BASE)
;      ((BITCOIN-RPC/CLASSES::IS-VALID "isvalid" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-VALID :DOCUMENTATION
;        "If the address is valid or not. If not, this is the only property returned.")
;       ("error" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS-ERROR)
;       (BITCOIN-RPC/CLASSES::ERROR-LOCATIONS "error_locations" :ANY :READER
;        BITCOIN-RPC/CLASSES::ERROR-LOCATIONS)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS ADDRESS-INFO
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ADDRESS-INFO
;      (BITCOIN-RPC/CLASSES::ADDRESS-BASE)
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The bitcoin address validated.")
;       (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY "scriptPubKey" :STRING :READER
;        BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY :DOCUMENTATION
;        "The hex-encoded scriptPubKey generated by the address.")
;       (BITCOIN-RPC/CLASSES::IS-MINE "ismine" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-MINE :DOCUMENTATION "If the address is yours.")
;       (BITCOIN-RPC/CLASSES::IS-WATCH-ONLY "iswatchonly" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-WATCH-ONLY :DOCUMENTATION
;        "If the address is watchonly.")
;       ("solvable" :BOOL :READER BITCOIN-RPC/CLASSES::SOLVABLE :DOCUMENTATION
;        "If we know how to spend coins sent to this address, ignoring the possible lack of private keys.")
;       (BITCOIN-RPC/CLASSES:DESCRIPTOR "desc" :STRING :READER
;        BITCOIN-RPC/CLASSES:DESCRIPTOR :DOCUMENTATION
;        "A descriptor for spending coins sent to this address (only when solvable).")
;       ("ischange" :BOOL :READER BITCOIN-RPC/CLASSES::IS-CHANGE :DOCUMENTATION
;        "If the address was used for change output.")
;       ("script" :STRING :READER BITCOIN-RPC/CLASSES::SCRIPT :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (220)) The output script type. Only if isscript is true and the redeemscript is known. Possible types: nonstandard, pubkey, pubkeyhash, scripthash, multisig, nulldata, witness_v0_keyhash, witness_v0_scriptha... {100E471D1F}>)
;       ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The redeemscript for the p2sh address.")
;       (BITCOIN-RPC/CLASSES::PUBLIC-KEYS "pubkeys" (:LIST :STRING) :READER
;        BITCOIN-RPC/CLASSES::PUBLIC-KEYS :DOCUMENTATION
;        "Array of pubkeys associated with the known redeemscript (only if script is multisig).")
;       (BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES "sigsrequired" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES :DOCUMENTATION
;        "The number of signatures required to spend multisig output (only if script is multisig).")
;       (BITCOIN-RPC/CLASSES::PUBLIC-KEY "pubkey" :STRING :READER
;        BITCOIN-RPC/CLASSES::PUBLIC-KEY :DOCUMENTATION
;        "The hex value of the raw public key for single-key addresses (possibly embedded in P2SH or P2WSH).")
;       ...))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS BALANCES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BALANCES NIL
;      (("mine" BITCOIN-RPC/CLASSES:BALANCE :READER BITCOIN-RPC/CLASSES::MINE
;        :DOCUMENTATION "balances from outputs that the wallet can sign")
;       (BITCOIN-RPC/CLASSES::WATCH-ONLY "watchonly" BITCOIN-RPC/CLASSES:BALANCE
;        :READER BITCOIN-RPC/CLASSES::WATCH-ONLY :DOCUMENTATION
;        "watchonly balances (not present if wallet does not watch anything)")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS BALANCE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BALANCE NIL
;      (("trusted" :NUMBER :READER BITCOIN-RPC/CLASSES::TRUSTED :DOCUMENTATION
;        "trusted balance (outputs created by the wallet or confirmed outputs)")
;       (BITCOIN-RPC/CLASSES::UNTRUSTED-PENDING "untrusted_pending" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::UNTRUSTED-PENDING :DOCUMENTATION
;        "untrusted pending balance (outputs created by others that are in the mempool)")
;       ("immature" :NUMBER :READER BITCOIN-RPC/CLASSES::IMMATURE :DOCUMENTATION
;        "balance from immature coinbase outputs")
;       ("used" :NUMBER :READER BITCOIN-RPC/CLASSES::USED :DOCUMENTATION
;        "(only present if avoid_reuse is set) balance from coins sent to addresses that were previously spent from (potentially privacy violating)")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS WALLET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:WALLET NIL
;      ((BITCOIN-RPC/CLASSES::EXTERNAL-SIGNER "external_signer" :BOOL :READER
;        BITCOIN-RPC/CLASSES::EXTERNAL-SIGNER)
;       ("balance" :NUMBER :READER BITCOIN-RPC/CLASSES:BALANCE :DOCUMENTATION
;        "DEPRECATED. Identical to getbalances().mine.trusted")
;       (BITCOIN-RPC/CLASSES::UNCONFIRMED-BALANCE "unconfirmed_balance" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::UNCONFIRMED-BALANCE :DOCUMENTATION
;        "DEPRECATED. Identical to getbalances().mine.untrusted_pending")
;       (BITCOIN-RPC/CLASSES::IMMATURE-BALANCE "immature_balance" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::IMMATURE-BALANCE :DOCUMENTATION
;        "Identical to getbalances().mine.immature")
;       (BITCOIN-RPC/CLASSES::WALLET-NAME "walletname" :STRING :READER
;        BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION "the wallet name")
;       (BITCOIN-RPC/CLASSES::WALLET-VERSION "walletversion" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::WALLET-VERSION)
;       ("format" :STRING :READER BITCOIN-RPC/CLASSES::WALLET-FORMAT :DOCUMENTATION
;        "the database format (bdb or sqlite)")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-COUNT "txcount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-COUNT :DOCUMENTATION
;        "the total number of transactions in the wallet")
;       (BITCOIN-RPC/CLASSES::KEY-POOL-OLDEST "keypoololdest" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::KEY-POOL-OLDEST :DOCUMENTATION
;        "the UNIX epoch time of the oldest pre-generated key in the key pool. Legacy wallets only.")
;       (BITCOIN-RPC/CLASSES::KEY-POOL-SIZE "keypoolsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::KEY-POOL-SIZE :DOCUMENTATION
;        "how many new keys are pre-generated (only counts external keys)")
;       (BITCOIN-RPC/CLASSES::KEY-POOL-SIZE-HD-INTERNAL "keypoolsize_hd_internal"
;        :NUMBER :READER BITCOIN-RPC/CLASSES::KEY-POOL-SIZE-HD-INTERNAL
;        :DOCUMENTATION
;        "how many new keys are pre-generated for internal use (used for change outputs, only appears if the wallet is using this feature, otherwise external keys are used)")
;       (BITCOIN-RPC/CLASSES::UNLOCKED-UNTIL "unlocked_until" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::UNLOCKED-UNTIL :DOCUMENTATION
;        "the UNIX epoch time until which the wallet is unlocked for transfers, or 0 if the wallet is locked (only present for passphrase-encrypted wallets)")
;       ...))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS SCANNING
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SCANNING NIL
;      (("duration" :NUMBER :READER BITCOIN-RPC/CLASSES::DURATION :DOCUMENTATION
;        "elapsed seconds since scan start")
;       ("progress" :NUMBER :READER BITCOIN-RPC/CLASSES::PROGRESS :DOCUMENTATION
;        "scanning progress percentage [0.0, 1.0]")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS MINING-INFORMATION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MINING-INFORMATION NIL
;      (("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;        "The current block")
;       (BITCOIN-RPC/CLASSES::CURRENT-BLOCK-WEIGHT "currentblockweight" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::CURRENT-BLOCK-WEIGHT :DOCUMENTATION
;        "The block weight of the last assembled block (only present if a block was ever assembled)")
;       (BITCOIN-RPC/CLASSES::CURRENT-BLOCK-TRANSACTIONS "currentblocktx" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::CURRENT-BLOCK-TRANSACTIONS :DOCUMENTATION
;        "The number of block transactions of the last assembled block (only present if a block was ever assembled)")
;       ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES:DIFFICULTY :DOCUMENTATION
;        "The current difficulty")
;       (BITCOIN-RPC/CLASSES::NETWORK-HASH-PER-SECOND "networkhashps" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::NETWORK-HASH-PER-SECOND :DOCUMENTATION
;        "The network hashes per second")
;       (BITCOIN-RPC/CLASSES::POOLED-TRANSACTIONS "pooledtx" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::POOLED-TRANSACTIONS :DOCUMENTATION
;        "The size of the mempool")
;       ("chain" :STRING :READER BITCOIN-RPC/CLASSES::CHAIN :DOCUMENTATION
;        "current network name (main, test, regtest)")
;       ("warnings" :STRING :READER BITCOIN-RPC/CLASSES::WARNINGS :DOCUMENTATION
;        "any network and blockchain warnings")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS ADDED-NODES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ADDED-NODES NIL
;      ((BITCOIN-RPC/CLASSES::ADDED-NODE "addednode" :STRING :READER
;        BITCOIN-RPC/CLASSES::ADDED-NODE :DOCUMENTATION
;        "The node IP address or name (as provided to addnode)")
;       ("connected" :BOOL :READER BITCOIN-RPC/CLASSES::CONNECTED :DOCUMENTATION
;        "If connected")
;       ("addresses" (:LIST BITCOIN-RPC/CLASSES::CONNECTED-ADDRESS) :READER
;        BITCOIN-RPC/CLASSES::ADDRESSES)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS CONNECTED-ADDRESS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::CONNECTED-ADDRESS NIL
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The bitcoin server IP and port we're connected to")
;       ("connected" :STRING :READER BITCOIN-RPC/CLASSES::CONNECTED :DOCUMENTATION
;        "connection, inbound or outbound")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS NETWORK-TRAFFIC
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:NETWORK-TRAFFIC NIL
;      ((BITCOIN-RPC/CLASSES::TOTAL-BYTES-RECEIVED "totalbytesrecv" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TOTAL-BYTES-RECEIVED :DOCUMENTATION
;        "Total bytes received")
;       (BITCOIN-RPC/CLASSES::TOTAL-BYTES-SENT "totalbytessent" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TOTAL-BYTES-SENT :DOCUMENTATION "Total bytes sent")
;       (BITCOIN-RPC/CLASSES::TIME-MILLI-SECONDS "timemillis" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TIME-MILLI-SECONDS :DOCUMENTATION
;        "Current UNIX epoch time in milliseconds")
;       (BITCOIN-RPC/CLASSES::UPLOAD-TARGET "uploadtarget"
;        BITCOIN-RPC/CLASSES::UPLOAD-TARGET :READER
;        BITCOIN-RPC/CLASSES::UPLOAD-TARGET)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS UPLOAD-TARGET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::UPLOAD-TARGET NIL
;      ((BITCOIN-RPC/CLASSES::TIME-FRAME "timeframe" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TIME-FRAME :DOCUMENTATION
;        "Length of the measuring timeframe in seconds")
;       ("target" :NUMBER :READER BITCOIN-RPC/CLASSES::TARGET :DOCUMENTATION
;        "Target in bytes")
;       (BITCOIN-RPC/CLASSES::TARGET-REACHED "target_reached" :BOOL :READER
;        BITCOIN-RPC/CLASSES::TARGET-REACHED :DOCUMENTATION
;        "True if target is reached")
;       (BITCOIN-RPC/CLASSES::SERVE-HISTORICAL-BLOCKS "serve_historical_blocks"
;        :BOOL :READER BITCOIN-RPC/CLASSES::SERVE-HISTORICAL-BLOCKS :DOCUMENTATION
;        "True if serving historical blocks")
;       (BITCOIN-RPC/CLASSES::BYTES-LEFT-IN-CYCLE "bytes_left_in_cycle" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::BYTES-LEFT-IN-CYCLE :DOCUMENTATION
;        "Bytes left in current time cycle")
;       (BITCOIN-RPC/CLASSES::TIME-LEFT-IN-CYCLE "time_left_in_cycle" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::TIME-LEFT-IN-CYCLE :DOCUMENTATION
;        "Seconds left in current time cycle")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS NETWORK-INFORMATION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:NETWORK-INFORMATION NIL
;      (("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;        "the server version")
;       (BITCOIN-RPC/CLASSES::SUB-VERSION "subversion" :STRING :READER
;        BITCOIN-RPC/CLASSES::SUB-VERSION :DOCUMENTATION
;        "the server subversion string")
;       (BITCOIN-RPC/CLASSES::PROTOCOL-VERSION "protocolversion" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::PROTOCOL-VERSION :DOCUMENTATION
;        "the protocol version")
;       (BITCOIN-RPC/CLASSES::LOCAL-SERVICES "localservices" :STRING :READER
;        BITCOIN-RPC/CLASSES::LOCAL-SERVICES :DOCUMENTATION
;        "the services we offer to the network")
;       (BITCOIN-RPC/CLASSES::LOCAL-SERVICES-NAMES "localservicesnames"
;        (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::LOCAL-SERVICES-NAMES
;        :DOCUMENTATION
;        "the services we offer to the network, in human-readable form")
;       (BITCOIN-RPC/CLASSES::LOCAL-RELAY "localrelay" :BOOL :READER
;        BITCOIN-RPC/CLASSES::LOCAL-RELAY :DOCUMENTATION
;        "true if transaction relay is requested from peers")
;       (BITCOIN-RPC/CLASSES::TIME-OFFSET "timeoffset" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TIME-OFFSET :DOCUMENTATION "the time offset")
;       ("connections" :NUMBER :READER BITCOIN-RPC/CLASSES::CONNECTIONS
;        :DOCUMENTATION "the total number of connections")
;       (BITCOIN-RPC/CLASSES::CONNECTIONS-IN "connections_in" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CONNECTIONS-IN :DOCUMENTATION
;        "the number of inbound connections")
;       (BITCOIN-RPC/CLASSES::CONNECTIONS-OUT "connections_out" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CONNECTIONS-OUT :DOCUMENTATION
;        "the number of outbound connections")
;       (BITCOIN-RPC/CLASSES::NETWORK-ACTIVE "networkactive" :BOOL :READER
;        BITCOIN-RPC/CLASSES::NETWORK-ACTIVE :DOCUMENTATION
;        "whether p2p networking is enabled")
;       ("networks" (:LIST BITCOIN-RPC/CLASSES::NETWORK) :READER
;        BITCOIN-RPC/CLASSES::NETWORKS :DOCUMENTATION "information per network")
;       ...))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS NETWORK
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::NETWORK NIL
;      (("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;        "network (ipv4, ipv6 or onion)")
;       ("limited" :BOOL :READER BITCOIN-RPC/CLASSES::LIMITED :DOCUMENTATION
;        "is the network limited using -onlynet?")
;       ("reachable" :BOOL :READER BITCOIN-RPC/CLASSES::REACHABLE :DOCUMENTATION
;        "is the network reachable?")
;       ("proxy" :STRING :READER BITCOIN-RPC/CLASSES::PROXY :DOCUMENTATION
;        "(\"host:port\") the proxy that is used for this network, or empty if none")
;       (BITCOIN-RPC/CLASSES::PROXY-RANDOMIZE-CREDENTIALS
;        "proxy_randomize_credentials" :BOOL :READER
;        BITCOIN-RPC/CLASSES::PROXY-RANDOMIZE-CREDENTIALS :DOCUMENTATION
;        "Whether randomized credentials are used")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS LOCAL-ADDRESS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::LOCAL-ADDRESS NIL
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "network address")
;       ("port" :NUMBER :READER BITCOIN-RPC/CLASSES::PORT :DOCUMENTATION
;        "network port")
;       ("score" :NUMBER :READER BITCOIN-RPC/CLASSES::SCORE :DOCUMENTATION
;        "relative score")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS NODE-ADDRESS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:NODE-ADDRESS NIL
;      (("time" :NUMBER :READER BITCOIN-RPC/CLASSES::NODE-TIME :DOCUMENTATION
;        "The UNIX epoch time of when the node was last seen")
;       ("services" :NUMBER :READER BITCOIN-RPC/CLASSES::SERVICES :DOCUMENTATION
;        "The services offered")
;       ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The address of the node")
;       ("port" :NUMBER :READER BITCOIN-RPC/CLASSES::PORT :DOCUMENTATION
;        "The port of the node")
;       ("network" :STRING :READER BITCOIN-RPC/CLASSES::NETWORK)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS PEER
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:PEER NIL
;      (("id" :NUMBER :READER BITCOIN-RPC/CLASSES::ID :DOCUMENTATION "Peer index")
;       (BITCOIN-RPC/CLASSES::ADDRESS-PROCESSED "addr_processed" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::ADDRESS-PROCESSED)
;       (BITCOIN-RPC/CLASSES::ADDRESS-RATE-LIMITED "addr_rate_limited" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::ADDRESS-RATE-LIMITED)
;       (BITCOIN-RPC/CLASSES::ADDRESS-RELAY-ENABLED "addr_relay_enabled" :BOOL
;        :READER BITCOIN-RPC/CLASSES::ADDRESS-RELAY-ENABLED)
;       (BITCOIN-RPC/CLASSES::BIP152-HB-FROM "bip152_hb_from" :BOOL :READER
;        BITCOIN-RPC/CLASSES::BIP152-HB-FROM)
;       (BITCOIN-RPC/CLASSES::BIP152-HB-TO "bip152_hb_to" :BOOL :READER
;        BITCOIN-RPC/CLASSES::BIP152-HB-TO)
;       (BITCOIN-RPC/CLASSES::PRESYNCED-HEADERS "presynced_headers" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::PRESYNCED-HEADERS)
;       (BITCOIN-RPC/CLASSES::ADDRESS "addr" :STRING :READER
;        BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "(host:port) The IP address and port of the peer")
;       (BITCOIN-RPC/CLASSES::ADDRESS-BIND "addrbind" :STRING :READER
;        BITCOIN-RPC/CLASSES::ADDRESS-BIND :DOCUMENTATION
;        "(ip:port) Bind address of the connection to the peer")
;       (BITCOIN-RPC/CLASSES::ADDRESS-LOCAL "addrlocal" :STRING :READER
;        BITCOIN-RPC/CLASSES::ADDRESS-LOCAL :DOCUMENTATION
;        "(ip:port) Local address as reported by the peer")
;       ("network" :STRING :READER BITCOIN-RPC/CLASSES::NETWORK :DOCUMENTATION
;        "Network (ipv4, ipv6, or onion) the peer connected through")
;       (BITCOIN-RPC/CLASSES::MAPPED-AS "mapped_as" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MAPPED-AS :DOCUMENTATION
;        "The AS in the BGP route to the peer used for diversifying peer selection (only available if the asmap config flag is set)")
;       ...))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS BANNED
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BANNED NIL
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The banned address.")
;       (BITCOIN-RPC/CLASSES::BANNED-UNTIL "banned_until" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BANNED-UNTIL :DOCUMENTATION
;        "The time (in seconds since Jan 1 1970 GMT) until the address is banned.")
;       ("ban_created" :NUMBER :READER BITCOIN-RPC/CLASSES::BAN_CREATED
;        :DOCUMENTATION
;        "The time (in seconds since Jan 1 1970 GMT) when the ban was created.")
;       (BITCOIN-RPC/CLASSES::BAN-DURATION "ban_duration" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BAN-DURATION)
;       (BITCOIN-RPC/CLASSES::TIME-REMAINING "time_remaining" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TIME-REMAINING)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:PARTIALLY-SIGNED-BITCOIN-TRANSACTION NIL
;      (("inputs"
;        (:LIST BITCOIN-RPC/CLASSES::PARTIALLY-SIGNED-BITCOIN-TRANSACTION-INPUT)
;        :READER BITCOIN-RPC/CLASSES::INPUTS)
;       (BITCOIN-RPC/CLASSES::ESTIMATED-VIRTUAL-SIZE "estimated_vsize" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::ESTIMATED-VIRTUAL-SIZE :DOCUMENTATION
;        "Estimated vsize of the final signed transaction")
;       (BITCOIN-RPC/CLASSES::ESTIMATED-FEE-RATE "estimated_feerate" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::ESTIMATED-FEE-RATE :DOCUMENTATION
;        "Estimated feerate of the final signed transaction in BTC/kB. Shown only if all UTXO slots in the PSBT have been filled")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        "The transaction fee paid. Shown only if all UTXO slots in the PSBT have been filled")
;       ("next" :STRING :READER BITCOIN-RPC/CLASSES::NEXT :DOCUMENTATION
;        "Role of the next person that this psbt needs to go to")
;       (BITCOIN-RPC/CLASSES::ERROR-MESSAGE "error" :STRING :READER
;        BITCOIN-RPC/CLASSES::ERROR-MESSAGE :DOCUMENTATION
;        "Error message (if there is one)")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS PARTIALLY-SIGNED-BITCOIN-TRANSACTION-INPUT
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES::PARTIALLY-SIGNED-BITCOIN-TRANSACTION-INPUT NIL
;      ((BITCOIN-RPC/CLASSES::HAS-UTXO "has_utxo" :BOOL :READER
;        BITCOIN-RPC/CLASSES::HAS-UTXO :DOCUMENTATION "Whether a UTXO is provided")
;       (BITCOIN-RPC/CLASSES::IS-FINAL "is_final" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-FINAL :DOCUMENTATION
;        "Whether the input is finalized")
;       ("missing" BITCOIN-RPC/CLASSES::MISSING-INPUTS :READER
;        BITCOIN-RPC/CLASSES::MISSING :DOCUMENTATION
;        "Things that are missing that are required to complete this input")
;       ("next" :STRING :READER BITCOIN-RPC/CLASSES::NEXT :DOCUMENTATION
;        "Role of the next person that this input needs to go to")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS BLOCKCHAIN-RESCAN
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BLOCKCHAIN-RESCAN NIL
;      ((BITCOIN-RPC/CLASSES::START-HEIGHT "start_height" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::START-HEIGHT)
;       (BITCOIN-RPC/CLASSES::STOP-HEIGHT "stop_height" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::STOP-HEIGHT)))
; 
; note: deleting unreachable code

; in: JSON-CLASS ADDRESS-BASE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::ADDRESS-BASE NIL
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The bitcoin address validated")
;       (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY "scriptPubKey" :STRING :READER
;        BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY :DOCUMENTATION
;        "The hex-encoded scriptPubKey generated by the address")
;       (BITCOIN-RPC/CLASSES::IS-SCRIPT "isscript" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-SCRIPT :DOCUMENTATION "If the key is a script")
;       (BITCOIN-RPC/CLASSES::IS-WITNESS "iswitness" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-WITNESS :DOCUMENTATION
;        "If the address is a witness address")
;       (BITCOIN-RPC/CLASSES::WITNESS-VERSION "witness_version" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::WITNESS-VERSION :DOCUMENTATION
;        "The version number of the witness program")
;       (BITCOIN-RPC/CLASSES::WITNESS-PROGRAM "witness_program" :STRING :READER
;        BITCOIN-RPC/CLASSES::WITNESS-PROGRAM :DOCUMENTATION
;        "The hex value of the witness program")))
; 
; note: deleting unreachable code

; in: JSON-CLASS VALIDATE-ADDRESS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:VALIDATE-ADDRESS
;      (BITCOIN-RPC/CLASSES::ADDRESS-BASE)
;      ((BITCOIN-RPC/CLASSES::IS-VALID "isvalid" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-VALID :DOCUMENTATION
;        "If the address is valid or not. If not, this is the only property returned.")
;       ("error" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS-ERROR)
;       (BITCOIN-RPC/CLASSES::ERROR-LOCATIONS "error_locations" :ANY :READER
;        BITCOIN-RPC/CLASSES::ERROR-LOCATIONS)))
; 
; note: deleting unreachable code

; in: JSON-CLASS ADDRESS-INFO
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ADDRESS-INFO
;      (BITCOIN-RPC/CLASSES::ADDRESS-BASE)
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The bitcoin address validated.")
;       (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY "scriptPubKey" :STRING :READER
;        BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY :DOCUMENTATION
;        "The hex-encoded scriptPubKey generated by the address.")
;       (BITCOIN-RPC/CLASSES::IS-MINE "ismine" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-MINE :DOCUMENTATION "If the address is yours.")
;       (BITCOIN-RPC/CLASSES::IS-WATCH-ONLY "iswatchonly" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-WATCH-ONLY :DOCUMENTATION
;        "If the address is watchonly.")
;       ("solvable" :BOOL :READER BITCOIN-RPC/CLASSES::SOLVABLE :DOCUMENTATION
;        "If we know how to spend coins sent to this address, ignoring the possible lack of private keys.")
;       (BITCOIN-RPC/CLASSES:DESCRIPTOR "desc" :STRING :READER
;        BITCOIN-RPC/CLASSES:DESCRIPTOR :DOCUMENTATION
;        "A descriptor for spending coins sent to this address (only when solvable).")
;       ("ischange" :BOOL :READER BITCOIN-RPC/CLASSES::IS-CHANGE :DOCUMENTATION
;        "If the address was used for change output.")
;       ("script" :STRING :READER BITCOIN-RPC/CLASSES::SCRIPT :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (220)) The output script type. Only if isscript is true and the redeemscript is known. Possible types: nonstandard, pubkey, pubkeyhash, scripthash, multisig, nulldata, witness_v0_keyhash, witness_v0_scriptha... {100E471D1F}>)
;       ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The redeemscript for the p2sh address.")
;       (BITCOIN-RPC/CLASSES::PUBLIC-KEYS "pubkeys" (:LIST :STRING) :READER
;        BITCOIN-RPC/CLASSES::PUBLIC-KEYS :DOCUMENTATION
;        "Array of pubkeys associated with the known redeemscript (only if script is multisig).")
;       (BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES "sigsrequired" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::REQUIRED-SIGNATURES :DOCUMENTATION
;        "The number of signatures required to spend multisig output (only if script is multisig).")
;       (BITCOIN-RPC/CLASSES::PUBLIC-KEY "pubkey" :STRING :READER
;        BITCOIN-RPC/CLASSES::PUBLIC-KEY :DOCUMENTATION
;        "The hex value of the raw public key for single-key addresses (possibly embedded in P2SH or P2WSH).")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS BALANCES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BALANCES NIL
;      (("mine" BITCOIN-RPC/CLASSES:BALANCE :READER BITCOIN-RPC/CLASSES::MINE
;        :DOCUMENTATION "balances from outputs that the wallet can sign")
;       (BITCOIN-RPC/CLASSES::WATCH-ONLY "watchonly" BITCOIN-RPC/CLASSES:BALANCE
;        :READER BITCOIN-RPC/CLASSES::WATCH-ONLY :DOCUMENTATION
;        "watchonly balances (not present if wallet does not watch anything)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BALANCE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BALANCE NIL
;      (("trusted" :NUMBER :READER BITCOIN-RPC/CLASSES::TRUSTED :DOCUMENTATION
;        "trusted balance (outputs created by the wallet or confirmed outputs)")
;       (BITCOIN-RPC/CLASSES::UNTRUSTED-PENDING "untrusted_pending" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::UNTRUSTED-PENDING :DOCUMENTATION
;        "untrusted pending balance (outputs created by others that are in the mempool)")
;       ("immature" :NUMBER :READER BITCOIN-RPC/CLASSES::IMMATURE :DOCUMENTATION
;        "balance from immature coinbase outputs")
;       ("used" :NUMBER :READER BITCOIN-RPC/CLASSES::USED :DOCUMENTATION
;        "(only present if avoid_reuse is set) balance from coins sent to addresses that were previously spent from (potentially privacy violating)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS WALLET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:WALLET NIL
;      ((BITCOIN-RPC/CLASSES::EXTERNAL-SIGNER "external_signer" :BOOL :READER
;        BITCOIN-RPC/CLASSES::EXTERNAL-SIGNER)
;       ("balance" :NUMBER :READER BITCOIN-RPC/CLASSES:BALANCE :DOCUMENTATION
;        "DEPRECATED. Identical to getbalances().mine.trusted")
;       (BITCOIN-RPC/CLASSES::UNCONFIRMED-BALANCE "unconfirmed_balance" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::UNCONFIRMED-BALANCE :DOCUMENTATION
;        "DEPRECATED. Identical to getbalances().mine.untrusted_pending")
;       (BITCOIN-RPC/CLASSES::IMMATURE-BALANCE "immature_balance" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::IMMATURE-BALANCE :DOCUMENTATION
;        "Identical to getbalances().mine.immature")
;       (BITCOIN-RPC/CLASSES::WALLET-NAME "walletname" :STRING :READER
;        BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION "the wallet name")
;       (BITCOIN-RPC/CLASSES::WALLET-VERSION "walletversion" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::WALLET-VERSION)
;       ("format" :STRING :READER BITCOIN-RPC/CLASSES::WALLET-FORMAT :DOCUMENTATION
;        "the database format (bdb or sqlite)")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-COUNT "txcount" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-COUNT :DOCUMENTATION
;        "the total number of transactions in the wallet")
;       (BITCOIN-RPC/CLASSES::KEY-POOL-OLDEST "keypoololdest" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::KEY-POOL-OLDEST :DOCUMENTATION
;        "the UNIX epoch time of the oldest pre-generated key in the key pool. Legacy wallets only.")
;       (BITCOIN-RPC/CLASSES::KEY-POOL-SIZE "keypoolsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::KEY-POOL-SIZE :DOCUMENTATION
;        "how many new keys are pre-generated (only counts external keys)")
;       (BITCOIN-RPC/CLASSES::KEY-POOL-SIZE-HD-INTERNAL "keypoolsize_hd_internal"
;        :NUMBER :READER BITCOIN-RPC/CLASSES::KEY-POOL-SIZE-HD-INTERNAL
;        :DOCUMENTATION
;        "how many new keys are pre-generated for internal use (used for change outputs, only appears if the wallet is using this feature, otherwise external keys are used)")
;       (BITCOIN-RPC/CLASSES::UNLOCKED-UNTIL "unlocked_until" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::UNLOCKED-UNTIL :DOCUMENTATION
;        "the UNIX epoch time until which the wallet is unlocked for transfers, or 0 if the wallet is locked (only present for passphrase-encrypted wallets)")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS SCANNING
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SCANNING NIL
;      (("duration" :NUMBER :READER BITCOIN-RPC/CLASSES::DURATION :DOCUMENTATION
;        "elapsed seconds since scan start")
;       ("progress" :NUMBER :READER BITCOIN-RPC/CLASSES::PROGRESS :DOCUMENTATION
;        "scanning progress percentage [0.0, 1.0]")))
; 
; note: deleting unreachable code

; in: JSON-CLASS MINING-INFORMATION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MINING-INFORMATION NIL
;      (("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;        "The current block")
;       (BITCOIN-RPC/CLASSES::CURRENT-BLOCK-WEIGHT "currentblockweight" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::CURRENT-BLOCK-WEIGHT :DOCUMENTATION
;        "The block weight of the last assembled block (only present if a block was ever assembled)")
;       (BITCOIN-RPC/CLASSES::CURRENT-BLOCK-TRANSACTIONS "currentblocktx" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::CURRENT-BLOCK-TRANSACTIONS :DOCUMENTATION
;        "The number of block transactions of the last assembled block (only present if a block was ever assembled)")
;       ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES:DIFFICULTY :DOCUMENTATION
;        "The current difficulty")
;       (BITCOIN-RPC/CLASSES::NETWORK-HASH-PER-SECOND "networkhashps" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::NETWORK-HASH-PER-SECOND :DOCUMENTATION
;        "The network hashes per second")
;       (BITCOIN-RPC/CLASSES::POOLED-TRANSACTIONS "pooledtx" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::POOLED-TRANSACTIONS :DOCUMENTATION
;        "The size of the mempool")
;       ("chain" :STRING :READER BITCOIN-RPC/CLASSES::CHAIN :DOCUMENTATION
;        "current network name (main, test, regtest)")
;       ("warnings" :STRING :READER BITCOIN-RPC/CLASSES::WARNINGS :DOCUMENTATION
;        "any network and blockchain warnings")))
; 
; note: deleting unreachable code

; in: JSON-CLASS ADDED-NODES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ADDED-NODES NIL
;      ((BITCOIN-RPC/CLASSES::ADDED-NODE "addednode" :STRING :READER
;        BITCOIN-RPC/CLASSES::ADDED-NODE :DOCUMENTATION
;        "The node IP address or name (as provided to addnode)")
;       ("connected" :BOOL :READER BITCOIN-RPC/CLASSES::CONNECTED :DOCUMENTATION
;        "If connected")
;       ("addresses" (:LIST BITCOIN-RPC/CLASSES::CONNECTED-ADDRESS) :READER
;        BITCOIN-RPC/CLASSES::ADDRESSES)))
; 
; note: deleting unreachable code

; in: JSON-CLASS CONNECTED-ADDRESS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::CONNECTED-ADDRESS NIL
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The bitcoin server IP and port we're connected to")
;       ("connected" :STRING :READER BITCOIN-RPC/CLASSES::CONNECTED :DOCUMENTATION
;        "connection, inbound or outbound")))
; 
; note: deleting unreachable code

; in: JSON-CLASS NETWORK-TRAFFIC
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:NETWORK-TRAFFIC NIL
;      ((BITCOIN-RPC/CLASSES::TOTAL-BYTES-RECEIVED "totalbytesrecv" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TOTAL-BYTES-RECEIVED :DOCUMENTATION
;        "Total bytes received")
;       (BITCOIN-RPC/CLASSES::TOTAL-BYTES-SENT "totalbytessent" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TOTAL-BYTES-SENT :DOCUMENTATION "Total bytes sent")
;       (BITCOIN-RPC/CLASSES::TIME-MILLI-SECONDS "timemillis" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TIME-MILLI-SECONDS :DOCUMENTATION
;        "Current UNIX epoch time in milliseconds")
;       (BITCOIN-RPC/CLASSES::UPLOAD-TARGET "uploadtarget"
;        BITCOIN-RPC/CLASSES::UPLOAD-TARGET :READER
;        BITCOIN-RPC/CLASSES::UPLOAD-TARGET)))
; 
; note: deleting unreachable code

; in: JSON-CLASS UPLOAD-TARGET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::UPLOAD-TARGET NIL
;      ((BITCOIN-RPC/CLASSES::TIME-FRAME "timeframe" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TIME-FRAME :DOCUMENTATION
;        "Length of the measuring timeframe in seconds")
;       ("target" :NUMBER :READER BITCOIN-RPC/CLASSES::TARGET :DOCUMENTATION
;        "Target in bytes")
;       (BITCOIN-RPC/CLASSES::TARGET-REACHED "target_reached" :BOOL :READER
;        BITCOIN-RPC/CLASSES::TARGET-REACHED :DOCUMENTATION
;        "True if target is reached")
;       (BITCOIN-RPC/CLASSES::SERVE-HISTORICAL-BLOCKS "serve_historical_blocks"
;        :BOOL :READER BITCOIN-RPC/CLASSES::SERVE-HISTORICAL-BLOCKS :DOCUMENTATION
;        "True if serving historical blocks")
;       (BITCOIN-RPC/CLASSES::BYTES-LEFT-IN-CYCLE "bytes_left_in_cycle" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::BYTES-LEFT-IN-CYCLE :DOCUMENTATION
;        "Bytes left in current time cycle")
;       (BITCOIN-RPC/CLASSES::TIME-LEFT-IN-CYCLE "time_left_in_cycle" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::TIME-LEFT-IN-CYCLE :DOCUMENTATION
;        "Seconds left in current time cycle")))
; 
; note: deleting unreachable code

; in: JSON-CLASS NETWORK-INFORMATION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:NETWORK-INFORMATION NIL
;      (("version" :NUMBER :READER BITCOIN-RPC/CLASSES:VERSION :DOCUMENTATION
;        "the server version")
;       (BITCOIN-RPC/CLASSES::SUB-VERSION "subversion" :STRING :READER
;        BITCOIN-RPC/CLASSES::SUB-VERSION :DOCUMENTATION
;        "the server subversion string")
;       (BITCOIN-RPC/CLASSES::PROTOCOL-VERSION "protocolversion" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::PROTOCOL-VERSION :DOCUMENTATION
;        "the protocol version")
;       (BITCOIN-RPC/CLASSES::LOCAL-SERVICES "localservices" :STRING :READER
;        BITCOIN-RPC/CLASSES::LOCAL-SERVICES :DOCUMENTATION
;        "the services we offer to the network")
;       (BITCOIN-RPC/CLASSES::LOCAL-SERVICES-NAMES "localservicesnames"
;        (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::LOCAL-SERVICES-NAMES
;        :DOCUMENTATION
;        "the services we offer to the network, in human-readable form")
;       (BITCOIN-RPC/CLASSES::LOCAL-RELAY "localrelay" :BOOL :READER
;        BITCOIN-RPC/CLASSES::LOCAL-RELAY :DOCUMENTATION
;        "true if transaction relay is requested from peers")
;       (BITCOIN-RPC/CLASSES::TIME-OFFSET "timeoffset" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TIME-OFFSET :DOCUMENTATION "the time offset")
;       ("connections" :NUMBER :READER BITCOIN-RPC/CLASSES::CONNECTIONS
;        :DOCUMENTATION "the total number of connections")
;       (BITCOIN-RPC/CLASSES::CONNECTIONS-IN "connections_in" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CONNECTIONS-IN :DOCUMENTATION
;        "the number of inbound connections")
;       (BITCOIN-RPC/CLASSES::CONNECTIONS-OUT "connections_out" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CONNECTIONS-OUT :DOCUMENTATION
;        "the number of outbound connections")
;       (BITCOIN-RPC/CLASSES::NETWORK-ACTIVE "networkactive" :BOOL :READER
;        BITCOIN-RPC/CLASSES::NETWORK-ACTIVE :DOCUMENTATION
;        "whether p2p networking is enabled")
;       ("networks" (:LIST BITCOIN-RPC/CLASSES::NETWORK) :READER
;        BITCOIN-RPC/CLASSES::NETWORKS :DOCUMENTATION "information per network")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS NETWORK
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::NETWORK NIL
;      (("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;        "network (ipv4, ipv6 or onion)")
;       ("limited" :BOOL :READER BITCOIN-RPC/CLASSES::LIMITED :DOCUMENTATION
;        "is the network limited using -onlynet?")
;       ("reachable" :BOOL :READER BITCOIN-RPC/CLASSES::REACHABLE :DOCUMENTATION
;        "is the network reachable?")
;       ("proxy" :STRING :READER BITCOIN-RPC/CLASSES::PROXY :DOCUMENTATION
;        "(\"host:port\") the proxy that is used for this network, or empty if none")
;       (BITCOIN-RPC/CLASSES::PROXY-RANDOMIZE-CREDENTIALS
;        "proxy_randomize_credentials" :BOOL :READER
;        BITCOIN-RPC/CLASSES::PROXY-RANDOMIZE-CREDENTIALS :DOCUMENTATION
;        "Whether randomized credentials are used")))
; 
; note: deleting unreachable code

; in: JSON-CLASS LOCAL-ADDRESS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::LOCAL-ADDRESS NIL
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "network address")
;       ("port" :NUMBER :READER BITCOIN-RPC/CLASSES::PORT :DOCUMENTATION
;        "network port")
;       ("score" :NUMBER :READER BITCOIN-RPC/CLASSES::SCORE :DOCUMENTATION
;        "relative score")))
; 
; note: deleting unreachable code

; in: JSON-CLASS NODE-ADDRESS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:NODE-ADDRESS NIL
;      (("time" :NUMBER :READER BITCOIN-RPC/CLASSES::NODE-TIME :DOCUMENTATION
;        "The UNIX epoch time of when the node was last seen")
;       ("services" :NUMBER :READER BITCOIN-RPC/CLASSES::SERVICES :DOCUMENTATION
;        "The services offered")
;       ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The address of the node")
;       ("port" :NUMBER :READER BITCOIN-RPC/CLASSES::PORT :DOCUMENTATION
;        "The port of the node")
;       ("network" :STRING :READER BITCOIN-RPC/CLASSES::NETWORK)))
; 
; note: deleting unreachable code

; in: JSON-CLASS PEER
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:PEER NIL
;      (("id" :NUMBER :READER BITCOIN-RPC/CLASSES::ID :DOCUMENTATION "Peer index")
;       (BITCOIN-RPC/CLASSES::ADDRESS-PROCESSED "addr_processed" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::ADDRESS-PROCESSED)
;       (BITCOIN-RPC/CLASSES::ADDRESS-RATE-LIMITED "addr_rate_limited" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::ADDRESS-RATE-LIMITED)
;       (BITCOIN-RPC/CLASSES::ADDRESS-RELAY-ENABLED "addr_relay_enabled" :BOOL
;        :READER BITCOIN-RPC/CLASSES::ADDRESS-RELAY-ENABLED)
;       (BITCOIN-RPC/CLASSES::BIP152-HB-FROM "bip152_hb_from" :BOOL :READER
;        BITCOIN-RPC/CLASSES::BIP152-HB-FROM)
;       (BITCOIN-RPC/CLASSES::BIP152-HB-TO "bip152_hb_to" :BOOL :READER
;        BITCOIN-RPC/CLASSES::BIP152-HB-TO)
;       (BITCOIN-RPC/CLASSES::PRESYNCED-HEADERS "presynced_headers" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::PRESYNCED-HEADERS)
;       (BITCOIN-RPC/CLASSES::ADDRESS "addr" :STRING :READER
;        BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "(host:port) The IP address and port of the peer")
;       (BITCOIN-RPC/CLASSES::ADDRESS-BIND "addrbind" :STRING :READER
;        BITCOIN-RPC/CLASSES::ADDRESS-BIND :DOCUMENTATION
;        "(ip:port) Bind address of the connection to the peer")
;       (BITCOIN-RPC/CLASSES::ADDRESS-LOCAL "addrlocal" :STRING :READER
;        BITCOIN-RPC/CLASSES::ADDRESS-LOCAL :DOCUMENTATION
;        "(ip:port) Local address as reported by the peer")
;       ("network" :STRING :READER BITCOIN-RPC/CLASSES::NETWORK :DOCUMENTATION
;        "Network (ipv4, ipv6, or onion) the peer connected through")
;       (BITCOIN-RPC/CLASSES::MAPPED-AS "mapped_as" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::MAPPED-AS :DOCUMENTATION
;        "The AS in the BGP route to the peer used for diversifying peer selection (only available if the asmap config flag is set)")
;       ...))
; 
; note: deleting unreachable code

; in: JSON-CLASS BANNED
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:BANNED NIL
;      (("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "The banned address.")
;       (BITCOIN-RPC/CLASSES::BANNED-UNTIL "banned_until" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BANNED-UNTIL :DOCUMENTATION
;        "The time (in seconds since Jan 1 1970 GMT) until the address is banned.")
;       ("ban_created" :NUMBER :READER BITCOIN-RPC/CLASSES::BAN_CREATED
;        :DOCUMENTATION
;        "The time (in seconds since Jan 1 1970 GMT) when the ban was created.")
;       (BITCOIN-RPC/CLASSES::BAN-DURATION "ban_duration" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BAN-DURATION)
;       (BITCOIN-RPC/CLASSES::TIME-REMAINING "time_remaining" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::TIME-REMAINING)))
; 
; note: deleting unreachable code

; in: JSON-CLASS PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:PARTIALLY-SIGNED-BITCOIN-TRANSACTION NIL
;      (("inputs"
;        (:LIST BITCOIN-RPC/CLASSES::PARTIALLY-SIGNED-BITCOIN-TRANSACTION-INPUT)
;        :READER BITCOIN-RPC/CLASSES::INPUTS)
;       (BITCOIN-RPC/CLASSES::ESTIMATED-VIRTUAL-SIZE "estimated_vsize" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::ESTIMATED-VIRTUAL-SIZE :DOCUMENTATION
;        "Estimated vsize of the final signed transaction")
;       (BITCOIN-RPC/CLASSES::ESTIMATED-FEE-RATE "estimated_feerate" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::ESTIMATED-FEE-RATE :DOCUMENTATION
;        "Estimated feerate of the final signed transaction in BTC/kB. Shown only if all UTXO slots in the PSBT have been filled")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        "The transaction fee paid. Shown only if all UTXO slots in the PSBT have been filled")
;       ("next" :STRING :READER BITCOIN-RPC/CLASSES::NEXT :DOCUMENTATION
;        "Role of the next person that this psbt needs to go to")
;       (BITCOIN-RPC/CLASSES::ERROR-MESSAGE "error" :STRING :READER
;        BITCOIN-RPC/CLASSES::ERROR-MESSAGE :DOCUMENTATION
;        "Error message (if there is one)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS PARTIALLY-SIGNED-BITCOIN-TRANSACTION-INPUT
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES::PARTIALLY-SIGNED-BITCOIN-TRANSACTION-INPUT NIL
;      ((BITCOIN-RPC/CLASSES::HAS-UTXO "has_utxo" :BOOL :READER
;        BITCOIN-RPC/CLASSES::HAS-UTXO :DOCUMENTATION "Whether a UTXO is provided")
;       (BITCOIN-RPC/CLASSES::IS-FINAL "is_final" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IS-FINAL :DOCUMENTATION
;        "Whether the input is finalized")
;       ("missing" BITCOIN-RPC/CLASSES::MISSING-INPUTS :READER
;        BITCOIN-RPC/CLASSES::MISSING :DOCUMENTATION
;        "Things that are missing that are required to complete this input")
;       ("next" :STRING :READER BITCOIN-RPC/CLASSES::NEXT :DOCUMENTATION
;        "Role of the next person that this input needs to go to")))
; 
; note: deleting unreachable code

; in: JSON-CLASS MISSING-INPUTS
;     ((BITCOIN-RPC/CLASSES::PUBLIC-KEYS "pubkeys" (:LIST :STRING) :READER
;       BITCOIN-RPC/CLASSES::PUBLIC-KEYS :DOCUMENTATION
;       "Public key ID, hash160 of the public key, of a public key whose BIP 32 derivation path is missing")
;      ("signatures" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::SIGNATURES
;       :DOCUMENTATION
;       "Public key ID, hash160 of the public key, of a public key whose signature is missing")
;      (BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeemscript" :STRING :READER
;       BITCOIN-RPC/CLASSES::REDEEM-SCRIPT :DOCUMENTATION
;       "Hash160 of the redeemScript that is missing")
;      (BITCOIN-RPC/CLASSES::WITNESS-SCRIPT "witnessscript" :STRING :READER
;       BITCOIN-RPC/CLASSES::WITNESS-SCRIPT :DOCUMENTATION
;       "SHA256 of the witnessScript that is missing"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS DECODED-PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     ((BITCOIN-RPC/CLASSES:TRANSACTION "tx" BITCOIN-RPC/CLASSES:RAW-TRANSACTION
;       :READER BITCOIN-RPC/CLASSES:TRANSACTION :DOCUMENTATION
;       "The decoded network-serialized unsigned transaction.
;   The layout is the same as the output of decoderawtransaction.")
;      ("unknown" (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::UNKNOWN
;       :DOCUMENTATION
;       "The unknown global fields. (key-value pair) An unknown key-value pair")
;      ("inputs" (:LIST BITCOIN-RPC/CLASSES::PSBT-INPUTS) :READER
;       BITCOIN-RPC/CLASSES::INPUTS)
;      ("outputs" (:LIST BITCOIN-RPC/CLASSES::PSBT-OUTPUTS) :READER
;       BITCOIN-RPC/CLASSES::OUTPUTS)
;      ("fee" :NUMBER :DOCUMENTATION
;       "The transaction fee paid if all UTXOs slots in the PSBT have been filled.")
;      (BITCOIN-RPC/CLASSES::PSBT-VERSION "psbt_version" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::PSBT-VERSION)
;      ("proprietary" :ANY :READER BITCOIN-RPC/CLASSES::PROPRIETARY)
;      (BITCOIN-RPC/CLASSES::GLOBAL-XPUBS "global_xpubs" :ANY :READER
;       BITCOIN-RPC/CLASSES::GLOBAL-XPUBS))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS PSBT-INPUTS
;     ((BITCOIN-RPC/CLASSES::NON-WITNESS-UTXO "non_witness_utxo" :LIST :READER
;       BITCOIN-RPC/CLASSES::NON-WITNESS-UTXO :DOCUMENTATION
;       "Decoded network transaction for non-witness UTXOs")
;      (BITCOIN-RPC/CLASSES::WITNESS-UTXO "witness_utxo"
;       BITCOIN-RPC/CLASSES:UNSPENT-TRANSACTION-OUTPUT :READER
;       BITCOIN-RPC/CLASSES::WITNESS-UTXO)
;      (BITCOIN-RPC/CLASSES::PARTIAL-SIGNATURES "partial_signatures"
;       (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::PARTIAL-SIGNATURES
;       :DOCUMENTATION "The public key and signature that corresponds to it.")
;      (BITCOIN-RPC/CLASSES::SIGNATURE-HASH "sighash" :STRING :READER
;       BITCOIN-RPC/CLASSES::SIGNATURE-HASH :DOCUMENTATION
;       "The sighash type to be used")
;      (BITCOIN-RPC/CLASSES::FINAL-SCRIPT-SIGNATURE "final_scriptsig"
;       BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;       BITCOIN-RPC/CLASSES::FINAL-SCRIPT-SIGNATURE)
;      (BITCOIN-RPC/CLASSES::FINAL-SCRIPT-WITNESS "final_scriptwitness"
;       (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::FINAL-SCRIPT-WITNESS)
;      ("unknown" (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::UNKNOWN
;       :DOCUMENTATION
;       "The unknown global fields. (key-value pair) An unknown key-value pair"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS REDEEM-SCRIPT
;     ((BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeem_script"
;       BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;       BITCOIN-RPC/CLASSES::REDEEM-SCRIPT))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS WITNESS-SCRIPT
;     ((BITCOIN-RPC/CLASSES::WITNESS-SCRIPT "witness_script"
;       BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;       BITCOIN-RPC/CLASSES::WITNESS-SCRIPT))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BIP32-DERIVATES
;     ((BITCOIN-RPC/CLASSES::BIP32-DERIVATES "bip32_derivs"
;       (:LIST BITCOIN-RPC/CLASSES::BIP32-DERIVATE) :READER
;       BITCOIN-RPC/CLASSES::BIP32-DERIVATES :DOCUMENTATION
;       "The public key with the derivation path as the value."))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS PSBT-OUTPUTS
;     (("unknown" (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::UNKNOWN
;       :DOCUMENTATION
;       "The unknown global fields. (key-value pair) An unknown key-value pair"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BIP32-DERIVATE
;     ((BITCOIN-RPC/CLASSES::MASTER-FINGER-PRINT "master_fingerprint" :STRING
;       :READER BITCOIN-RPC/CLASSES::MASTER-FINGER-PRINT :DOCUMENTATION
;       "The fingerprint of the master key")
;      ("path" :STRING :READER BITCOIN-RPC/CLASSES::PATH))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS DECODED-SCRIPT
;     ((BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH "p2sh" :STRING :READER
;       BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH :DOCUMENTATION
;       "address of P2SH script wrapping this redeem script (not returned if the script is already a P2SH)")
;      (BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS "segwit"
;       BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS :READER
;       BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS :DOCUMENTATION
;       "Result of a witness script public key wrapping this redeem script (not returned if the script is a P2SH or witness)")
;      ("desc" :STRING :READER BITCOIN-RPC/CLASSES::DESC))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SEGREGATED-WITNESS
;     ((BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH-SEGREGATED-WITNESS "p2sh-segwit"
;       :STRING :READER BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH-SEGREGATED-WITNESS
;       :DOCUMENTATION
;       "address of the P2SH script wrapping this witness redeem script"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS FINAL-PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     ((BITCOIN-RPC/CLASSES:PARTIALLY-SIGNED-BITCOIN-TRANSACTION "psbt" :STRING
;       :READER BITCOIN-RPC/CLASSES:PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;       :DOCUMENTATION
;       "The base64-encoded partially signed transaction if not extracted")
;      ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;       "The hex-encoded network transaction if extracted")
;      ("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;       "If the transaction has a complete set of signatures"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS FUNDED-RAW-TRANSACTION
;     (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;       "The resulting raw transaction (hex-encoded string)")
;      ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;       "Fee in BTC the resulting transaction pays")
;      (BITCOIN-RPC/CLASSES::CHANGE-POS "changepos" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::CHANGE-POS :DOCUMENTATION
;       "The position of the added change output, or -1"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SIGNED-RAW-TRANSACTION
;     (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;       "The hex-encoded raw transaction with signature(s)")
;      ("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;       "If the transaction has a complete set of signatures")
;      ("errors" (:LIST BITCOIN-RPC/CLASSES::SIGNING-ERROR) :READER
;       BITCOIN-RPC/CLASSES:ERRORS :DOCUMENTATION
;       "Script verification errors (if there are any)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS MEMORY-POOL-ACCEPT
;     ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :REQUIRED
;       BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;       "The transaction hash in hex")
;      ("allowed" :BOOL :READER BITCOIN-RPC/CLASSES::ALLOWED :DOCUMENTATION
;       "If the mempool allows this tx to be inserted")
;      (BITCOIN-RPC/CLASSES::VIRTUAL-SIZE "vsize" :NUMBER :REQUIRED
;       BITCOIN-RPC/CLASSES::VIRTUAL-SIZE :DOCUMENTATION
;       "Virtual transaction size as defined in BIP 141. This is different from actual serialized size for witness transactions as witness data is discounted (only present when 'allowed' is true)")
;      ("fees" BITCOIN-RPC/CLASSES::FEES-BASE :READER BITCOIN-RPC/CLASSES::FEES
;       :DOCUMENTATION "Transaction fees (only present if 'allowed' is true)")
;      ("reject-reason" :STRING :REQUIRED BITCOIN-RPC/CLASSES::REJECT-REASON
;       :DOCUMENTATION "Rejection string (only present when 'allowed' is false)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS FEES-BASE
;     (("base" :NUMBER :READER BITCOIN-RPC/CLASSES:BASE :DOCUMENTATION
;       "transaction fee in BTC"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS INDEX
;     (("synced" :BOOL :READER BITCOIN-RPC/CLASSES::SYNCED :DOCUMENTATION
;       "Whether the index is synced or not")
;      (BITCOIN-RPC/CLASSES::BEST-BLOCK-HEIGHT "best_block_height" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::BEST-BLOCK-HEIGHT :DOCUMENTATION
;       "The block height to which the index is synced"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS CREATED-WALLET
;     (("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;       "The wallet name if created successfully. If the wallet was created using a full path, the wallet_name will be the full path.")
;      ("warning" :STRING :READER BITCOIN-RPC/CLASSES::WALLET-CREATION-WARNING
;       :DOCUMENTATION "Warning message if wallet was not loaded cleanly."))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS WALLET-DUMP
;     (("filename" :STRING :READER BITCOIN-RPC/CLASSES::FILENAME :DOCUMENTATION
;       "The filename with full absolute path"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS ADDRESS-PURPOSE
;     (("purpose" :STRING :READER BITCOIN-RPC/CLASSES::PURPOSE :DOCUMENTATION
;       "Purpose of address (\"send\" for sending address, \"receive\" for receiving address)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS TRANSACTIONS-SINCE-BLOCK
;     (("transactions" (:LIST BITCOIN-RPC/CLASSES:TRANSACTION) :READER
;       BITCOIN-RPC/CLASSES:TRANSACTIONS)
;      ("removed" (:LIST BITCOIN-RPC/CLASSES:TRANSACTION) :READER
;       BITCOIN-RPC/CLASSES::REMOVED :DOCUMENTATION
;       "<structure is the same as \"transactions\" above, only present if include_removed=true>")
;      (BITCOIN-RPC/CLASSES::LAST-BLOCK "lastblock" :STRING :READER
;       BITCOIN-RPC/CLASSES::LAST-BLOCK :DOCUMENTATION
;       #<(SIMPLE-ARRAY CHARACTER
;          (404)) The hash of the block (target_confirmations-1) from the best block on the main chain, or the genesis hash if the referenced block does not exist yet. This is typically used to feed back into listsince... {100E729B8F}>))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS WALLETS
;     (("wallets" :ANY :READER BITCOIN-RPC/CLASSES:WALLETS))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS DECODED-PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:DECODED-PARTIALLY-SIGNED-BITCOIN-TRANSACTION NIL
;      ((BITCOIN-RPC/CLASSES:TRANSACTION "tx" BITCOIN-RPC/CLASSES:RAW-TRANSACTION
;        :READER BITCOIN-RPC/CLASSES:TRANSACTION :DOCUMENTATION
;        "The decoded network-serialized unsigned transaction.
;   The layout is the same as the output of decoderawtransaction.")
;       ("unknown" (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::UNKNOWN
;        :DOCUMENTATION
;        "The unknown global fields. (key-value pair) An unknown key-value pair")
;       ("inputs" (:LIST BITCOIN-RPC/CLASSES::PSBT-INPUTS) :READER
;        BITCOIN-RPC/CLASSES::INPUTS)
;       ("outputs" (:LIST BITCOIN-RPC/CLASSES::PSBT-OUTPUTS) :READER
;        BITCOIN-RPC/CLASSES::OUTPUTS)
;       ("fee" :NUMBER :DOCUMENTATION
;        "The transaction fee paid if all UTXOs slots in the PSBT have been filled.")
;       (BITCOIN-RPC/CLASSES::PSBT-VERSION "psbt_version" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::PSBT-VERSION)
;       ("proprietary" :ANY :READER BITCOIN-RPC/CLASSES::PROPRIETARY)
;       (BITCOIN-RPC/CLASSES::GLOBAL-XPUBS "global_xpubs" :ANY :READER
;        BITCOIN-RPC/CLASSES::GLOBAL-XPUBS)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS PSBT-INPUTS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::PSBT-INPUTS
;      (BITCOIN-RPC/CLASSES::BIP32-DERIVATES BITCOIN-RPC/CLASSES::REDEEM-SCRIPT
;       BITCOIN-RPC/CLASSES::WITNESS-SCRIPT)
;      ((BITCOIN-RPC/CLASSES::NON-WITNESS-UTXO "non_witness_utxo" :LIST :READER
;        BITCOIN-RPC/CLASSES::NON-WITNESS-UTXO :DOCUMENTATION
;        "Decoded network transaction for non-witness UTXOs")
;       (BITCOIN-RPC/CLASSES::WITNESS-UTXO "witness_utxo"
;        BITCOIN-RPC/CLASSES:UNSPENT-TRANSACTION-OUTPUT :READER
;        BITCOIN-RPC/CLASSES::WITNESS-UTXO)
;       (BITCOIN-RPC/CLASSES::PARTIAL-SIGNATURES "partial_signatures"
;        (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::PARTIAL-SIGNATURES
;        :DOCUMENTATION "The public key and signature that corresponds to it.")
;       (BITCOIN-RPC/CLASSES::SIGNATURE-HASH "sighash" :STRING :READER
;        BITCOIN-RPC/CLASSES::SIGNATURE-HASH :DOCUMENTATION
;        "The sighash type to be used")
;       (BITCOIN-RPC/CLASSES::FINAL-SCRIPT-SIGNATURE "final_scriptsig"
;        BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;        BITCOIN-RPC/CLASSES::FINAL-SCRIPT-SIGNATURE)
;       (BITCOIN-RPC/CLASSES::FINAL-SCRIPT-WITNESS "final_scriptwitness"
;        (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::FINAL-SCRIPT-WITNESS)
;       ("unknown" (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::UNKNOWN
;        :DOCUMENTATION
;        "The unknown global fields. (key-value pair) An unknown key-value pair")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS REDEEM-SCRIPT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::REDEEM-SCRIPT NIL
;      ((BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeem_script"
;        BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;        BITCOIN-RPC/CLASSES::REDEEM-SCRIPT)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS WITNESS-SCRIPT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::WITNESS-SCRIPT NIL
;      ((BITCOIN-RPC/CLASSES::WITNESS-SCRIPT "witness_script"
;        BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;        BITCOIN-RPC/CLASSES::WITNESS-SCRIPT)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS BIP32-DERIVATES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::BIP32-DERIVATES NIL
;      ((BITCOIN-RPC/CLASSES::BIP32-DERIVATES "bip32_derivs"
;        (:LIST BITCOIN-RPC/CLASSES::BIP32-DERIVATE) :READER
;        BITCOIN-RPC/CLASSES::BIP32-DERIVATES :DOCUMENTATION
;        "The public key with the derivation path as the value.")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS PSBT-OUTPUTS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::PSBT-OUTPUTS
;      (BITCOIN-RPC/CLASSES::BIP32-DERIVATES BITCOIN-RPC/CLASSES::REDEEM-SCRIPT
;       BITCOIN-RPC/CLASSES::WITNESS-SCRIPT)
;      (("unknown" (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::UNKNOWN
;        :DOCUMENTATION
;        "The unknown global fields. (key-value pair) An unknown key-value pair")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS BIP32-DERIVATE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::BIP32-DERIVATE NIL
;      ((BITCOIN-RPC/CLASSES::MASTER-FINGER-PRINT "master_fingerprint" :STRING
;        :READER BITCOIN-RPC/CLASSES::MASTER-FINGER-PRINT :DOCUMENTATION
;        "The fingerprint of the master key")
;       ("path" :STRING :READER BITCOIN-RPC/CLASSES::PATH)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS DECODED-SCRIPT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:DECODED-SCRIPT
;      (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY)
;      ((BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH "p2sh" :STRING :READER
;        BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH :DOCUMENTATION
;        "address of P2SH script wrapping this redeem script (not returned if the script is already a P2SH)")
;       (BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS "segwit"
;        BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS :READER
;        BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS :DOCUMENTATION
;        "Result of a witness script public key wrapping this redeem script (not returned if the script is a P2SH or witness)")
;       ("desc" :STRING :READER BITCOIN-RPC/CLASSES::DESC)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS SEGREGATED-WITNESS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS
;      (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY)
;      ((BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH-SEGREGATED-WITNESS "p2sh-segwit"
;        :STRING :READER BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH-SEGREGATED-WITNESS
;        :DOCUMENTATION
;        "address of the P2SH script wrapping this witness redeem script")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS FINAL-PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:FINAL-PARTIALLY-SIGNED-BITCOIN-TRANSACTION NIL
;      ((BITCOIN-RPC/CLASSES:PARTIALLY-SIGNED-BITCOIN-TRANSACTION "psbt" :STRING
;        :READER BITCOIN-RPC/CLASSES:PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;        :DOCUMENTATION
;        "The base64-encoded partially signed transaction if not extracted")
;       ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The hex-encoded network transaction if extracted")
;       ("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;        "If the transaction has a complete set of signatures")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS FUNDED-RAW-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:FUNDED-RAW-TRANSACTION NIL
;      (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The resulting raw transaction (hex-encoded string)")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        "Fee in BTC the resulting transaction pays")
;       (BITCOIN-RPC/CLASSES::CHANGE-POS "changepos" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CHANGE-POS :DOCUMENTATION
;        "The position of the added change output, or -1")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS SIGNED-RAW-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SIGNED-RAW-TRANSACTION NIL
;      (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The hex-encoded raw transaction with signature(s)")
;       ("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;        "If the transaction has a complete set of signatures")
;       ("errors" (:LIST BITCOIN-RPC/CLASSES::SIGNING-ERROR) :READER
;        BITCOIN-RPC/CLASSES:ERRORS :DOCUMENTATION
;        "Script verification errors (if there are any)")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS MEMORY-POOL-ACCEPT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MEMORY-POOL-ACCEPT NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :REQUIRED
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The transaction hash in hex")
;       ("allowed" :BOOL :READER BITCOIN-RPC/CLASSES::ALLOWED :DOCUMENTATION
;        "If the mempool allows this tx to be inserted")
;       (BITCOIN-RPC/CLASSES::VIRTUAL-SIZE "vsize" :NUMBER :REQUIRED
;        BITCOIN-RPC/CLASSES::VIRTUAL-SIZE :DOCUMENTATION
;        "Virtual transaction size as defined in BIP 141. This is different from actual serialized size for witness transactions as witness data is discounted (only present when 'allowed' is true)")
;       ("fees" BITCOIN-RPC/CLASSES::FEES-BASE :READER BITCOIN-RPC/CLASSES::FEES
;        :DOCUMENTATION "Transaction fees (only present if 'allowed' is true)")
;       ("reject-reason" :STRING :REQUIRED BITCOIN-RPC/CLASSES::REJECT-REASON
;        :DOCUMENTATION "Rejection string (only present when 'allowed' is false)")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS FEES-BASE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::FEES-BASE NIL
;      (("base" :NUMBER :READER BITCOIN-RPC/CLASSES:BASE :DOCUMENTATION
;        "transaction fee in BTC")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS INDEX
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::INDEX NIL
;      (("synced" :BOOL :READER BITCOIN-RPC/CLASSES::SYNCED :DOCUMENTATION
;        "Whether the index is synced or not")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK-HEIGHT "best_block_height" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK-HEIGHT :DOCUMENTATION
;        "The block height to which the index is synced")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS CREATED-WALLET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:CREATED-WALLET NIL
;      (("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;        "The wallet name if created successfully. If the wallet was created using a full path, the wallet_name will be the full path.")
;       ("warning" :STRING :READER BITCOIN-RPC/CLASSES::WALLET-CREATION-WARNING
;        :DOCUMENTATION "Warning message if wallet was not loaded cleanly.")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS WALLET-DUMP
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:WALLET-DUMP NIL
;      (("filename" :STRING :READER BITCOIN-RPC/CLASSES::FILENAME :DOCUMENTATION
;        "The filename with full absolute path")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS ADDRESS-PURPOSE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ADDRESS-PURPOSE NIL
;      (("purpose" :STRING :READER BITCOIN-RPC/CLASSES::PURPOSE :DOCUMENTATION
;        "Purpose of address (\"send\" for sending address, \"receive\" for receiving address)")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS TRANSACTIONS-SINCE-BLOCK
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:TRANSACTIONS-SINCE-BLOCK
;      NIL
;      (("transactions" (:LIST BITCOIN-RPC/CLASSES:TRANSACTION) :READER
;        BITCOIN-RPC/CLASSES:TRANSACTIONS)
;       ("removed" (:LIST BITCOIN-RPC/CLASSES:TRANSACTION) :READER
;        BITCOIN-RPC/CLASSES::REMOVED :DOCUMENTATION
;        "<structure is the same as \"transactions\" above, only present if include_removed=true>")
;       (BITCOIN-RPC/CLASSES::LAST-BLOCK "lastblock" :STRING :READER
;        BITCOIN-RPC/CLASSES::LAST-BLOCK :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (404)) The hash of the block (target_confirmations-1) from the best block on the main chain, or the genesis hash if the referenced block does not exist yet. This is typically used to feed back into listsince... {100E729B8F}>)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS WALLETS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:WALLETS NIL
;      (("wallets" :ANY :READER BITCOIN-RPC/CLASSES:WALLETS)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS MISSING-INPUTS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::MISSING-INPUTS NIL
;      ((BITCOIN-RPC/CLASSES::PUBLIC-KEYS "pubkeys" (:LIST :STRING) :READER
;        BITCOIN-RPC/CLASSES::PUBLIC-KEYS :DOCUMENTATION
;        "Public key ID, hash160 of the public key, of a public key whose BIP 32 derivation path is missing")
;       ("signatures" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::SIGNATURES
;        :DOCUMENTATION
;        "Public key ID, hash160 of the public key, of a public key whose signature is missing")
;       (BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeemscript" :STRING :READER
;        BITCOIN-RPC/CLASSES::REDEEM-SCRIPT :DOCUMENTATION
;        "Hash160 of the redeemScript that is missing")
;       (BITCOIN-RPC/CLASSES::WITNESS-SCRIPT "witnessscript" :STRING :READER
;        BITCOIN-RPC/CLASSES::WITNESS-SCRIPT :DOCUMENTATION
;        "SHA256 of the witnessScript that is missing")))
; 
; note: deleting unreachable code

; in: JSON-CLASS DECODED-PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:DECODED-PARTIALLY-SIGNED-BITCOIN-TRANSACTION NIL
;      ((BITCOIN-RPC/CLASSES:TRANSACTION "tx" BITCOIN-RPC/CLASSES:RAW-TRANSACTION
;        :READER BITCOIN-RPC/CLASSES:TRANSACTION :DOCUMENTATION
;        "The decoded network-serialized unsigned transaction.
;   The layout is the same as the output of decoderawtransaction.")
;       ("unknown" (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::UNKNOWN
;        :DOCUMENTATION
;        "The unknown global fields. (key-value pair) An unknown key-value pair")
;       ("inputs" (:LIST BITCOIN-RPC/CLASSES::PSBT-INPUTS) :READER
;        BITCOIN-RPC/CLASSES::INPUTS)
;       ("outputs" (:LIST BITCOIN-RPC/CLASSES::PSBT-OUTPUTS) :READER
;        BITCOIN-RPC/CLASSES::OUTPUTS)
;       ("fee" :NUMBER :DOCUMENTATION
;        "The transaction fee paid if all UTXOs slots in the PSBT have been filled.")
;       (BITCOIN-RPC/CLASSES::PSBT-VERSION "psbt_version" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::PSBT-VERSION)
;       ("proprietary" :ANY :READER BITCOIN-RPC/CLASSES::PROPRIETARY)
;       (BITCOIN-RPC/CLASSES::GLOBAL-XPUBS "global_xpubs" :ANY :READER
;        BITCOIN-RPC/CLASSES::GLOBAL-XPUBS)))
; 
; note: deleting unreachable code

; in: JSON-CLASS PSBT-INPUTS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::PSBT-INPUTS
;      (BITCOIN-RPC/CLASSES::BIP32-DERIVATES BITCOIN-RPC/CLASSES::REDEEM-SCRIPT
;       BITCOIN-RPC/CLASSES::WITNESS-SCRIPT)
;      ((BITCOIN-RPC/CLASSES::NON-WITNESS-UTXO "non_witness_utxo" :LIST :READER
;        BITCOIN-RPC/CLASSES::NON-WITNESS-UTXO :DOCUMENTATION
;        "Decoded network transaction for non-witness UTXOs")
;       (BITCOIN-RPC/CLASSES::WITNESS-UTXO "witness_utxo"
;        BITCOIN-RPC/CLASSES:UNSPENT-TRANSACTION-OUTPUT :READER
;        BITCOIN-RPC/CLASSES::WITNESS-UTXO)
;       (BITCOIN-RPC/CLASSES::PARTIAL-SIGNATURES "partial_signatures"
;        (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::PARTIAL-SIGNATURES
;        :DOCUMENTATION "The public key and signature that corresponds to it.")
;       (BITCOIN-RPC/CLASSES::SIGNATURE-HASH "sighash" :STRING :READER
;        BITCOIN-RPC/CLASSES::SIGNATURE-HASH :DOCUMENTATION
;        "The sighash type to be used")
;       (BITCOIN-RPC/CLASSES::FINAL-SCRIPT-SIGNATURE "final_scriptsig"
;        BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;        BITCOIN-RPC/CLASSES::FINAL-SCRIPT-SIGNATURE)
;       (BITCOIN-RPC/CLASSES::FINAL-SCRIPT-WITNESS "final_scriptwitness"
;        (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::FINAL-SCRIPT-WITNESS)
;       ("unknown" (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::UNKNOWN
;        :DOCUMENTATION
;        "The unknown global fields. (key-value pair) An unknown key-value pair")))
; 
; note: deleting unreachable code

; in: JSON-CLASS REDEEM-SCRIPT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::REDEEM-SCRIPT NIL
;      ((BITCOIN-RPC/CLASSES::REDEEM-SCRIPT "redeem_script"
;        BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;        BITCOIN-RPC/CLASSES::REDEEM-SCRIPT)))
; 
; note: deleting unreachable code

; in: JSON-CLASS WITNESS-SCRIPT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::WITNESS-SCRIPT NIL
;      ((BITCOIN-RPC/CLASSES::WITNESS-SCRIPT "witness_script"
;        BITCOIN-RPC/CLASSES:SCRIPT-SIGNATURE :READER
;        BITCOIN-RPC/CLASSES::WITNESS-SCRIPT)))
; 
; note: deleting unreachable code

; in: JSON-CLASS BIP32-DERIVATES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::BIP32-DERIVATES NIL
;      ((BITCOIN-RPC/CLASSES::BIP32-DERIVATES "bip32_derivs"
;        (:LIST BITCOIN-RPC/CLASSES::BIP32-DERIVATE) :READER
;        BITCOIN-RPC/CLASSES::BIP32-DERIVATES :DOCUMENTATION
;        "The public key with the derivation path as the value.")))
; 
; note: deleting unreachable code

; in: JSON-CLASS PSBT-OUTPUTS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::PSBT-OUTPUTS
;      (BITCOIN-RPC/CLASSES::BIP32-DERIVATES BITCOIN-RPC/CLASSES::REDEEM-SCRIPT
;       BITCOIN-RPC/CLASSES::WITNESS-SCRIPT)
;      (("unknown" (:HASH-TABLE :STRING) :READER BITCOIN-RPC/CLASSES::UNKNOWN
;        :DOCUMENTATION
;        "The unknown global fields. (key-value pair) An unknown key-value pair")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BIP32-DERIVATE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::BIP32-DERIVATE NIL
;      ((BITCOIN-RPC/CLASSES::MASTER-FINGER-PRINT "master_fingerprint" :STRING
;        :READER BITCOIN-RPC/CLASSES::MASTER-FINGER-PRINT :DOCUMENTATION
;        "The fingerprint of the master key")
;       ("path" :STRING :READER BITCOIN-RPC/CLASSES::PATH)))
; 
; note: deleting unreachable code

; in: JSON-CLASS DECODED-SCRIPT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:DECODED-SCRIPT
;      (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY)
;      ((BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH "p2sh" :STRING :READER
;        BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH :DOCUMENTATION
;        "address of P2SH script wrapping this redeem script (not returned if the script is already a P2SH)")
;       (BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS "segwit"
;        BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS :READER
;        BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS :DOCUMENTATION
;        "Result of a witness script public key wrapping this redeem script (not returned if the script is a P2SH or witness)")
;       ("desc" :STRING :READER BITCOIN-RPC/CLASSES::DESC)))
; 
; note: deleting unreachable code

; in: JSON-CLASS SEGREGATED-WITNESS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::SEGREGATED-WITNESS
;      (BITCOIN-RPC/CLASSES:SCRIPT-PUBLIC-KEY)
;      ((BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH-SEGREGATED-WITNESS "p2sh-segwit"
;        :STRING :READER BITCOIN-RPC/CLASSES::PAY-TO-SCRIPT-HASH-SEGREGATED-WITNESS
;        :DOCUMENTATION
;        "address of the P2SH script wrapping this witness redeem script")))
; 
; note: deleting unreachable code

; in: JSON-CLASS FINAL-PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:FINAL-PARTIALLY-SIGNED-BITCOIN-TRANSACTION NIL
;      ((BITCOIN-RPC/CLASSES:PARTIALLY-SIGNED-BITCOIN-TRANSACTION "psbt" :STRING
;        :READER BITCOIN-RPC/CLASSES:PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;        :DOCUMENTATION
;        "The base64-encoded partially signed transaction if not extracted")
;       ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The hex-encoded network transaction if extracted")
;       ("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;        "If the transaction has a complete set of signatures")))
; 
; note: deleting unreachable code

; in: JSON-CLASS FUNDED-RAW-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:FUNDED-RAW-TRANSACTION NIL
;      (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The resulting raw transaction (hex-encoded string)")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE :DOCUMENTATION
;        "Fee in BTC the resulting transaction pays")
;       (BITCOIN-RPC/CLASSES::CHANGE-POS "changepos" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CHANGE-POS :DOCUMENTATION
;        "The position of the added change output, or -1")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SIGNED-RAW-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SIGNED-RAW-TRANSACTION NIL
;      (("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "The hex-encoded raw transaction with signature(s)")
;       ("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;        "If the transaction has a complete set of signatures")
;       ("errors" (:LIST BITCOIN-RPC/CLASSES::SIGNING-ERROR) :READER
;        BITCOIN-RPC/CLASSES:ERRORS :DOCUMENTATION
;        "Script verification errors (if there are any)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS MEMORY-POOL-ACCEPT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MEMORY-POOL-ACCEPT NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :REQUIRED
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The transaction hash in hex")
;       ("allowed" :BOOL :READER BITCOIN-RPC/CLASSES::ALLOWED :DOCUMENTATION
;        "If the mempool allows this tx to be inserted")
;       (BITCOIN-RPC/CLASSES::VIRTUAL-SIZE "vsize" :NUMBER :REQUIRED
;        BITCOIN-RPC/CLASSES::VIRTUAL-SIZE :DOCUMENTATION
;        "Virtual transaction size as defined in BIP 141. This is different from actual serialized size for witness transactions as witness data is discounted (only present when 'allowed' is true)")
;       ("fees" BITCOIN-RPC/CLASSES::FEES-BASE :READER BITCOIN-RPC/CLASSES::FEES
;        :DOCUMENTATION "Transaction fees (only present if 'allowed' is true)")
;       ("reject-reason" :STRING :REQUIRED BITCOIN-RPC/CLASSES::REJECT-REASON
;        :DOCUMENTATION "Rejection string (only present when 'allowed' is false)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS FEES-BASE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::FEES-BASE NIL
;      (("base" :NUMBER :READER BITCOIN-RPC/CLASSES:BASE :DOCUMENTATION
;        "transaction fee in BTC")))
; 
; note: deleting unreachable code

; in: JSON-CLASS INDEX
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::INDEX NIL
;      (("synced" :BOOL :READER BITCOIN-RPC/CLASSES::SYNCED :DOCUMENTATION
;        "Whether the index is synced or not")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK-HEIGHT "best_block_height" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK-HEIGHT :DOCUMENTATION
;        "The block height to which the index is synced")))
; 
; note: deleting unreachable code

; in: JSON-CLASS CREATED-WALLET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:CREATED-WALLET NIL
;      (("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;        "The wallet name if created successfully. If the wallet was created using a full path, the wallet_name will be the full path.")
;       ("warning" :STRING :READER BITCOIN-RPC/CLASSES::WALLET-CREATION-WARNING
;        :DOCUMENTATION "Warning message if wallet was not loaded cleanly.")))
; 
; note: deleting unreachable code

; in: JSON-CLASS WALLET-DUMP
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:WALLET-DUMP NIL
;      (("filename" :STRING :READER BITCOIN-RPC/CLASSES::FILENAME :DOCUMENTATION
;        "The filename with full absolute path")))
; 
; note: deleting unreachable code

; in: JSON-CLASS ADDRESS-PURPOSE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ADDRESS-PURPOSE NIL
;      (("purpose" :STRING :READER BITCOIN-RPC/CLASSES::PURPOSE :DOCUMENTATION
;        "Purpose of address (\"send\" for sending address, \"receive\" for receiving address)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS TRANSACTIONS-SINCE-BLOCK
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:TRANSACTIONS-SINCE-BLOCK
;      NIL
;      (("transactions" (:LIST BITCOIN-RPC/CLASSES:TRANSACTION) :READER
;        BITCOIN-RPC/CLASSES:TRANSACTIONS)
;       ("removed" (:LIST BITCOIN-RPC/CLASSES:TRANSACTION) :READER
;        BITCOIN-RPC/CLASSES::REMOVED :DOCUMENTATION
;        "<structure is the same as \"transactions\" above, only present if include_removed=true>")
;       (BITCOIN-RPC/CLASSES::LAST-BLOCK "lastblock" :STRING :READER
;        BITCOIN-RPC/CLASSES::LAST-BLOCK :DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (404)) The hash of the block (target_confirmations-1) from the best block on the main chain, or the genesis hash if the referenced block does not exist yet. This is typically used to feed back into listsince... {100E729B8F}>)))
; 
; note: deleting unreachable code

; in: JSON-CLASS WALLETS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:WALLETS NIL
;      (("wallets" :ANY :READER BITCOIN-RPC/CLASSES:WALLETS)))
; 
; note: deleting unreachable code

; in: JSON-CLASS SENT-TRANSACTION
;     (("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;       "If the transaction has a complete set of signatures")
;      (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;       "The transaction id for the send. Only 1 transaction is created regardless of the number of addresses.")
;      ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;       "If add_to_wallet is false, the hex-encoded raw transaction with signature(s)")
;      ("psbt" :STRING :READER BITCOIN-RPC/CLASSES::PSBT :DOCUMENTATION
;       "If more signatures are needed, or if add_to_wallet is false, the base64-encoded (partially) signed transaction"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SENT-TRANSACTIONS
;     ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;       "The transaction id for the send. Only 1 transaction is created regardless of
;                              the number of addresses.")
;      (BITCOIN-RPC/CLASSES::FEE-REASON "fee reason" :READER
;       BITCOIN-RPC/CLASSES::FEE-REASON :DOCUMENTATION
;       "The transaction fee reason."))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS WALLET-FLAG
;     ((BITCOIN-RPC/CLASSES::FLAG-NAME "flag_name" :STRING :READER
;       BITCOIN-RPC/CLASSES::FLAG-NAME :DOCUMENTATION
;       "The name of the flag that was modified")
;      (BITCOIN-RPC/CLASSES::FLAG-STATE "flag_state" :BOOL :READER
;       BITCOIN-RPC/CLASSES::FLAG-STATE :DOCUMENTATION "The new state of the flag")
;      ("warnings" :STRING :READER BITCOIN-RPC/CLASSES::WARNINGS :DOCUMENTATION
;       "Any warnings associated with the change"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS WALLET-UPGRADE
;     ((BITCOIN-RPC/CLASSES::WALLET-NAME "wallet_name" :STRING :READER
;       BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION
;       "Name of wallet this operation was performed on")
;      (BITCOIN-RPC/CLASSES::PREVIOUS-VERSION "previous_version" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::PREVIOUS-VERSION :DOCUMENTATION
;       "Version of wallet before this operation")
;      (BITCOIN-RPC/CLASSES::CURRENT-VERSION "current_version" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::CURRENT-VERSION :DOCUMENTATION
;       "Version of wallet after this operation")
;      ("result" :STRING :READER BITCOIN-RPC/CLASSES::RESULT)
;      (BITCOIN-RPC/CLASSES::WALLET-UPGRADE-ERROR "error" :STRING :READER
;       BITCOIN-RPC/CLASSES::WALLET-UPGRADE-ERROR :DOCUMENTATION
;       "Error message (if there is one)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS FUNDED-PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     (("psbt" :STRING :READER BITCOIN-RPC/CLASSES::PSBT :DOCUMENTATION
;       "The resulting raw transaction (base64-encoded string)")
;      ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE)
;      (BITCOIN-RPC/CLASSES::CHANGEPOS "changepos" :NUMBER))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BIP-9-STATISTICS
;     (("period" :NUMBER :READER BITCOIN-RPC/CLASSES::PERIOD :DOCUMENTATION
;       "the length in blocks of the signalling period")
;      ("threshold" :NUMBER :READER BITCOIN-RPC/CLASSES::THRESHOLD :DOCUMENTATION
;       "the number of blocks with the version bit set required to activate the feature (only for \"started\" status)")
;      ("elapsed" :NUMBER :READER BITCOIN-RPC/CLASSES::ELAPSED :DOCUMENTATION
;       "the number of blocks elapsed since the beginning of the current period")
;      (BITCOIN-RPC/CLASSES::BIP-9-STATISTICS-COUNT "count" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::BIP-9-STATISTICS-COUNT :DOCUMENTATION
;       "the number of blocks with the version bit set in the current period")
;      ("possible" :BOOLEAN :READER BITCOIN-RPC/CLASSES::POSSIBLE :DOCUMENTATION
;       "returns false if there are not enough blocks left in this period to pass activation threshold (only for \"started\" status)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS BIP-9
;     ((BITCOIN-RPC/CLASSES::BIP-9-BIT "bit" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::BIP-9-BIT :DOCUMENTATION
;       "the bit (0-28) in the block version field used to signal this softfork (only for \"started\" and \"locked_in\" status)")
;      (BITCOIN-RPC/CLASSES::START-TIME "start_time" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::START-TIME :DOCUMENTATION
;       "the minimum median time past of a block at which the bit gains its meaning")
;      ("timeout" :NUMBER :READER BITCOIN-RPC/CLASSES::TIMEOUT :DOCUMENTATION
;       "the median time past of a block at which the deployment is considered failed if not yet locked in")
;      (BITCOIN-RPC/CLASSES::MINIMUM-ACTIVATION-HEIGHT "min_activation_height"
;       :NUMBER :READER BITCOIN-RPC/CLASSES::MINIMUM-ACTIVATION-HEIGHT
;       :DOCUMENTATION
;       "minimum height of blocks for which the rules may be enforced")
;      ("status" :STRING :READER BITCOIN-RPC/CLASSES::STATUS :DOCUMENTATION
;       "status of deployment at specified block (one of \"defined\", \"started\", \"locked_in\", \"active\", \"failed\")")
;      ("since" :NUMBER :READER BITCOIN-RPC/CLASSES::SINCE :DOCUMENTATION
;       "height of the first block to which the status applies")
;      (BITCOIN-RPC/CLASSES::STATUS-NEXT "status_next" :STRING :READER
;       BITCOIN-RPC/CLASSES::STATUS-NEXT :DOCUMENTATION
;       "status of deployment at the next block")
;      (BITCOIN-RPC/CLASSES::STATISTICS "statistics"
;       BITCOIN-RPC/CLASSES::BIP-9-STATISTICS :READER
;       BITCOIN-RPC/CLASSES::STATISTICS :DOCUMENTATION
;       "numeric statistics about signalling for a softfork (only for \"started\" and \"locked_in\" status)")
;      ("signalling" :STRING :READER BITCOIN-RPC/CLASSES::SIGNALLING :DOCUMENTATION
;       "indicates blocks that signalled with a # and blocks that did not with a -"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS DEPLOYMENTS
;     ((BITCOIN-RPC/CLASSES::DEPLOYMENTS-TYPE "type" :STRING :READER
;       BITCOIN-RPC/CLASSES::DEPLOYMENTS-TYPE :DOCUMENTATION
;       "one of \"buried\", \"bip9\"")
;      ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;       "height of the first block which the rules are or will be enforced (only for \"buried\" type, or \"bip9\" type with \"active\" status)")
;      ("active" :BOOL :READER BITCOIN-RPC/CLASSES::ACTIVE :DOCUMENTATION
;       "true if the rules are enforced for the mempool and the next block")
;      (BITCOIN-RPC/CLASSES::BIP-9 "bip9" BITCOIN-RPC/CLASSES::BIP-9 :READER
;       BITCOIN-RPC/CLASSES::BIP-9 :DOCUMENTATION
;       "status of bip9 softforks (only for \"bip9\" type"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS DEPLOYMENT-INFORMATION
;     (("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;       "requested block hash (or tip)")
;      ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;       "requested block height (or tip)")
;      ("deployments" (:HASH-TABLE BITCOIN-RPC/CLASSES::DEPLOYMENTS) :READER
;       BITCOIN-RPC/CLASSES::DEPLOYMENTS))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS PREVIOUS-TRANSACTION-OUTPUT
;     ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;       "the transaction id of the checked output")
;      (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION
;       "the vout value of the checked output")
;      (BITCOIN-RPC/CLASSES::SPENDING-TRANSACTION-ID "spendingtxid" :STRING :READER
;       BITCOIN-RPC/CLASSES::SPENDING-TRANSACTION-ID :DOCUMENTATION
;       "the transaction id of the mempool transaction spending this output (omitted if unspent)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SCAN-BLOCKS
;     (("progress" :NUMBER :READER BITCOIN-RPC/CLASSES::PROGRESS :DOCUMENTATION
;       "Approximate percent complete")
;      (BITCOIN-RPC/CLASSES::CURRENT-HEIGHT "current_height" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::CURRENT-HEIGHT :DOCUMENTATION
;       "Height of the block currently being scanned"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS ENUMERATED-SIGNER
;     (("fingerprint" :STRING :READER BITCOIN-RPC/CLASSES::FINGERPRINT
;       :DOCUMENTATION "Master key fingerprint")
;      ("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;       "Device name"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS ENUMERATED-SIGNERS
;     (("signers" (:LIST BITCOIN-RPC/CLASSES::ENUMERATED-SIGNER) :READER
;       BITCOIN-RPC/CLASSES::SIGNERS))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS DESCRIPTOR-LIST
;     ((BITCOIN-RPC/CLASSES::WALLET-NAME "wallet_name" :STRING :READER
;       BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION
;       "Name of wallet this operation was performed on")
;      ("descriptors" (:LIST BITCOIN-RPC/CLASSES:DESCRIPTOR) :READER
;       BITCOIN-RPC/CLASSES::DESCRIPTORS :DOCUMENTATION
;       "Array of descriptor objects (sorted by descriptor string representation)"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS MIGRATE-WALLET
;     ((BITCOIN-RPC/CLASSES::WALLET-NAME "wallet_name" :STRING :READER
;       BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION
;       "The name of the primary migrated wallet")
;      (BITCOIN-RPC/CLASSES::WATCHONLY-NAME "watchonly_name" :STRING :READER
;       BITCOIN-RPC/CLASSES::WATCHONLY-NAME :DOCUMENTATION
;       "The name of the migrated wallet containing the watchonly scripts")
;      (BITCOIN-RPC/CLASSES::SOLVABLES-NAME "solvables_name" :STRING :READER
;       BITCOIN-RPC/CLASSES::SOLVABLES-NAME :DOCUMENTATION
;       "The name of the migrated wallet containing solvable but not watched scripts")
;      (BITCOIN-RPC/CLASSES::BACKUP-PATH "backup_path" :STRING :READER
;       BITCOIN-RPC/CLASSES::BACKUP-PATH :DOCUMENTATION
;       "The location of the backup of the original wallet
;   }"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS RESTORE-WALLET
;     (("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;       "The wallet name if restored successfully.")
;      (BITCOIN-RPC/CLASSES::RESTORE-WALLET-WARNING "warning" :STRING :READER
;       BITCOIN-RPC/CLASSES::RESTORE-WALLET-WARNING :DOCUMENTATION
;       "Warning messages, if any, related to restoring the wallet. Multiple messages will be delimited by newlines. (DEPRECATED, returned only if config option -deprecatedrpc=walletwarningfield is passed.)")
;      ("warnings" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::WARNINGS
;       :DOCUMENTATION
;       "Warning messages, if any, related to restoring the wallet."))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS ZMQ-NOTIFICATION
;     ((BITCOIN-RPC/CLASSES::ZMQ-NOTIFICATION-TYPE "type" :STRING :READER
;       BITCOIN-RPC/CLASSES::ZMQ-NOTIFICATION-TYPE :DOCUMENTATION
;       "Type of notification")
;      ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;       "Address of the publisher")
;      (BITCOIN-RPC/CLASSES::HIGH-WATER-MARK "hwm" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::HIGH-WATER-MARK :DOCUMENTATION
;       "Outbound message high water mark"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS TRANSACTION-OUTPUT-SET
;     ((BITCOIN-RPC/CLASSES::COINS-WRITTEN "coins_written" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::COINS-WRITTEN :DOCUMENTATION
;       "the number of coins written in the snapshot")
;      (BITCOIN-RPC/CLASSES::BASE-HASH "base_hash" :STRING :READER
;       BITCOIN-RPC/CLASSES::BASE-HASH :DOCUMENTATION
;       "the hash of the base of the snapshot")
;      (BITCOIN-RPC/CLASSES::BASE-HEIGHT "base_height" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::BASE-HEIGHT :DOCUMENTATION
;       "the height of the base of the snapshot")
;      ("path" :STRING :READER BITCOIN-RPC/CLASSES::PATH :DOCUMENTATION
;       "the absolute path that the snapshot was written to")
;      (BITCOIN-RPC/CLASSES::UNSPEND-TRANSACTION-OUTPUT-SET-HASH "txoutset_hash"
;       :STRING :READER BITCOIN-RPC/CLASSES::UNSPEND-TRANSACTION-OUTPUT-SET-HASH
;       :DOCUMENTATION "the hash of the UTXO set contents")
;      (BITCOIN-RPC/CLASSES::CHAIN-TRANSACTIONS-NUMBER "nchaintx" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::CHAIN-TRANSACTIONS-NUMBER :DOCUMENTATION
;       "the number of transactions in the chain up to and including the base block"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS CHAIN-STATES
;     (("headers" :NUMBER :READER BITCOIN-RPC/CLASSES::HEADERS :DOCUMENTATION
;       "the number of headers seen so far")
;      (BITCOIN-RPC/CLASSES:CHAIN-STATES "chainstates"
;       (:LIST BITCOIN-RPC/CLASSES::CHAIN-STATE) :READER
;       BITCOIN-RPC/CLASSES:CHAIN-STATES :DOCUMENTATION
;       "list of the chainstates ordered by work, with the most-work (active) chainstate last"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS CHAIN-STATE
;     (("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;       "number of blocks in this chainstate")
;      (BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH "bestblockhash" :STRING :READER
;       BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH :DOCUMENTATION "blockhash of the tip")
;      ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES:DIFFICULTY :DOCUMENTATION
;       "difficulty of the tip")
;      (BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS "verificationprogress" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS :DOCUMENTATION
;       "progress towards the network tip")
;      (BITCOIN-RPC/CLASSES::SNAPSHOT-BLOCK-HASH "snapshot_blockhash" :STRING
;       :READER BITCOIN-RPC/CLASSES::SNAPSHOT-BLOCK-HASH :DOCUMENTATION
;       "the base block of the snapshot this chainstate is based on, if any")
;      (BITCOIN-RPC/CLASSES::COINS-DATABASE-CACHE-BYTES "coins_db_cache_bytes"
;       :NUMBER :READER BITCOIN-RPC/CLASSES::COINS-DATABASE-CACHE-BYTES
;       :DOCUMENTATION "size of the coinsdb cache")
;      (BITCOIN-RPC/CLASSES::COINS-TIP-CACHE-BYTES "coins_tip_cache_bytes" :NUMBER
;       :READER BITCOIN-RPC/CLASSES::COINS-TIP-CACHE-BYTES :DOCUMENTATION
;       "size of the coinstip cache")
;      ("validated" :BOOL :READER BITCOIN-RPC/CLASSES::VALIDATED :DOCUMENTATION
;       "whether the chainstate is fully validated. True if all blocks in the chainstate were validated, false if the chain is based on a snapshot and the snapshot has not yet been validated."))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS PRIORITISED-TRANSACTION
;     ((BITCOIN-RPC/CLASSES::FEE-DELTA "fee_delta" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::FEE-DELTA :DOCUMENTATION
;       "transaction fee delta in satoshis")
;      (BITCOIN-RPC/CLASSES::IN-MEMORY-POOL "in_mempool" :BOOL :READER
;       BITCOIN-RPC/CLASSES::IN-MEMORY-POOL :DOCUMENTATION
;       "whether this transaction is currently in mempool"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SENT-TRANSACTIONS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SENT-TRANSACTIONS NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The transaction id for the send. Only 1 transaction is created regardless of
;                              the number of addresses.")
;       (BITCOIN-RPC/CLASSES::FEE-REASON "fee reason" :READER
;        BITCOIN-RPC/CLASSES::FEE-REASON :DOCUMENTATION
;        "The transaction fee reason.")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS WALLET-FLAG
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:WALLET-FLAG NIL
;      ((BITCOIN-RPC/CLASSES::FLAG-NAME "flag_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::FLAG-NAME :DOCUMENTATION
;        "The name of the flag that was modified")
;       (BITCOIN-RPC/CLASSES::FLAG-STATE "flag_state" :BOOL :READER
;        BITCOIN-RPC/CLASSES::FLAG-STATE :DOCUMENTATION
;        "The new state of the flag")
;       ("warnings" :STRING :READER BITCOIN-RPC/CLASSES::WARNINGS :DOCUMENTATION
;        "Any warnings associated with the change")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS WALLET-UPGRADE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:WALLET-UPGRADE NIL
;      ((BITCOIN-RPC/CLASSES::WALLET-NAME "wallet_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION
;        "Name of wallet this operation was performed on")
;       (BITCOIN-RPC/CLASSES::PREVIOUS-VERSION "previous_version" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::PREVIOUS-VERSION :DOCUMENTATION
;        "Version of wallet before this operation")
;       (BITCOIN-RPC/CLASSES::CURRENT-VERSION "current_version" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CURRENT-VERSION :DOCUMENTATION
;        "Version of wallet after this operation")
;       ("result" :STRING :READER BITCOIN-RPC/CLASSES::RESULT)
;       (BITCOIN-RPC/CLASSES::WALLET-UPGRADE-ERROR "error" :STRING :READER
;        BITCOIN-RPC/CLASSES::WALLET-UPGRADE-ERROR :DOCUMENTATION
;        "Error message (if there is one)")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS FUNDED-PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES::FUNDED-PARTIALLY-SIGNED-BITCOIN-TRANSACTION NIL
;      (("psbt" :STRING :READER BITCOIN-RPC/CLASSES::PSBT :DOCUMENTATION
;        "The resulting raw transaction (base64-encoded string)")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE)
;       (BITCOIN-RPC/CLASSES::CHANGEPOS "changepos" :NUMBER)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS BIP-9-STATISTICS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::BIP-9-STATISTICS NIL
;      (("period" :NUMBER :READER BITCOIN-RPC/CLASSES::PERIOD :DOCUMENTATION
;        "the length in blocks of the signalling period")
;       ("threshold" :NUMBER :READER BITCOIN-RPC/CLASSES::THRESHOLD :DOCUMENTATION
;        "the number of blocks with the version bit set required to activate the feature (only for \"started\" status)")
;       ("elapsed" :NUMBER :READER BITCOIN-RPC/CLASSES::ELAPSED :DOCUMENTATION
;        "the number of blocks elapsed since the beginning of the current period")
;       (BITCOIN-RPC/CLASSES::BIP-9-STATISTICS-COUNT "count" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BIP-9-STATISTICS-COUNT :DOCUMENTATION
;        "the number of blocks with the version bit set in the current period")
;       ("possible" :BOOLEAN :READER BITCOIN-RPC/CLASSES::POSSIBLE :DOCUMENTATION
;        "returns false if there are not enough blocks left in this period to pass activation threshold (only for \"started\" status)")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS BIP-9
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::BIP-9 NIL
;      ((BITCOIN-RPC/CLASSES::BIP-9-BIT "bit" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BIP-9-BIT :DOCUMENTATION
;        "the bit (0-28) in the block version field used to signal this softfork (only for \"started\" and \"locked_in\" status)")
;       (BITCOIN-RPC/CLASSES::START-TIME "start_time" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::START-TIME :DOCUMENTATION
;        "the minimum median time past of a block at which the bit gains its meaning")
;       ("timeout" :NUMBER :READER BITCOIN-RPC/CLASSES::TIMEOUT :DOCUMENTATION
;        "the median time past of a block at which the deployment is considered failed if not yet locked in")
;       (BITCOIN-RPC/CLASSES::MINIMUM-ACTIVATION-HEIGHT "min_activation_height"
;        :NUMBER :READER BITCOIN-RPC/CLASSES::MINIMUM-ACTIVATION-HEIGHT
;        :DOCUMENTATION
;        "minimum height of blocks for which the rules may be enforced")
;       ("status" :STRING :READER BITCOIN-RPC/CLASSES::STATUS :DOCUMENTATION
;        "status of deployment at specified block (one of \"defined\", \"started\", \"locked_in\", \"active\", \"failed\")")
;       ("since" :NUMBER :READER BITCOIN-RPC/CLASSES::SINCE :DOCUMENTATION
;        "height of the first block to which the status applies")
;       (BITCOIN-RPC/CLASSES::STATUS-NEXT "status_next" :STRING :READER
;        BITCOIN-RPC/CLASSES::STATUS-NEXT :DOCUMENTATION
;        "status of deployment at the next block")
;       (BITCOIN-RPC/CLASSES::STATISTICS "statistics"
;        BITCOIN-RPC/CLASSES::BIP-9-STATISTICS :READER
;        BITCOIN-RPC/CLASSES::STATISTICS :DOCUMENTATION
;        "numeric statistics about signalling for a softfork (only for \"started\" and \"locked_in\" status)")
;       ("signalling" :STRING :READER BITCOIN-RPC/CLASSES::SIGNALLING
;        :DOCUMENTATION
;        "indicates blocks that signalled with a # and blocks that did not with a -"))
;      (:DOCUMENTATION "status of bip9 softforks (only for \"bip9\" type)"))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS DEPLOYMENTS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::DEPLOYMENTS NIL
;      ((BITCOIN-RPC/CLASSES::DEPLOYMENTS-TYPE "type" :STRING :READER
;        BITCOIN-RPC/CLASSES::DEPLOYMENTS-TYPE :DOCUMENTATION
;        "one of \"buried\", \"bip9\"")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "height of the first block which the rules are or will be enforced (only for \"buried\" type, or \"bip9\" type with \"active\" status)")
;       ("active" :BOOL :READER BITCOIN-RPC/CLASSES::ACTIVE :DOCUMENTATION
;        "true if the rules are enforced for the mempool and the next block")
;       (BITCOIN-RPC/CLASSES::BIP-9 "bip9" BITCOIN-RPC/CLASSES::BIP-9 :READER
;        BITCOIN-RPC/CLASSES::BIP-9 :DOCUMENTATION
;        "status of bip9 softforks (only for \"bip9\" type")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS DEPLOYMENT-INFORMATION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:DEPLOYMENT-INFORMATION NIL
;      (("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;        "requested block hash (or tip)")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "requested block height (or tip)")
;       ("deployments" (:HASH-TABLE BITCOIN-RPC/CLASSES::DEPLOYMENTS) :READER
;        BITCOIN-RPC/CLASSES::DEPLOYMENTS)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS PREVIOUS-TRANSACTION-OUTPUT
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:PREVIOUS-TRANSACTION-OUTPUT NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "the transaction id of the checked output")
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION
;        "the vout value of the checked output")
;       (BITCOIN-RPC/CLASSES::SPENDING-TRANSACTION-ID "spendingtxid" :STRING
;        :READER BITCOIN-RPC/CLASSES::SPENDING-TRANSACTION-ID :DOCUMENTATION
;        "the transaction id of the mempool transaction spending this output (omitted if unspent)")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS SCAN-BLOCKS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SCAN-BLOCKS NIL
;      (("progress" :NUMBER :READER BITCOIN-RPC/CLASSES::PROGRESS :DOCUMENTATION
;        "Approximate percent complete")
;       (BITCOIN-RPC/CLASSES::CURRENT-HEIGHT "current_height" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CURRENT-HEIGHT :DOCUMENTATION
;        "Height of the block currently being scanned")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS ENUMERATED-SIGNER
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::ENUMERATED-SIGNER NIL
;      (("fingerprint" :STRING :READER BITCOIN-RPC/CLASSES::FINGERPRINT
;        :DOCUMENTATION "Master key fingerprint")
;       ("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;        "Device name")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS ENUMERATED-SIGNERS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ENUMERATED-SIGNERS NIL
;      (("signers" (:LIST BITCOIN-RPC/CLASSES::ENUMERATED-SIGNER) :READER
;        BITCOIN-RPC/CLASSES::SIGNERS)))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS DESCRIPTOR-LIST
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:DESCRIPTOR-LIST NIL
;      ((BITCOIN-RPC/CLASSES::WALLET-NAME "wallet_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION
;        "Name of wallet this operation was performed on")
;       ("descriptors" (:LIST BITCOIN-RPC/CLASSES:DESCRIPTOR) :READER
;        BITCOIN-RPC/CLASSES::DESCRIPTORS :DOCUMENTATION
;        "Array of descriptor objects (sorted by descriptor string representation)")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS MIGRATE-WALLET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MIGRATE-WALLET NIL
;      ((BITCOIN-RPC/CLASSES::WALLET-NAME "wallet_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION
;        "The name of the primary migrated wallet")
;       (BITCOIN-RPC/CLASSES::WATCHONLY-NAME "watchonly_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::WATCHONLY-NAME :DOCUMENTATION
;        "The name of the migrated wallet containing the watchonly scripts")
;       (BITCOIN-RPC/CLASSES::SOLVABLES-NAME "solvables_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::SOLVABLES-NAME :DOCUMENTATION
;        "The name of the migrated wallet containing solvable but not watched scripts")
;       (BITCOIN-RPC/CLASSES::BACKUP-PATH "backup_path" :STRING :READER
;        BITCOIN-RPC/CLASSES::BACKUP-PATH :DOCUMENTATION
;        "The location of the backup of the original wallet
;   }")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS RESTORE-WALLET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:RESTORE-WALLET NIL
;      (("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;        "The wallet name if restored successfully.")
;       (BITCOIN-RPC/CLASSES::RESTORE-WALLET-WARNING "warning" :STRING :READER
;        BITCOIN-RPC/CLASSES::RESTORE-WALLET-WARNING :DOCUMENTATION
;        "Warning messages, if any, related to restoring the wallet. Multiple messages will be delimited by newlines. (DEPRECATED, returned only if config option -deprecatedrpc=walletwarningfield is passed.)")
;       ("warnings" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::WARNINGS
;        :DOCUMENTATION
;        "Warning messages, if any, related to restoring the wallet.")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS ZMQ-NOTIFICATION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ZMQ-NOTIFICATION NIL
;      ((BITCOIN-RPC/CLASSES::ZMQ-NOTIFICATION-TYPE "type" :STRING :READER
;        BITCOIN-RPC/CLASSES::ZMQ-NOTIFICATION-TYPE :DOCUMENTATION
;        "Type of notification")
;       ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "Address of the publisher")
;       (BITCOIN-RPC/CLASSES::HIGH-WATER-MARK "hwm" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::HIGH-WATER-MARK :DOCUMENTATION
;        "Outbound message high water mark")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS TRANSACTION-OUTPUT-SET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:TRANSACTION-OUTPUT-SET NIL
;      ((BITCOIN-RPC/CLASSES::COINS-WRITTEN "coins_written" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::COINS-WRITTEN :DOCUMENTATION
;        "the number of coins written in the snapshot")
;       (BITCOIN-RPC/CLASSES::BASE-HASH "base_hash" :STRING :READER
;        BITCOIN-RPC/CLASSES::BASE-HASH :DOCUMENTATION
;        "the hash of the base of the snapshot")
;       (BITCOIN-RPC/CLASSES::BASE-HEIGHT "base_height" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BASE-HEIGHT :DOCUMENTATION
;        "the height of the base of the snapshot")
;       ("path" :STRING :READER BITCOIN-RPC/CLASSES::PATH :DOCUMENTATION
;        "the absolute path that the snapshot was written to")
;       (BITCOIN-RPC/CLASSES::UNSPEND-TRANSACTION-OUTPUT-SET-HASH "txoutset_hash"
;        :STRING :READER BITCOIN-RPC/CLASSES::UNSPEND-TRANSACTION-OUTPUT-SET-HASH
;        :DOCUMENTATION "the hash of the UTXO set contents")
;       (BITCOIN-RPC/CLASSES::CHAIN-TRANSACTIONS-NUMBER "nchaintx" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CHAIN-TRANSACTIONS-NUMBER :DOCUMENTATION
;        "the number of transactions in the chain up to and including the base block")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS CHAIN-STATES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:CHAIN-STATES NIL
;      (("headers" :NUMBER :READER BITCOIN-RPC/CLASSES::HEADERS :DOCUMENTATION
;        "the number of headers seen so far")
;       (BITCOIN-RPC/CLASSES:CHAIN-STATES "chainstates"
;        (:LIST BITCOIN-RPC/CLASSES::CHAIN-STATE) :READER
;        BITCOIN-RPC/CLASSES:CHAIN-STATES :DOCUMENTATION
;        "list of the chainstates ordered by work, with the most-work (active) chainstate last")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS CHAIN-STATE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::CHAIN-STATE NIL
;      (("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;        "number of blocks in this chainstate")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH "bestblockhash" :STRING :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH :DOCUMENTATION
;        "blockhash of the tip")
;       ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES:DIFFICULTY :DOCUMENTATION
;        "difficulty of the tip")
;       (BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS "verificationprogress" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS :DOCUMENTATION
;        "progress towards the network tip")
;       (BITCOIN-RPC/CLASSES::SNAPSHOT-BLOCK-HASH "snapshot_blockhash" :STRING
;        :READER BITCOIN-RPC/CLASSES::SNAPSHOT-BLOCK-HASH :DOCUMENTATION
;        "the base block of the snapshot this chainstate is based on, if any")
;       (BITCOIN-RPC/CLASSES::COINS-DATABASE-CACHE-BYTES "coins_db_cache_bytes"
;        :NUMBER :READER BITCOIN-RPC/CLASSES::COINS-DATABASE-CACHE-BYTES
;        :DOCUMENTATION "size of the coinsdb cache")
;       (BITCOIN-RPC/CLASSES::COINS-TIP-CACHE-BYTES "coins_tip_cache_bytes" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::COINS-TIP-CACHE-BYTES :DOCUMENTATION
;        "size of the coinstip cache")
;       ("validated" :BOOL :READER BITCOIN-RPC/CLASSES::VALIDATED :DOCUMENTATION
;        "whether the chainstate is fully validated. True if all blocks in the chainstate were validated, false if the chain is based on a snapshot and the snapshot has not yet been validated.")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS PRIORITISED-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:PRIORITISED-TRANSACTION
;      NIL
;      ((BITCOIN-RPC/CLASSES::FEE-DELTA "fee_delta" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::FEE-DELTA :DOCUMENTATION
;        "transaction fee delta in satoshis")
;       (BITCOIN-RPC/CLASSES::IN-MEMORY-POOL "in_mempool" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IN-MEMORY-POOL :DOCUMENTATION
;        "whether this transaction is currently in mempool")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS SENT-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SENT-TRANSACTION NIL
;      (("complete" :BOOL :READER BITCOIN-RPC/CLASSES::COMPLETE :DOCUMENTATION
;        "If the transaction has a complete set of signatures")
;       (BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The transaction id for the send. Only 1 transaction is created regardless of the number of addresses.")
;       ("hex" :STRING :READER BITCOIN-RPC/CLASSES::HEX :DOCUMENTATION
;        "If add_to_wallet is false, the hex-encoded raw transaction with signature(s)")
;       ("psbt" :STRING :READER BITCOIN-RPC/CLASSES::PSBT :DOCUMENTATION
;        "If more signatures are needed, or if add_to_wallet is false, the base64-encoded (partially) signed transaction")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SENT-TRANSACTIONS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SENT-TRANSACTIONS NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "The transaction id for the send. Only 1 transaction is created regardless of
;                              the number of addresses.")
;       (BITCOIN-RPC/CLASSES::FEE-REASON "fee reason" :READER
;        BITCOIN-RPC/CLASSES::FEE-REASON :DOCUMENTATION
;        "The transaction fee reason.")))
; 
; note: deleting unreachable code

; in: JSON-CLASS WALLET-FLAG
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:WALLET-FLAG NIL
;      ((BITCOIN-RPC/CLASSES::FLAG-NAME "flag_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::FLAG-NAME :DOCUMENTATION
;        "The name of the flag that was modified")
;       (BITCOIN-RPC/CLASSES::FLAG-STATE "flag_state" :BOOL :READER
;        BITCOIN-RPC/CLASSES::FLAG-STATE :DOCUMENTATION
;        "The new state of the flag")
;       ("warnings" :STRING :READER BITCOIN-RPC/CLASSES::WARNINGS :DOCUMENTATION
;        "Any warnings associated with the change")))
; 
; note: deleting unreachable code

; in: JSON-CLASS WALLET-UPGRADE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:WALLET-UPGRADE NIL
;      ((BITCOIN-RPC/CLASSES::WALLET-NAME "wallet_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION
;        "Name of wallet this operation was performed on")
;       (BITCOIN-RPC/CLASSES::PREVIOUS-VERSION "previous_version" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::PREVIOUS-VERSION :DOCUMENTATION
;        "Version of wallet before this operation")
;       (BITCOIN-RPC/CLASSES::CURRENT-VERSION "current_version" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CURRENT-VERSION :DOCUMENTATION
;        "Version of wallet after this operation")
;       ("result" :STRING :READER BITCOIN-RPC/CLASSES::RESULT)
;       (BITCOIN-RPC/CLASSES::WALLET-UPGRADE-ERROR "error" :STRING :READER
;        BITCOIN-RPC/CLASSES::WALLET-UPGRADE-ERROR :DOCUMENTATION
;        "Error message (if there is one)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS FUNDED-PARTIALLY-SIGNED-BITCOIN-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES::FUNDED-PARTIALLY-SIGNED-BITCOIN-TRANSACTION NIL
;      (("psbt" :STRING :READER BITCOIN-RPC/CLASSES::PSBT :DOCUMENTATION
;        "The resulting raw transaction (base64-encoded string)")
;       ("fee" :NUMBER :READER BITCOIN-RPC/CLASSES::FEE)
;       (BITCOIN-RPC/CLASSES::CHANGEPOS "changepos" :NUMBER)))
; 
; note: deleting unreachable code

; in: JSON-CLASS BIP-9-STATISTICS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::BIP-9-STATISTICS NIL
;      (("period" :NUMBER :READER BITCOIN-RPC/CLASSES::PERIOD :DOCUMENTATION
;        "the length in blocks of the signalling period")
;       ("threshold" :NUMBER :READER BITCOIN-RPC/CLASSES::THRESHOLD :DOCUMENTATION
;        "the number of blocks with the version bit set required to activate the feature (only for \"started\" status)")
;       ("elapsed" :NUMBER :READER BITCOIN-RPC/CLASSES::ELAPSED :DOCUMENTATION
;        "the number of blocks elapsed since the beginning of the current period")
;       (BITCOIN-RPC/CLASSES::BIP-9-STATISTICS-COUNT "count" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BIP-9-STATISTICS-COUNT :DOCUMENTATION
;        "the number of blocks with the version bit set in the current period")
;       ("possible" :BOOLEAN :READER BITCOIN-RPC/CLASSES::POSSIBLE :DOCUMENTATION
;        "returns false if there are not enough blocks left in this period to pass activation threshold (only for \"started\" status)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS BIP-9
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::BIP-9 NIL
;      ((BITCOIN-RPC/CLASSES::BIP-9-BIT "bit" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BIP-9-BIT :DOCUMENTATION
;        "the bit (0-28) in the block version field used to signal this softfork (only for \"started\" and \"locked_in\" status)")
;       (BITCOIN-RPC/CLASSES::START-TIME "start_time" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::START-TIME :DOCUMENTATION
;        "the minimum median time past of a block at which the bit gains its meaning")
;       ("timeout" :NUMBER :READER BITCOIN-RPC/CLASSES::TIMEOUT :DOCUMENTATION
;        "the median time past of a block at which the deployment is considered failed if not yet locked in")
;       (BITCOIN-RPC/CLASSES::MINIMUM-ACTIVATION-HEIGHT "min_activation_height"
;        :NUMBER :READER BITCOIN-RPC/CLASSES::MINIMUM-ACTIVATION-HEIGHT
;        :DOCUMENTATION
;        "minimum height of blocks for which the rules may be enforced")
;       ("status" :STRING :READER BITCOIN-RPC/CLASSES::STATUS :DOCUMENTATION
;        "status of deployment at specified block (one of \"defined\", \"started\", \"locked_in\", \"active\", \"failed\")")
;       ("since" :NUMBER :READER BITCOIN-RPC/CLASSES::SINCE :DOCUMENTATION
;        "height of the first block to which the status applies")
;       (BITCOIN-RPC/CLASSES::STATUS-NEXT "status_next" :STRING :READER
;        BITCOIN-RPC/CLASSES::STATUS-NEXT :DOCUMENTATION
;        "status of deployment at the next block")
;       (BITCOIN-RPC/CLASSES::STATISTICS "statistics"
;        BITCOIN-RPC/CLASSES::BIP-9-STATISTICS :READER
;        BITCOIN-RPC/CLASSES::STATISTICS :DOCUMENTATION
;        "numeric statistics about signalling for a softfork (only for \"started\" and \"locked_in\" status)")
;       ("signalling" :STRING :READER BITCOIN-RPC/CLASSES::SIGNALLING
;        :DOCUMENTATION
;        "indicates blocks that signalled with a # and blocks that did not with a -"))
;      (:DOCUMENTATION "status of bip9 softforks (only for \"bip9\" type)"))
; 
; note: deleting unreachable code

; in: JSON-CLASS DEPLOYMENTS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::DEPLOYMENTS NIL
;      ((BITCOIN-RPC/CLASSES::DEPLOYMENTS-TYPE "type" :STRING :READER
;        BITCOIN-RPC/CLASSES::DEPLOYMENTS-TYPE :DOCUMENTATION
;        "one of \"buried\", \"bip9\"")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "height of the first block which the rules are or will be enforced (only for \"buried\" type, or \"bip9\" type with \"active\" status)")
;       ("active" :BOOL :READER BITCOIN-RPC/CLASSES::ACTIVE :DOCUMENTATION
;        "true if the rules are enforced for the mempool and the next block")
;       (BITCOIN-RPC/CLASSES::BIP-9 "bip9" BITCOIN-RPC/CLASSES::BIP-9 :READER
;        BITCOIN-RPC/CLASSES::BIP-9 :DOCUMENTATION
;        "status of bip9 softforks (only for \"bip9\" type")))
; 
; note: deleting unreachable code

; in: JSON-CLASS DEPLOYMENT-INFORMATION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:DEPLOYMENT-INFORMATION NIL
;      (("hash" :STRING :READER BITCOIN-RPC/CLASSES:HASH :DOCUMENTATION
;        "requested block hash (or tip)")
;       ("height" :NUMBER :READER BITCOIN-RPC/CLASSES:HEIGHT :DOCUMENTATION
;        "requested block height (or tip)")
;       ("deployments" (:HASH-TABLE BITCOIN-RPC/CLASSES::DEPLOYMENTS) :READER
;        BITCOIN-RPC/CLASSES::DEPLOYMENTS)))
; 
; note: deleting unreachable code

; in: JSON-CLASS PREVIOUS-TRANSACTION-OUTPUT
;     (OPENAPI-GENERATOR::JSON-CLASS
;      BITCOIN-RPC/CLASSES:PREVIOUS-TRANSACTION-OUTPUT NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-ID "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-ID :DOCUMENTATION
;        "the transaction id of the checked output")
;       (BITCOIN-RPC/CLASSES::VALUE-OUT "vout" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VALUE-OUT :DOCUMENTATION
;        "the vout value of the checked output")
;       (BITCOIN-RPC/CLASSES::SPENDING-TRANSACTION-ID "spendingtxid" :STRING
;        :READER BITCOIN-RPC/CLASSES::SPENDING-TRANSACTION-ID :DOCUMENTATION
;        "the transaction id of the mempool transaction spending this output (omitted if unspent)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SCAN-BLOCKS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SCAN-BLOCKS NIL
;      (("progress" :NUMBER :READER BITCOIN-RPC/CLASSES::PROGRESS :DOCUMENTATION
;        "Approximate percent complete")
;       (BITCOIN-RPC/CLASSES::CURRENT-HEIGHT "current_height" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CURRENT-HEIGHT :DOCUMENTATION
;        "Height of the block currently being scanned")))
; 
; note: deleting unreachable code

; in: JSON-CLASS ENUMERATED-SIGNER
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::ENUMERATED-SIGNER NIL
;      (("fingerprint" :STRING :READER BITCOIN-RPC/CLASSES::FINGERPRINT
;        :DOCUMENTATION "Master key fingerprint")
;       ("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;        "Device name")))
; 
; note: deleting unreachable code

; in: JSON-CLASS ENUMERATED-SIGNERS
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ENUMERATED-SIGNERS NIL
;      (("signers" (:LIST BITCOIN-RPC/CLASSES::ENUMERATED-SIGNER) :READER
;        BITCOIN-RPC/CLASSES::SIGNERS)))
; 
; note: deleting unreachable code

; in: JSON-CLASS DESCRIPTOR-LIST
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:DESCRIPTOR-LIST NIL
;      ((BITCOIN-RPC/CLASSES::WALLET-NAME "wallet_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION
;        "Name of wallet this operation was performed on")
;       ("descriptors" (:LIST BITCOIN-RPC/CLASSES:DESCRIPTOR) :READER
;        BITCOIN-RPC/CLASSES::DESCRIPTORS :DOCUMENTATION
;        "Array of descriptor objects (sorted by descriptor string representation)")))
; 
; note: deleting unreachable code

; in: JSON-CLASS MIGRATE-WALLET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:MIGRATE-WALLET NIL
;      ((BITCOIN-RPC/CLASSES::WALLET-NAME "wallet_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::WALLET-NAME :DOCUMENTATION
;        "The name of the primary migrated wallet")
;       (BITCOIN-RPC/CLASSES::WATCHONLY-NAME "watchonly_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::WATCHONLY-NAME :DOCUMENTATION
;        "The name of the migrated wallet containing the watchonly scripts")
;       (BITCOIN-RPC/CLASSES::SOLVABLES-NAME "solvables_name" :STRING :READER
;        BITCOIN-RPC/CLASSES::SOLVABLES-NAME :DOCUMENTATION
;        "The name of the migrated wallet containing solvable but not watched scripts")
;       (BITCOIN-RPC/CLASSES::BACKUP-PATH "backup_path" :STRING :READER
;        BITCOIN-RPC/CLASSES::BACKUP-PATH :DOCUMENTATION
;        "The location of the backup of the original wallet
;   }")))
; 
; note: deleting unreachable code

; in: JSON-CLASS RESTORE-WALLET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:RESTORE-WALLET NIL
;      (("name" :STRING :READER BITCOIN-RPC/CLASSES::NAME :DOCUMENTATION
;        "The wallet name if restored successfully.")
;       (BITCOIN-RPC/CLASSES::RESTORE-WALLET-WARNING "warning" :STRING :READER
;        BITCOIN-RPC/CLASSES::RESTORE-WALLET-WARNING :DOCUMENTATION
;        "Warning messages, if any, related to restoring the wallet. Multiple messages will be delimited by newlines. (DEPRECATED, returned only if config option -deprecatedrpc=walletwarningfield is passed.)")
;       ("warnings" (:LIST :STRING) :READER BITCOIN-RPC/CLASSES::WARNINGS
;        :DOCUMENTATION
;        "Warning messages, if any, related to restoring the wallet.")))
; 
; note: deleting unreachable code

; in: JSON-CLASS ZMQ-NOTIFICATION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ZMQ-NOTIFICATION NIL
;      ((BITCOIN-RPC/CLASSES::ZMQ-NOTIFICATION-TYPE "type" :STRING :READER
;        BITCOIN-RPC/CLASSES::ZMQ-NOTIFICATION-TYPE :DOCUMENTATION
;        "Type of notification")
;       ("address" :STRING :READER BITCOIN-RPC/CLASSES::ADDRESS :DOCUMENTATION
;        "Address of the publisher")
;       (BITCOIN-RPC/CLASSES::HIGH-WATER-MARK "hwm" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::HIGH-WATER-MARK :DOCUMENTATION
;        "Outbound message high water mark")))
; 
; note: deleting unreachable code

; in: JSON-CLASS TRANSACTION-OUTPUT-SET
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:TRANSACTION-OUTPUT-SET NIL
;      ((BITCOIN-RPC/CLASSES::COINS-WRITTEN "coins_written" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::COINS-WRITTEN :DOCUMENTATION
;        "the number of coins written in the snapshot")
;       (BITCOIN-RPC/CLASSES::BASE-HASH "base_hash" :STRING :READER
;        BITCOIN-RPC/CLASSES::BASE-HASH :DOCUMENTATION
;        "the hash of the base of the snapshot")
;       (BITCOIN-RPC/CLASSES::BASE-HEIGHT "base_height" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::BASE-HEIGHT :DOCUMENTATION
;        "the height of the base of the snapshot")
;       ("path" :STRING :READER BITCOIN-RPC/CLASSES::PATH :DOCUMENTATION
;        "the absolute path that the snapshot was written to")
;       (BITCOIN-RPC/CLASSES::UNSPEND-TRANSACTION-OUTPUT-SET-HASH "txoutset_hash"
;        :STRING :READER BITCOIN-RPC/CLASSES::UNSPEND-TRANSACTION-OUTPUT-SET-HASH
;        :DOCUMENTATION "the hash of the UTXO set contents")
;       (BITCOIN-RPC/CLASSES::CHAIN-TRANSACTIONS-NUMBER "nchaintx" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::CHAIN-TRANSACTIONS-NUMBER :DOCUMENTATION
;        "the number of transactions in the chain up to and including the base block")))
; 
; note: deleting unreachable code

; in: JSON-CLASS CHAIN-STATES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:CHAIN-STATES NIL
;      (("headers" :NUMBER :READER BITCOIN-RPC/CLASSES::HEADERS :DOCUMENTATION
;        "the number of headers seen so far")
;       (BITCOIN-RPC/CLASSES:CHAIN-STATES "chainstates"
;        (:LIST BITCOIN-RPC/CLASSES::CHAIN-STATE) :READER
;        BITCOIN-RPC/CLASSES:CHAIN-STATES :DOCUMENTATION
;        "list of the chainstates ordered by work, with the most-work (active) chainstate last")))
; 
; note: deleting unreachable code

; in: JSON-CLASS CHAIN-STATE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::CHAIN-STATE NIL
;      (("blocks" :NUMBER :READER BITCOIN-RPC/CLASSES::BLOCKS :DOCUMENTATION
;        "number of blocks in this chainstate")
;       (BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH "bestblockhash" :STRING :READER
;        BITCOIN-RPC/CLASSES::BEST-BLOCK-HASH :DOCUMENTATION
;        "blockhash of the tip")
;       ("difficulty" :NUMBER :READER BITCOIN-RPC/CLASSES:DIFFICULTY :DOCUMENTATION
;        "difficulty of the tip")
;       (BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS "verificationprogress" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::VERIFICATION-PROGRESS :DOCUMENTATION
;        "progress towards the network tip")
;       (BITCOIN-RPC/CLASSES::SNAPSHOT-BLOCK-HASH "snapshot_blockhash" :STRING
;        :READER BITCOIN-RPC/CLASSES::SNAPSHOT-BLOCK-HASH :DOCUMENTATION
;        "the base block of the snapshot this chainstate is based on, if any")
;       (BITCOIN-RPC/CLASSES::COINS-DATABASE-CACHE-BYTES "coins_db_cache_bytes"
;        :NUMBER :READER BITCOIN-RPC/CLASSES::COINS-DATABASE-CACHE-BYTES
;        :DOCUMENTATION "size of the coinsdb cache")
;       (BITCOIN-RPC/CLASSES::COINS-TIP-CACHE-BYTES "coins_tip_cache_bytes" :NUMBER
;        :READER BITCOIN-RPC/CLASSES::COINS-TIP-CACHE-BYTES :DOCUMENTATION
;        "size of the coinstip cache")
;       ("validated" :BOOL :READER BITCOIN-RPC/CLASSES::VALIDATED :DOCUMENTATION
;        "whether the chainstate is fully validated. True if all blocks in the chainstate were validated, false if the chain is based on a snapshot and the snapshot has not yet been validated.")))
; 
; note: deleting unreachable code

; in: JSON-CLASS PRIORITISED-TRANSACTION
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:PRIORITISED-TRANSACTION
;      NIL
;      ((BITCOIN-RPC/CLASSES::FEE-DELTA "fee_delta" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::FEE-DELTA :DOCUMENTATION
;        "transaction fee delta in satoshis")
;       (BITCOIN-RPC/CLASSES::IN-MEMORY-POOL "in_mempool" :BOOL :READER
;        BITCOIN-RPC/CLASSES::IN-MEMORY-POOL :DOCUMENTATION
;        "whether this transaction is currently in mempool")))
; 
; note: deleting unreachable code

; in: JSON-CLASS ADDRESS-MANAGER-INFO
;     (("new" :NUMBER :READER BITCOIN-RPC/CLASSES::NEW :DOCUMENTATION
;       "number of addresses in the new table, which represent potential peers the node has discovered but hasn't yet successfully connected to.")
;      ("tried" :NUMBER :READER BITCOIN-RPC/CLASSES::TRIED :DOCUMENTATION
;       "number of addresses in the tried table, which represent peers the node has successfully connected to in the past.")
;      ("total" :NUMBER :READER BITCOIN-RPC/CLASSES::TOTAL :DOCUMENTATION
;       "total number of addresses in both new/tried tables"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SUBMITTED-PACKAGE
;     ((BITCOIN-RPC/CLASSES::TRANSACTION-RESULTS "tx-results"
;       (:HASH-TABLE BITCOIN-RPC/CLASSES::TRANSACTION-RESULT) :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-RESULTS :DOCUMENTATION
;       "transaction results keyed by wtxid")
;      ("replaced-transactions" (:LIST :STRING) :READER
;       BITCOIN-RPC/CLASSES::REPLACED-TRANSACTIONS :DOCUMENTATION
;       "List of txids of replaced transactions"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS TRANSACTION-RESULT
;     ((BITCOIN-RPC/CLASSES::TRANSACTION-IDENTIFIER "txid" :STRING :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-IDENTIFIER :DOCUMENTATION
;       "The transaction hash in hex")
;      (BITCOIN-RPC/CLASSES::OTHER-WITNESS-TRANSACTION-IDENTIFIER "other-wtxid"
;       :STRING :READER BITCOIN-RPC/CLASSES::OTHER-WITNESS-TRANSACTION-IDENTIFIER
;       :REQUIRED NIL :DOCUMENTATION
;       "The wtxid of a different transaction with the same txid but different witness found in the mempool. This means the submitted transaction was ignored.")
;      (BITCOIN-RPC/CLASSES::VIRTUAL-TRANSACTION-SIZE "vsize" :NUMBER :READER
;       BITCOIN-RPC/CLASSES::VIRTUAL-TRANSACTION-SIZE :DOCUMENTATION
;       "Virtual transaction size as defined in BIP 141.")
;      ("fees" BITCOIN-RPC/CLASSES::TRANSACTION-RESULT-FEES :READER
;       BITCOIN-RPC/CLASSES::TRANSACTION-RESULT-FEES :DOCUMENTATION
;       "Transaction fees"))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS TRANSACTION-RESULT-FEES
;     (("base" :NUMBER :READER BITCOIN-RPC/CLASSES:BASE :DOCUMENTATION
;       "transaction fee in BTC")
;      ("effective-feerate" :NUMBER :READER BITCOIN-RPC/CLASSES::EFFECTIVE-FEERATE
;       :REQUIRED NIL :DOCUMENTATION
;       "if the transaction was not already in the mempool, the effective feerate in BTC per KvB. For example, the package feerate and/or feerate with modified fees from prioritisetransaction.")
;      ("effective-includes" (:LIST :STRING) :READER
;       BITCOIN-RPC/CLASSES::EFFECTIVE-INCLUDES :REQUIRED NIL :DOCUMENTATION
;       "if effective-feerate is provided, the wtxids of the transactions whose fees and vsizes are included in effective-feerate."))
; 
; caught ERROR:
;   illegal function call

; in: JSON-CLASS SUBMITTED-PACKAGE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SUBMITTED-PACKAGE NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-RESULTS "tx-results"
;        (:HASH-TABLE BITCOIN-RPC/CLASSES::TRANSACTION-RESULT) :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-RESULTS :DOCUMENTATION
;        "transaction results keyed by wtxid")
;       ("replaced-transactions" (:LIST :STRING) :READER
;        BITCOIN-RPC/CLASSES::REPLACED-TRANSACTIONS :DOCUMENTATION
;        "List of txids of replaced transactions")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS TRANSACTION-RESULT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::TRANSACTION-RESULT NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-IDENTIFIER "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-IDENTIFIER :DOCUMENTATION
;        "The transaction hash in hex")
;       (BITCOIN-RPC/CLASSES::OTHER-WITNESS-TRANSACTION-IDENTIFIER "other-wtxid"
;        :STRING :READER BITCOIN-RPC/CLASSES::OTHER-WITNESS-TRANSACTION-IDENTIFIER
;        :REQUIRED NIL :DOCUMENTATION
;        "The wtxid of a different transaction with the same txid but different witness found in the mempool. This means the submitted transaction was ignored.")
;       (BITCOIN-RPC/CLASSES::VIRTUAL-TRANSACTION-SIZE "vsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VIRTUAL-TRANSACTION-SIZE :DOCUMENTATION
;        "Virtual transaction size as defined in BIP 141.")
;       ("fees" BITCOIN-RPC/CLASSES::TRANSACTION-RESULT-FEES :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-RESULT-FEES :DOCUMENTATION
;        "Transaction fees")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS TRANSACTION-RESULT-FEES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::TRANSACTION-RESULT-FEES
;      NIL
;      (("base" :NUMBER :READER BITCOIN-RPC/CLASSES:BASE :DOCUMENTATION
;        "transaction fee in BTC")
;       ("effective-feerate" :NUMBER :READER BITCOIN-RPC/CLASSES::EFFECTIVE-FEERATE
;        :REQUIRED NIL :DOCUMENTATION
;        "if the transaction was not already in the mempool, the effective feerate in BTC per KvB. For example, the package feerate and/or feerate with modified fees from prioritisetransaction.")
;       ("effective-includes" (:LIST :STRING) :READER
;        BITCOIN-RPC/CLASSES::EFFECTIVE-INCLUDES :REQUIRED NIL :DOCUMENTATION
;        "if effective-feerate is provided, the wtxids of the transactions whose fees and vsizes are included in effective-feerate.")))
; 
; note: deleting unused function
;   "top level form"

; in: JSON-CLASS ADDRESS-MANAGER-INFO
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:ADDRESS-MANAGER-INFO NIL
;      (("new" :NUMBER :READER BITCOIN-RPC/CLASSES::NEW :DOCUMENTATION
;        "number of addresses in the new table, which represent potential peers the node has discovered but hasn't yet successfully connected to.")
;       ("tried" :NUMBER :READER BITCOIN-RPC/CLASSES::TRIED :DOCUMENTATION
;        "number of addresses in the tried table, which represent peers the node has successfully connected to in the past.")
;       ("total" :NUMBER :READER BITCOIN-RPC/CLASSES::TOTAL :DOCUMENTATION
;        "total number of addresses in both new/tried tables")))
; 
; note: deleting unreachable code

; in: JSON-CLASS SUBMITTED-PACKAGE
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES:SUBMITTED-PACKAGE NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-RESULTS "tx-results"
;        (:HASH-TABLE BITCOIN-RPC/CLASSES::TRANSACTION-RESULT) :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-RESULTS :DOCUMENTATION
;        "transaction results keyed by wtxid")
;       ("replaced-transactions" (:LIST :STRING) :READER
;        BITCOIN-RPC/CLASSES::REPLACED-TRANSACTIONS :DOCUMENTATION
;        "List of txids of replaced transactions")))
; 
; note: deleting unreachable code

; in: JSON-CLASS TRANSACTION-RESULT
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::TRANSACTION-RESULT NIL
;      ((BITCOIN-RPC/CLASSES::TRANSACTION-IDENTIFIER "txid" :STRING :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-IDENTIFIER :DOCUMENTATION
;        "The transaction hash in hex")
;       (BITCOIN-RPC/CLASSES::OTHER-WITNESS-TRANSACTION-IDENTIFIER "other-wtxid"
;        :STRING :READER BITCOIN-RPC/CLASSES::OTHER-WITNESS-TRANSACTION-IDENTIFIER
;        :REQUIRED NIL :DOCUMENTATION
;        "The wtxid of a different transaction with the same txid but different witness found in the mempool. This means the submitted transaction was ignored.")
;       (BITCOIN-RPC/CLASSES::VIRTUAL-TRANSACTION-SIZE "vsize" :NUMBER :READER
;        BITCOIN-RPC/CLASSES::VIRTUAL-TRANSACTION-SIZE :DOCUMENTATION
;        "Virtual transaction size as defined in BIP 141.")
;       ("fees" BITCOIN-RPC/CLASSES::TRANSACTION-RESULT-FEES :READER
;        BITCOIN-RPC/CLASSES::TRANSACTION-RESULT-FEES :DOCUMENTATION
;        "Transaction fees")))
; 
; note: deleting unreachable code

; in: JSON-CLASS TRANSACTION-RESULT-FEES
;     (OPENAPI-GENERATOR::JSON-CLASS BITCOIN-RPC/CLASSES::TRANSACTION-RESULT-FEES
;      NIL
;      (("base" :NUMBER :READER BITCOIN-RPC/CLASSES:BASE :DOCUMENTATION
;        "transaction fee in BTC")
;       ("effective-feerate" :NUMBER :READER BITCOIN-RPC/CLASSES::EFFECTIVE-FEERATE
;        :REQUIRED NIL :DOCUMENTATION
;        "if the transaction was not already in the mempool, the effective feerate in BTC per KvB. For example, the package feerate and/or feerate with modified fees from prioritisetransaction.")
;       ("effective-includes" (:LIST :STRING) :READER
;        BITCOIN-RPC/CLASSES::EFFECTIVE-INCLUDES :REQUIRED NIL :DOCUMENTATION
;        "if effective-feerate is provided, the wtxids of the transactions whose fees and vsizes are included in effective-feerate.")))
; 
; note: deleting unreachable code
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=3141071 "main thread" RUNNING {103FEE0093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "bitcoin-rpc" "src" "classes">

Backtrace for: #<SB-THREAD:THREAD tid=3141071 "main thread" RUNNING {103FEE0093}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100E9FF1D3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100E9FF1D3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100E9FF1D3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "bitcoin-rpc" "src" "classes">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "bitcoin-rpc" "src" "classes">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "bitcoin-rpc" "src" "classes">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "bitcoin-rpc" "src" "classes">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1004677843}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1004677843}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "bitcoin-rpc"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "bitcoin-rpc">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "bitcoin-rpc">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "bitcoin-rpc")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "bitcoin-rpc") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100468B7AB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100464E98B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "bitcoin-rpc") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "bitcoin-rpc" "bitcoin-rpc")
23: (DEPCHECK::MAGIC "bitcoin-rpc" "bitcoin-rpc" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-HPb91c9D/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "bitcoin-rpc" "bitcoin-rpc" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-HPb91c9D/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-HPb91c9D/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::%START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 108 ERROR conditions
;   caught 4 STYLE-WARNING conditions
;   printed 211 notes
bitcoin-rpc

bitcoin-rpc/test-system

bitcoin-rpc
