CI
failure
push
81b03ba
ci.ymlrefs/heads/fix-runner-job-timeout
3991819366
build
failureghcr.io/atgreen/fedora-cave-builder:latest
success
Check out the repo
success
Install dependenciesocicl install && find
ocicl -exec touch -d @1 {} +
time="2026-06-30T14:43:07Z" level=warning msg="Using cgroups-v1 which is deprecated in favor of cgroups-v2 with Podman v5 and will be removed in a future version. Set environment variable `PODMAN_IGNORE_CGROUPSV1_WARNING` to hide this warning." time="2026-06-30T14:43:07Z" level=warning msg="Using cgroups-v1 which is deprecated in favor of cgroups-v2 with Podman v5 and will be removed in a future version. Set environment variable `PODMAN_IGNORE_CGROUPSV1_WARNING` to hide this warning." ; downloaded access from ghcr.io/ocicl/access@sha256:96f4ea8a447a99bf4e94de86b2134e1167d45c7a1ca961e986931f06930f1bbd ; downloaded ag-grpc from ghcr.io/ocicl/ag-proto-cli@sha256:12269ab34e6e93c2928b7b0a7aa7eecc29e902744b48f4f76e7fbe112f98dcd7 ; downloaded alexandria from ghcr.io/ocicl/alexandria@sha256:e433c2e076ed3bcf8641b97b00192680db2201d305efac9293539dee88c7fbf7 ; downloaded anaphora from ghcr.io/ocicl/anaphora@sha256:55f1c61b7826c5451a60b4b4522e35e770504bbfa2036d8becbf21f6d654925a ; downloaded arnesi from ghcr.io/ocicl/arnesi@sha256:2608e157cb9628c624dd0f8ca41b74a87558a5f6ec56b70c330e3621b6e8063e ; downloaded array-utils from ghcr.io/ocicl/array-utils@sha256:a74a7050591fc003ec9c35f1de8f41a5c8ac1a6157ced767ed6e5a73c2596cbf ; downloaded assoc-utils from ghcr.io/ocicl/assoc-utils@sha256:2518d63b253803d35c0c186a4a7801476efc678045c3027252b2e4bfdd4a324b ; downloaded autoload from ghcr.io/ocicl/mgl-pax-bootstrap@sha256:1c15644701ad5b8e441b2724c265c995437052beb52322c447816c3cc17c564a ; downloaded babel from ghcr.io/ocicl/babel@sha256:9d9fcde71acc2b5c39572de4f11756a08c1d8801caa86c581b85dabaa35928b3 ; downloaded binascii from ghcr.io/ocicl/binascii@sha256:b7bd7c34581d9b8a5f86716fe4ca2c8e6aa2f69887b3be494bb813b809ae7cbe ; downloaded bobbin from ghcr.io/ocicl/bobbin@sha256:7368d88e9f1d8a94b9bddf5e1887e384ef738235570142dd1cfe98c90077cc13 ; downloaded bordeaux-threads from ghcr.io/ocicl/bordeaux-threads@sha256:bbb32afe3987e102149cc019f4f7366a05f7a37d1503f5f86a27745e671c320a ; downloaded cffi from ghcr.io/ocicl/cffi@sha256:f30662b8a763bd0aff4c0410a5d287aa2c075040a8e5b27007eaa5ea2b70cf02 ; downloaded chipz from ghcr.io/ocicl/chipz@sha256:fae0fae0c93199ba57c92d9102245a55c8a2c12af4442e0b141d5670bef4f2f0 ; downloaded chunga from ghcr.io/ocicl/chunga@sha256:a2558d54ac5d4ccdbf49d7b51fcb074762d77e263ec67245f6d2928477b6d19a ; downloaded cl-annot from ghcr.io/ocicl/cl-annot@sha256:611a41daa8943d3a6c29c21b1ebf8459d70fc69ccc73203b6fa58bf333901bed ; downloaded cl-base64 from ghcr.io/ocicl/cl-base64@sha256:702412dbc1ed825e275fb23e22c29527eb786bf644e47c7621bf0dbb34e17c7e ; downloaded cl-bcrypt from ghcr.io/ocicl/cl-bcrypt@sha256:db5ce414ac3d0933152fcd069a906000a26c96a7a4ff46a3ab7efe2dbf001dac ; downloaded cl-commonmark from ghcr.io/ocicl/cl-commonmark@sha256:d9fac9deb32e5e6309cd46793d97c4a8ba2820898789b8ef8f8cbffd00b49ba4 ; downloaded cl-cookie from ghcr.io/ocicl/cl-cookie@sha256:2c3efe5b8518a09dcca46c2180593e75c02a0c8b45583a7549b916a2f2fb023d ; downloaded cl-dotenv from ghcr.io/ocicl/cl-dotenv@sha256:0066c93266d78191d40cb418139113fc843e681c453297d1537cf1a38bcd05d2 ; downloaded cl-fad from ghcr.io/ocicl/cl-fad@sha256:c0aaffc859e419e0a94cedb08f48c2484da404363fb0fe4ffd6e09a80aadafe1 ; downloaded cl-json from ghcr.io/ocicl/cl-json@sha256:54c4d00901c2c5b0ea9da11eed8f0104fc5819e1ed9a29d1f3364503a720a868 ; downloaded cl-locale from ghcr.io/ocicl/cl-locale@sha256:a410538c27a064067089d503f962961480691e6a8bd8634b6002bd5988f5248f ; downloaded cl-postgres from ghcr.io/ocicl/postmodern@sha256:1575078171b7d86645e492318b5917a578371d1125786f4f43101169e4857cdd ; downloaded cl-postgres+local-time from ghcr.io/ocicl/local-time@sha256:15dc0e56d0ff55bd2a3c597e67be1c26bd0677c230a15ad5098c5207a9df5554 ; downloaded cl-ppcre from ghcr.io/ocicl/cl-ppcre@sha256:bf073924cf4fd5957a4fd961a95d446ed0e53fa32a5002cbd2d52182874f45e5 ; downloaded cl-qrencode from ghcr.io/ocicl/cl-qrencode@sha256:e581a36606e20879962b842eee5f14eea39ecfa253298e9597ebff44e613f93e ; downloaded cl-reexport from ghcr.io/ocicl/cl-reexport@sha256:c795feb3e3727a19e61797187eb31bac1e855b1332335d26752200a28e9b9da8 ; downloaded cl-slice from ghcr.io/ocicl/cl-slice@sha256:b96efc2a429aabbdf0ffe8f3b5446d08ae40d5f4d8e09acc2e7c5259d5ffaf8a ; downloaded cl-smtp from ghcr.io/ocicl/cl-smtp@sha256:214ff22f910dcfff454a10db22c67a0e9d5a7be0ea0e547e27c7efa2cdf5401d ; downloaded cl-syntax from ghcr.io/ocicl/cl-syntax@sha256:5e2dfa6f354429f2552510032fe7994011d78be0c96ce434e2b88e6b9348a380 ; downloaded cl-utilities from ghcr.io/ocicl/cl-utilities@sha256:e5e0676a4e0627332a0fe64d56ed4f1890f0466d715a11e8d95561b4c2baa38f ; downloaded clingon from ghcr.io/ocicl/clingon@sha256:519c73567f308b0eac75a4a4ba468a8b433184aa344eac2b79b8ab9f44b9db3c ; downloaded closer-mop from ghcr.io/ocicl/closer-mop@sha256:39ec579e68118a8be57a7882812ff31094a031f88b77f11cf4434a92261f1126 ; downloaded clss from ghcr.io/ocicl/clss@sha256:be439e8c90b3070c98206448a7ee867af9aecef97c1faf698e09fa3be4c0025a ; downloaded collectors from ghcr.io/ocicl/collectors@sha256:38e5f0b915e1ed7e49fc75c97749e3cdc4ce1ca8fbdaee1aa2131fb9b00582bf ; downloaded com.inuoe.jzon from ghcr.io/ocicl/com.inuoe.jzon@sha256:b0cfbc3d8fb3c09526d92575b40b13a68ad93be7edeb48fd69dcea053c5611a5 ; downloaded dexador from ghcr.io/ocicl/dexador@sha256:2e1ffc553039088c4ef9d30dc34f6b436fcccfa911340eb50f42199cd235394a ; downloaded djula from ghcr.io/ocicl/djula@sha256:74f6504107d5acd5213d509e4b2dcb62c3acba84d34b0f6f0a90e0d109cc22e3 ; downloaded documentation-utils from ghcr.io/ocicl/documentation-utils@sha256:b2a1b3f3bcd1a738af85ae2b0168d408c177661eab6d6bbebb254e394d983f54 ; downloaded drakma from ghcr.io/ocicl/drakma@sha256:31c746295d1308c7133f0b7cb64648513bc63c96db02ea8a36be37e32ee5ffe5 ; downloaded easy-routes from ghcr.io/ocicl/easy-routes@sha256:3dce450d2e8f85b3c2daccda49eb41fc22da658cfbd96fd0e02be4a1ea91adc4 ; downloaded fare-mop from ghcr.io/ocicl/fare-mop@sha256:e3b7e91313b69e03a1c553760731cb93629322994ac73da3a3d4bb44c7aafc1a ; downloaded fare-quasiquote from ghcr.io/ocicl/fare-quasiquote-readtable@sha256:0a692a32f79a22b70b98fc8d81a4cc5aebf106ea2f582b199d4bd264cfbeca0b ; downloaded fare-utils from ghcr.io/ocicl/fare-utils@sha256:8d96adf0d03ec8f3613ec56d5da94f18c82329df20d029c730e7c3745aee89e3 ; downloaded fast-http from ghcr.io/ocicl/fast-http@sha256:1eb91157b8adb9c46c7b80cd0078819d49d6ec397c7a7a072c94dbfab3271964 ; downloaded fast-io from ghcr.io/ocicl/fast-io@sha256:7ba35a0eddf00b3c25656b3c5a93e95460f6cb8f807afbc04ef4f50076d95aff ; downloaded flexi-streams from ghcr.io/ocicl/flexi-streams@sha256:95005b06a8a95c82780c75ead53810bcb273d07fcf5fe76b527f1856df9923f2 ; downloaded float-features from ghcr.io/ocicl/float-features@sha256:584413c7c013aa8bad9fc78360e25eb4030c4ad0936f589a5a7c04d33a5f5799 ; downloaded form-fiddle from ghcr.io/ocicl/form-fiddle@sha256:58b6cdf3909911b876fb8b240ae4e2cfa274acd93d78e2fc65d1d981a295ce0a ; downloaded frugal-uuid from ghcr.io/ocicl/frugal-uuid@sha256:93f42fd1d2533631fab7bd53d2d6c0ba842fdb678d8c157cdeebae1bdb70afbc ; downloaded fset from ghcr.io/ocicl/fset@sha256:06ed3b2b8e490fa5ddf01b23af08a5d0d5febf6633b982eab0f721f4cc3c8c15 ; downloaded gettext from ghcr.io/ocicl/gettext@sha256:ff132350df89f5fb7311acf2633480d5ccf715835920cd7530a36e3c0663f18a ; downloaded global-vars from ghcr.io/ocicl/global-vars@sha256:d197e871c9c9abc4bf31b1186f5fd28f0ca848ebe2e9dddf2d82ecee01dbdc65 ; downloaded hunchentoot from ghcr.io/ocicl/hunchentoot@sha256:1dbccc1f9770d3d8917ef87d71720b4ec7f2d6bebf24a3072afca478b00b4427 ; downloaded ieee-floats from ghcr.io/ocicl/ieee-floats@sha256:dcc1ef35f12ab6c611839a64338dc55a1c8e9b211274ffa8cbfd95d15b55c766 ; downloaded in-nomine from ghcr.io/ocicl/in-nomine@sha256:deec864294e9c9631e972bbf0c5a1452af17568dbe4920c6fb329861583ae252 ; downloaded inferior-shell from ghcr.io/ocicl/inferior-shell@sha256:7e0f0ddd1bf490f3caabc421acfd184c57759d8623918f0dadce54526e76a52d ; downloaded introspect-environment from ghcr.io/ocicl/introspect-environment@sha256:4fa482690dee130996f1d0f89b470e0e84c92f22caea7649d3b83ce3e49c78ba ; downloaded iolib from ghcr.io/ocicl/iolib@sha256:953f1cb142e647da50562d51eca562afc2c5b941b89ae622332b53c7dbed7e1b ; downloaded iparse from ghcr.io/ocicl/iparse@sha256:6c71dc826f98672ee86df5bab7420e9a9934e755cb2c5d60ec78b21ae6d5137e ; downloaded ironclad from ghcr.io/ocicl/ironclad@sha256:3117e5a26a3e94924074c3548c235a2b733609ed61a2731880ac9e31df55428b ; downloaded iterate from ghcr.io/ocicl/iterate@sha256:6950c55e3782d58cabbbb5753111a70d8cafab8348b7fd6f2143d9abeaab46fb ; downloaded jose from ghcr.io/ocicl/jose@sha256:18ba9617b7ddf58e23b52797b80e63ca8afaa7c5fb44f6671835e3c0639ef8f1 ; downloaded let-plus from ghcr.io/ocicl/let-plus@sha256:12fa3629348fa175a3313ed1f10511d44229a8b554bfa88d00a63ae67fb45f3b ; downloaded lisp-namespace from ghcr.io/ocicl/lisp-namespace@sha256:ae08006e0b267958c50160658c729c799c6e1c18d94eef83f2ce5cf6ab8bbd20 ; downloaded llog from ghcr.io/ocicl/llog@sha256:484c3f9c99316852e99bbaea37e43bcdcb09d2bff96bc483e7c8a1a57f78a77b ; downloaded log4cl from ghcr.io/ocicl/log4cl@sha256:bd33f6e5ad346892e852492e7101bc18d263f9ef2ba6192178568d1b20337112 ; downloaded lquery from ghcr.io/ocicl/lquery@sha256:6897d9868cfe82c91e1088a0a7ee00c1e97a1248eba25434d5ecdb1c51069606 ; downloaded md5 from ghcr.io/ocicl/md5@sha256:7d8a8d7af07a2bcbca05ad839555730a0e021c697bf13cc02279669c7a9b038b ; downloaded misc-extensions from ghcr.io/ocicl/misc-extensions@sha256:bffd02c8ba19a28ecc3b9a89a3e2639d51a6f856850b7c2cdfecb779738f53af ; downloaded mt19937 from ghcr.io/ocicl/mt19937@sha256:49c0a25a535cd22212343c67e17635b8e05675ad9cc20aa75ce75e35e842bbe3 ; downloaded named-readtables from ghcr.io/ocicl/named-readtables@sha256:55218b0807e4dafe93e4e143657ae10e183c6e2ef37dcc7998257a3a7e437ea1 ; downloaded parse-declarations-1.0 from ghcr.io/ocicl/parse-declarations-1.0@sha256:9305fa9624205b16fd1fc51cb1cc4282a18e50eee9ac75b66a14f6f2c5df9518 ; downloaded parse-number from ghcr.io/ocicl/parse-number@sha256:11f3f9f512871e1f96cea6b8260aa3610e34e8fd7272bbcdb210fd3c5dd8025c ; downloaded parser-combinators from ghcr.io/ocicl/parser-combinators@sha256:f670f440697b7c96c5388572b38c4117642af6009e8312abf6adcdc3cbd730f2 ; downloaded plump from ghcr.io/ocicl/plump@sha256:b1cc910915346bb6d7606ae37f1cb6dad3599efa9a6bd2f926d96c9d5c34cbc7 ; downloaded proc-parse from ghcr.io/ocicl/proc-parse@sha256:0880f9acb35eb9efbe1f77a981e36e84e8f29a22b14f680c7686eb381fa87bd6 ; downloaded pure-tls from ghcr.io/ocicl/pure-tls@sha256:42bc087ee7ea43e0002ddeeac81fc8f136172e5d778d4a67ec7fa2f7d92dacd9 ; downloaded puri from ghcr.io/ocicl/puri@sha256:b803fb9444eaf2c7053812e19d342d4ce6a05fd1880fa3a2a2f824769a6d58d2 ; downloaded quri from ghcr.io/ocicl/quri@sha256:e2559f91600e4895e115b42dde88fcaac3677f051335d73431888dcf7af99f95 ; downloaded rfc2388 from ghcr.io/ocicl/rfc2388@sha256:4190f6eb36b3b2f53def6eff56b44e76edf4086ada2feb6d88bb671a40fc9f70 ; downloaded routes from ghcr.io/ocicl/routes@sha256:e64fe3e85f8c0f19ada40f6cbda843f63ee73c705d5c243a2b8730b6308d664e ; downloaded salza2 from ghcr.io/ocicl/salza2@sha256:0f9d930524b469e1442372a6e12b26742d9e6a1144e6a455006943190d1ea71e ; downloaded sanitize-html from ghcr.io/ocicl/sanitize-html@sha256:67b8550dd0e4b284e8f91835d6730a7ad714408661ee11366257be300cc1a619 ; downloaded serapeum from ghcr.io/ocicl/serapeum@sha256:b41c8fb5e471e20bcd92f5aa41169da3a4da8de742ed9c428fcc4518ffa6d809 ; downloaded slynk from ghcr.io/ocicl/slynk@sha256:3571fd2a8da88873460baae3185e7b94c80699f2c3ac6dfe675180e9f246a41c ; downloaded smart-buffer from ghcr.io/ocicl/smart-buffer@sha256:b8d194f5881c415fd7f0099b88dfd9e2158405c2966de15c716b155a364bf0f7 ; downloaded spinneret from ghcr.io/ocicl/spinneret@sha256:fe119dd209d148480fbe7d4749d314ce3a33a381b1a7f2a2dde3fc195dcbc3f5 ; downloaded split-sequence from ghcr.io/ocicl/split-sequence@sha256:3a37662eedd99c42995587b9d443c4631f25c4c523091bcca31a27b880585b8e ; downloaded sqlite from ghcr.io/ocicl/sqlite@sha256:a7f80757e6ee13af06e2eeaeff1e079dba439d85ea5c7f68e262bccc40dcbd5c ; downloaded static-vectors from ghcr.io/ocicl/static-vectors@sha256:53e11e5689c3dbea6a3017760b55f052588003d774913539930ddc4330a69970 ; downloaded string-case from ghcr.io/ocicl/string-case@sha256:9db2d4160b76ce1ed9f754d12f679c665593a9a436177d36380a1a8a176ec16a ; downloaded symbol-munger from ghcr.io/ocicl/symbol-munger@sha256:1395ba1a080d708ec01f1ff69e75d0936ca370b9ce953b878b8a32d05a68ef84 ; downloaded trivia from ghcr.io/ocicl/trivia@sha256:51db74757bc31ceaf3a643914a8ffa87825799097dea4912650e6ac62bed5209 ; downloaded trivial-arguments from ghcr.io/ocicl/trivial-arguments@sha256:f143e340645594e6659347bbcfab442de74f6db65df24b20ef0e259e4e060a80 ; downloaded trivial-backtrace from ghcr.io/ocicl/trivial-backtrace@sha256:89a3138695bb767c50001402fad60dacfc1e867e4e3d3579cc6f636d3e29a51c ; downloaded trivial-clock from ghcr.io/ocicl/trivial-clock@sha256:0ae7b5e308e5af113b3eed90ca6d96171d229fb953626f90efefad7e75fac98a ; downloaded trivial-cltl2 from ghcr.io/ocicl/trivial-cltl2@sha256:69470b4f6469314799074b9d944050dc4bcb67d5cbb2ba32c7a8899bb492f04e ; downloaded trivial-features from ghcr.io/ocicl/trivial-features@sha256:e278e24d39060fc7d3715531b16ddd9ab7f93f22ade53e436c0b86dbae3aa065 ; downloaded trivial-file-size from ghcr.io/ocicl/trivial-file-size@sha256:dfe138877e024d36e51fa14b1bcabf11e99e5745baa42ef4f627438485030f5c ; downloaded trivial-garbage from ghcr.io/ocicl/trivial-garbage@sha256:a85dcf4110ad60ae9f6c70970acceb2bf12402ce5326891643d35506059afb1d ; downloaded trivial-gray-streams from ghcr.io/ocicl/trivial-gray-streams@sha256:d0cc9fb73876100ee60647524f98b5b22566fa1c3a985d79548b0d2b228f8b51 ; downloaded trivial-indent from ghcr.io/ocicl/trivial-indent@sha256:2969bd1dc3cefd22fd1b0c5aeec664d4217a2593fe03bb043d8b6958aabc8b2a ; downloaded trivial-macroexpand-all from ghcr.io/ocicl/trivial-macroexpand-all@sha256:b23da4c2e508efe2396ec8f721cb22b8a4c076b2f0aea014a09f69dfd716d7f8 ; downloaded trivial-mimes from ghcr.io/ocicl/trivial-mimes@sha256:a92350000c29520f98e349019917e9e6d283e5ff218361bae791fc5af9d17dcf ; downloaded trivial-types from ghcr.io/ocicl/trivial-types@sha256:6c7e66c7a2c7b190cf31a78597a1de81dc4d8190d0698416a1504b0d2cf3a2d9 ; downloaded trivial-utf-8 from ghcr.io/ocicl/trivial-utf-8@sha256:014e7fa0edd7f351c8b38c3247e0cdda438235bb8a086bb0f2bac08f78ef400d ; downloaded type-i from ghcr.io/ocicl/type-i@sha256:de5c3e7f7b72409c5ec49885eea8c6fe2e02def2846cf97f70c1c21f21a1567c ; downloaded uax-15 from ghcr.io/ocicl/uax-15@sha256:98286ee7b08a849dd2bb8992ab7c4cda7f429f25e8815939297979a49e4b3dad ; downloaded usher from ghcr.io/ocicl/usher@sha256:c2f9c322221c8a99a28fbf26e30234a10745959ad58c26155836d3b83e3d4c90 ; downloaded usocket from ghcr.io/ocicl/usocket@sha256:282856b819b22a4319ba30a15605ee934aa23292a471fd29ea4d3f2074b3f16d ; downloaded version-string from ghcr.io/ocicl/version-string@sha256:eb8f45786af7fd6f792aecada1f905870f1d79abfaee0ceb774a94824ad9b14f ; downloaded winhttp from ghcr.io/ocicl/winhttp@sha256:f4955086d194e6ae1665894da2149dac0ad850d95369f85fdda4d95cd06f3641 ; downloaded with-user-abort from ghcr.io/ocicl/with-user-abort@sha256:c19560034f9909a7afb4110b5efd939a9f1e829d9ef9887797b98679f290c480 ; downloaded xsubseq from ghcr.io/ocicl/xsubseq@sha256:7605d14f7cc7fd2f63190ad81fe7bd65daef105d6728ee6bb59baef49da2aa51 ; downloaded yacc from ghcr.io/ocicl/yacc@sha256:44452a8cbece9e1d132c2c37b95051b8ae7cdaee8c79257ec6b73949f1e28e7e ; downloaded zpng from ghcr.io/ocicl/zpng@sha256:0796acd47f4c7df74e4525060f77ce906a403030481baf8a46bb38621fb000da
success
List files (pre)ls
-l
time="2026-06-30T14:45:16Z" level=warning msg="Using cgroups-v1 which is deprecated in favor of cgroups-v2 with Podman v5 and will be removed in a future version. Set environment variable `PODMAN_IGNORE_CGROUPSV1_WARNING` to hide this warning." time="2026-06-30T14:45:16Z" level=warning msg="Using cgroups-v1 which is deprecated in favor of cgroups-v2 with Podman v5 and will be removed in a future version. Set environment variable `PODMAN_IGNORE_CGROUPSV1_WARNING` to hide this warning." total 200 -rw-r--r--. 1 root root 7492 Jun 30 14:43 CHANGELOG.md -rw-r--r--. 1 root root 6123 Jun 30 14:43 CLAUDE.md -rw-r--r--. 1 root root 1300 Jun 30 14:43 CODE_OF_CONDUCT.md -rw-r--r--. 1 root root 1616 Jun 30 14:43 CONTRIBUTING.md -rw-r--r--. 1 root root 1963 Jun 30 14:43 Containerfile -rw-r--r--. 1 root root 807 Jun 30 14:43 Containerfile.actions -rw-r--r--. 1 root root 1090 Jun 30 14:43 Containerfile.fix -rw-r--r--. 1 root root 1353 Jun 30 14:43 Containerfile.keycloak -rw-r--r--. 1 root root 2358 Jun 30 14:43 Containerfile.local -rw-r--r--. 1 root root 2206 Jun 30 14:43 Containerfile.runner -rw-r--r--. 1 root root 769 Jun 30 14:43 Containerfile.scan -rw-r--r--. 1 root root 798 Jun 30 14:43 Containerfile.zoekt -rw-r--r--. 1 root root 1075 Jun 30 14:43 LICENSE -rw-r--r--. 1 root root 9357 Jun 30 14:43 Makefile -rw-r--r--. 1 root root 33020 Jun 30 14:43 README.md -rw-r--r--. 1 root root 817 Jun 30 14:43 SECURITY.md -rwxr-xr-x. 1 root root 560 Jun 30 14:43 actions-entrypoint.sh -rw-r--r--. 1 root root 2116 Jun 30 14:43 cave-shell.sh -rw-r--r--. 1 root root 2739 Jun 30 14:43 cave.asd -rw-r--r--. 1 root root 593 Jun 30 14:43 cave.conf.example drwxr-xr-x. 4 root root 33 Jun 30 14:43 cli drwxr-xr-x. 3 root root 21 Jun 30 14:43 contrib drwxr-xr-x. 3 root root 56 Jun 30 14:43 deploy drwxr-xr-x. 4 root root 36 Jun 30 14:43 docs -rw-r--r--. 1 root root 3881 Jun 30 14:43 entrypoint.sh -rw-r--r--. 1 root root 69 Jun 30 14:43 go.mod -rw-r--r--. 1 root root 360 Jun 30 14:43 go.sum drwxr-xr-x. 3 root root 21 Jun 30 14:43 internal drwxr-xr-x. 3 root root 90 Jun 30 14:43 keycloak drwxr-xr-x. 3 root root 43 Jun 30 14:43 observability drwxr-xr-x. 121 root root 8192 Jan 1 1970 ocicl -rw-r--r--. 1 root root 35632 Jun 30 14:43 ocicl.csv -rw-r--r--. 1 root root 642 Jun 30 14:43 package.json -rw-r--r--. 1 root root 420 Jun 30 14:43 playwright.config.js drwxr-xr-x. 3 root root 37 Jun 30 14:43 releng drwxr-xr-x. 2 root root 4096 Jun 30 14:43 src drwxr-xr-x. 6 root root 70 Jun 30 14:43 static drwxr-xr-x. 2 root root 125 Jun 30 14:43 tests
running
Build Cavemake
cave-server cave cavectl
time="2026-06-30T14:45:18Z" level=warning msg="Using cgroups-v1 which is deprecated in favor of cgroups-v2 with Podman v5 and will be removed in a future version. Set environment variable `PODMAN_IGNORE_CGROUPSV1_WARNING` to hide this warning."
time="2026-06-30T14:45:18Z" level=warning msg="Using cgroups-v1 which is deprecated in favor of cgroups-v2 with Podman v5 and will be removed in a future version. Set environment variable `PODMAN_IGNORE_CGROUPSV1_WARNING` to hide this warning."
/usr/bin/sbcl --non-interactive --eval '(push (truename ".") asdf:*central-registry*)' --eval '(asdf:make :cave)'
This is SBCL 2.6.3-1.fc44, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.
SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.
WARNING: redefining PERFORM (#<STANDARD-CLASS ASDF/BUNDLE:IMAGE-OP> #<STANDARD-CLASS ASDF/SYSTEM:SYSTEM>) in DEFMETHOD
WARNING: System definition file #P"/workspace/ocicl/cl-fad-0.7.6/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/workspace/ocicl/cl-routes-20240503-1b79e85/routes.asd" contains definition for system "routes-test". Please only define "routes" and secondary systems with a name starting with "routes/" (e.g. "routes/test") in that file.
WARNING: System definition file #P"/workspace/ocicl/binascii-20240503-0fb0a9e/binascii.asd" contains definition for system "binascii-tests". Please only define "binascii" and secondary systems with a name starting with "binascii/" (e.g. "binascii/test") in that file.
WARNING: System definition file #P"/workspace/ocicl/trivial-utf-8-20240503-ba9b4ff/trivial-utf-8.asd" contains definition for system "trivial-utf-8-tests". Please only define "trivial-utf-8" and secondary systems with a name starting with "trivial-utf-8/" (e.g. "trivial-utf-8/test") in that file.
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/config.lisp" (written 30 JUN 2026 02:45:26 PM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/config-tmpGHU3ALSV.fasl
; compilation finished in 0:00:00.008
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/package.lisp" (written 30 JUN 2026 02:45:26 PM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/package-tmpAAURSO1.fasl
; compilation finished in 0:00:00.002
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/reload.lisp" (written 30 JUN 2026 02:45:26 PM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/reload-tmp5GEXGEG5.fasl
; compilation finished in 0:00:00.005
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/ffi.lisp" (written 30 JUN 2026 02:45:26 PM):
; file: /workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/ffi.lisp
; in: DEFMACRO DEFCFUN-LATE-BOUND
; (LENGTH CL+SSL::NAME-AND-OPTIONS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("SSLeay" CL+SSL::SSL-EAY)
; :LONG)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-EAY
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-EAY
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLeay" (:LONG) :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO)))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "1.1.0")
; ("OpenSSL_version_num" CL+SSL::OPENSSL-VERSION-NUM)
; :LONG)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-VERSION-NUM
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::OPENSSL-VERSION-NUM
; (CFFI-SYS:%FOREIGN-FUNCALL "OpenSSL_version_num" (:LONG) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: DEFUN ENCODE-OPENSSL-VERSION-IMPL
; (POSITION CL+SSL::PATCH CL+SSL::+OPENSSL-VERSION-PATCH-CHARACTERS+)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR LIST VECTOR).
; (POSITION CL+SSL::STATUS CL+SSL::+OPENSSL-VERSION-STATUS-STRINGS+ :TEST
; #'STRING=)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR LIST VECTOR).
; (LOGIOR (ASH CL+SSL::MAJOR 28) (ASH CL+SSL::MINOR 20) (ASH CL+SSL::FIX 12)
; (ASH CL+SSL::PATCH-INT 4) CL+SSL::STATUS-INT)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64).
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 64)
; &OPTIONAL).
; etc.
; in: DEFUN ENCODE-OPENSSL-VERSION
; (>= CL+SSL::MAJOR 3)
;
; 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.
; in: DEFUN OPENSSL-IS-AT-LEAST
; (>= (CL+SSL::COMPAT-OPENSSL-VERSION)
; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR
; CL+SSL::PATCH-OR-FIX))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; in: DEFUN OPENSSL-IS-NOT-EVEN
; (< (CL+SSL::COMPAT-OPENSSL-VERSION)
; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR
; CL+SSL::PATCH-OR-FIX))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
; in: DEFUN LIBRESSLP
; (= 536870912 (CL+SSL::COMPAT-OPENSSL-VERSION))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; in: DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_get_version" CL+SSL::SSL-GET-VERSION)
; :STRING
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET
; ==>
; (CFFI:TRANSLATE-FROM-FOREIGN
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_version" (:POINTER #:G1 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
;
; note: doing SAP to pointer coercion (cost 20)
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("SSLv23_client_method" CL+SSL::SSL-V23-CLIENT-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-CLIENT-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V23-CLIENT-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_client_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("SSLv23_server_method" CL+SSL::SSL-V23-SERVER-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-SERVER-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V23-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_server_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("SSLv23_method" CL+SSL::SSL-V23-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V23-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("SSLv3_client_method" CL+SSL::SSL-V3-CLIENT-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-CLIENT-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V3-CLIENT-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_client_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("SSLv3_server_method" CL+SSL::SSL-V3-SERVER-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-SERVER-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V3-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_server_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("SSLv3_method" CL+SSL::SSL-V3-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-V3-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_method" (:POINTER) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("TLSv1_client_method" CL+SSL::SSL-TLSV1-CLIENT-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-CLIENT-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-CLIENT-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_client_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("TLSv1_server_method" CL+SSL::SSL-TLSV1-SERVER-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-SERVER-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_server_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("TLSv1_method" CL+SSL::SSL-TLSV1-METHOD)
; CL+SSL::SSL-METHOD)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_method" (:POINTER) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.0.2")
; ("TLSv1_1_client_method" CL+SSL::SSL-TLSV1-1-CLIENT-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-CLIENT-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-1-CLIENT-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_client_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.0.2")
; ("TLSv1_1_server_method" CL+SSL::SSL-TLSV1-1-SERVER-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-SERVER-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-1-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_server_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.0.2")
; ("TLSv1_1_method" CL+SSL::SSL-TLSV1-1-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-1-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.0.2")
; ("TLSv1_2_client_method" CL+SSL::SSL-TLSV1-2-CLIENT-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-CLIENT-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-2-CLIENT-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_client_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.0.2")
; ("TLSv1_2_server_method" CL+SSL::SSL-TLSV1-2-SERVER-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-SERVER-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-2-SERVER-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_server_method" (:POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.0.2")
; ("TLSv1_2_method" CL+SSL::SSL-TLSV1-2-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-TLSV1-2-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_method" (:POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "1.1.0")
; ("TLS_method" CL+SSL::TLS-METHOD)
; CL+SSL::SSL-METHOD)
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::TLS-METHOD
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::TLS-METHOD
; (CFFI-SYS:%FOREIGN-FUNCALL "TLS_method" (:POINTER) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL)))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_new" CL+SSL::SSL-CTX-NEW)
; CL+SSL::SSL-CTX
; (METHOD CL+SSL::SSL-METHOD))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-NEW
; (METHOD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-NEW
; (LET ((#:G1 METHOD))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_new" (:POINTER #:G1 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_new" CL+SSL::SSL-NEW)
; CL+SSL::SSL-POINTER
; (CL+SSL::CTX CL+SSL::SSL-CTX))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-NEW
; (CL+SSL::CTX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-NEW
; (LET ((#:G1 CL+SSL::CTX))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_new" (:POINTER #:G1 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("BIO_ctrl" CL+SSL::BIO-SET-FD)
; :LONG
; (CL+SSL::BIO :POINTER)
; (CL+SSL::CMD :INT)
; (CL+SSL::LARG :LONG)
; (CL+SSL::PARG :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-FD
; (CL+SSL::BIO CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-SET-FD
; (LET ((#:G1 CL+SSL::BIO))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("BIO_new_socket" CL+SSL::BIO-NEW-SOCKET)
; :POINTER
; (CL+SSL::FD :INT)
; (CL+SSL::CLOSE-FLAG :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW-SOCKET
; (CL+SSL::FD CL+SSL::CLOSE-FLAG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-NEW-SOCKET
; (LET ((#:G1 CL+SSL::FD))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new_socket" # :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("BIO_new" CL+SSL::BIO-NEW)
; :POINTER
; (METHOD :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW
; (METHOD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-NEW
; (LET ((#:G1 METHOD))
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new" (:POINTER #:G1 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("BIO_free" BIO-FREE)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("BIO_free" CL+SSL::BIO-FREE)
; :POINTER
; (METHOD :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-FREE
; (METHOD)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-FREE
; (LET ((#:G1 METHOD))
; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_free" (:POINTER #:G1 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "1.1.0")
; ("BIO_meth_new" CL+SSL::BIO-METH-NEW)
; :POINTER
; (TYPE :INT)
; (CL+SSL::NAME :STRING))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-METH-NEW
; (TYPE CL+SSL::NAME)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::BIO-METH-NEW
; (LET ((#:G0 TYPE))
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME #)
; (UNWIND-PROTECT # #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ERR_get_error" CL+SSL::ERR-GET-ERROR)
; :UNSIGNED-LONG)
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ERR-GET-ERROR
; NIL
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ERR-GET-ERROR
; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_get_error" (:UNSIGNED-LONG) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ERR_error_string" CL+SSL::ERR-ERROR-STRING)
; :STRING
; (CL+SSL::E :UNSIGNED-LONG)
; (CL+SSL::BUF :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET
; --> LET
; ==>
; (CFFI:TRANSLATE-FROM-FOREIGN
; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_error_string"
; (:UNSIGNED-LONG #:G1 :POINTER #:G2 :POINTER)
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO)
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
;
; note: doing SAP to pointer coercion (cost 20)
; in: DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_CTX_ctrl" CL+SSL::SSL-CTX-CTRL)
; :LONG
; (CL+SSL::CTX CL+SSL::SSL-CTX)
; (CL+SSL::CMD :INT)
; (CL+SSL::LARG :UNSIGNED-LONG)
; (CL+SSL::PARG :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-CTRL
; (CL+SSL::CTX CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-CTRL
; (LET ((#:G1 CL+SSL::CTX))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_ctrl" CL+SSL::SSL-CTRL)
; :LONG
; (CL+SSL::SSL :POINTER)
; (CL+SSL::CMD :INT)
; (CL+SSL::LARG :LONG)
; (CL+SSL::PARG :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTRL
; (CL+SSL::SSL CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTRL
; (LET ((#:G1 CL+SSL::SSL))
; (LET (#)
; (LET #
; #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: DEFUN SSL-CTX-SET-OPTIONS
; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-OPTIONS+ CL+SSL::OPTIONS
; (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; in: DEFUN SSL-CTX-SET-MIN-PROTO-VERSION
; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-SET-MIN-PROTO-VERSION+
; CL+SSL::VERSION (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; in: DEFUN SSL-CTX-SET-MAX-PROTO-VERSION
; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-SET-MAX-PROTO-VERSION+
; CL+SSL::VERSION (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; in:
; DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_load_client_CA_file" CL+SSL::SSL-LOAD-CLIENT-CA-FILE)
; CL+SSL::SSL-POINTER
; (CL+SSL::FILE :STRING))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LOAD-CLIENT-CA-FILE
; (CL+SSL::FILE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-LOAD-CLIENT-CA-FILE
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::FILE
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; (UNWIND-PROTECT (PROGN #)
; (CFFI:FREE-TRANSLATED-OBJECT #:G1 # #:PARAM2)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT)
; (CL+SSL::DEFINE-SSL-FUNCTION
; ("SSL_get_verify_result" CL+SSL::SSL-GET-VERIFY-RESULT)
; :LONG
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-VERIFY-RESULT
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET-VERIFY-RESULT
; (LET ((#:G1 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_verify_result"
; (:POINTER #:G1 :LONG) :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBSSL))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "3.0.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "3.0.0")
; ("SSL_get_peer_certificate" CL+SSL::SSL-GET-PEER-CERTIFICATE)
; :POINTER
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-PEER-CERTIFICATE
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET-PEER-CERTIFICATE
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_peer_certificate"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION-EX (:SINCE "3.0.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:SINCE "3.0.0")
; ("SSL_get1_peer_certificate" CL+SSL::SSL-GET1-PEER-CERTIFICATE)
; :POINTER
; (CL+SSL::SSL CL+SSL::SSL-POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET1-PEER-CERTIFICATE
; (CL+SSL::SSL)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-GET1-PEER-CERTIFICATE
; (LET ((#:G0 CL+SSL::SSL))
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get1_peer_certificate"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_oneline" CL+SSL::X509-NAME-ONELINE)
; :POINTER
; (CL+SSL::X509-NAME :POINTER)
; (CL+SSL::BUF :POINTER)
; (CL+SSL::SIZE :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ONELINE
; (CL+SSL::X509-NAME CL+SSL::BUF CL+SSL::SIZE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-ONELINE
; (LET ((#:G1 CL+SSL::X509-NAME))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_get_entry" CL+SSL::X509-NAME-GET-ENTRY)
; :POINTER
; (CL+SSL::NAME :POINTER)
; (LOG :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-GET-ENTRY
; (CL+SSL::NAME LOG)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-GET-ENTRY
; (LET ((#:G1 CL+SSL::NAME))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_get_entry" # :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_NAME_ENTRY_get_data" CL+SSL::X509-NAME-ENTRY-GET-DATA)
; :POINTER
; (CL+SSL::NAME-ENTRY :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ENTRY-GET-DATA
; (CL+SSL::NAME-ENTRY)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-NAME-ENTRY-GET-DATA
; (LET ((#:G1 CL+SSL::NAME-ENTRY))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_ENTRY_get_data"
; (:POINTER #:G1 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_get_issuer_name" CL+SSL::X509-GET-ISSUER-NAME)
; :POINTER
; (CL+SSL::X509 :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-ISSUER-NAME
; (CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET-ISSUER-NAME
; (LET ((#:G1 CL+SSL::X509))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_issuer_name"
; (:POINTER #:G1 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in:
; DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_get_subject_name" CL+SSL::X509-GET-SUBJECT-NAME)
; :POINTER
; (CL+SSL::X509 :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-SUBJECT-NAME
; (CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET-SUBJECT-NAME
; (LET ((#:G1 CL+SSL::X509))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_subject_name"
; (:POINTER #:G1 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "1.1.0")
; ("X509_get0_notBefore" CL+SSL::X509-GET0-NOT-BEFORE)
; :POINTER
; (CL+SSL::X509 :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-BEFORE
; (CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET0-NOT-BEFORE
; (LET ((#:G0 CL+SSL::X509))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notBefore"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "1.1.0")
; ("X509_get0_notAfter" CL+SSL::X509-GET0-NOT-AFTER)
; :POINTER
; (CL+SSL::X509 :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-AFTER
; (CL+SSL::X509)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET0-NOT-AFTER
; (LET ((#:G0 CL+SSL::X509))
; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notAfter"
; (:POINTER #:G0 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("X509_get_ext_d2i" CL+SSL::X509-GET-EXT-D2I)
; :POINTER
; (CL+SSL::CERT :POINTER)
; (CL+SSL::NID :INT)
; (CL+SSL::CRIT :POINTER)
; (CL+SSL::IDX :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-EXT-D2I
; (CL+SSL::CERT CL+SSL::NID CL+SSL::CRIT CL+SSL::IDX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::X509-GET-EXT-D2I
; (LET ((#:G1 CL+SSL::CERT))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("d2i_X509" CL+SSL::D2I-X509)
; :POINTER
; (CL+SSL::*PX :POINTER)
; (CL+SSL::IN :POINTER)
; (CL+SSL::LEN :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::D2I-X509
; (CL+SSL::*PX CL+SSL::IN CL+SSL::LEN)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::D2I-X509
; (LET ((#:G1 CL+SSL::*PX))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("PEM_read_bio_X509" PEM-READ-X509)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("PEM_read_bio_X509" CL+SSL::PEM-READ-X509)
; :POINTER
; (CL+SSL::BIO :POINTER)
; (CL+SSL::X509 :INT)
; (CL+SSL::CALLBACK :INT)
; (CL+SSL::PASSPHRASE :INT))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::PEM-READ-X509
; (CL+SSL::BIO CL+SSL::X509 CL+SSL::CALLBACK CL+SSL::PASSPHRASE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::PEM-READ-X509
; (LET ((#:G1 CL+SSL::BIO))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in:
; DEFINE-CRYPTO-FUNCTION ("EVP_get_digestbyname" EVP-GET-DIGEST-BY-NAME)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("EVP_get_digestbyname" CL+SSL::EVP-GET-DIGEST-BY-NAME)
; :POINTER
; (CL+SSL::NAME :STRING))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::EVP-GET-DIGEST-BY-NAME
; (CL+SSL::NAME)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::EVP-GET-DIGEST-BY-NAME
; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2)
; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME
; #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
; (UNWIND-PROTECT (PROGN #)
; (CFFI:FREE-TRANSLATED-OBJECT #:G1 # #:PARAM2)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("sk_value" CL+SSL::SK-VALUE)
; :POINTER
; (CL+SSL::STACK :POINTER)
; (CL+SSL::INDEX :INT))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-VALUE
; (CL+SSL::STACK CL+SSL::INDEX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-VALUE
; (LET ((#:G0 CL+SSL::STACK))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "sk_value" # :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0")
; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX
; (:SINCE "1.1.0")
; ("OPENSSL_sk_value" CL+SSL::OPENSSL-SK-VALUE)
; :POINTER
; (CL+SSL::STACK :POINTER)
; (CL+SSL::INDEX :INT))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-SK-VALUE
; (CL+SSL::STACK CL+SSL::INDEX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::OPENSSL-SK-VALUE
; (LET ((#:G0 CL+SSL::STACK))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "OPENSSL_sk_value" # :CONVENTION :CDECL
; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFUN SK-GENERAL-NAME-VALUE
; (DEFUN CL+SSL::SK-GENERAL-NAME-VALUE (CL+SSL::NAMES CL+SSL::INDEX)
; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)
; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-VALUE
; (CL+SSL::NAMES CL+SSL::INDEX)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-GENERAL-NAME-VALUE
; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)
; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX))))
;
; note: Type assertion too complex to check efficiently:
; (VALUES SB-SYS:SYSTEM-AREA-POINTER &REST T).
; It allows an unknown number of values, consider using
; (VALUES SB-SYS:SYSTEM-AREA-POINTER &OPTIONAL).
; in: DEFUN SK-GENERAL-NAME-NUM
; (DEFUN CL+SSL::SK-GENERAL-NAME-NUM (CL+SSL::NAMES)
; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES)
; (CL+SSL::SK-NUM CL+SSL::NAMES)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-NUM
; (CL+SSL::NAMES)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SK-GENERAL-NAME-NUM
; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1))
; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES)
; (CL+SSL::SK-NUM CL+SSL::NAMES))))
;
; note: Type assertion too complex to check efficiently:
; (VALUES FIXNUM &REST T).
; It allows an unknown number of values, consider using
; (VALUES FIXNUM &OPTIONAL).
; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("ASN1_STRING_data" CL+SSL::ASN1-STRING-DATA)
; :POINTER
; (CL+SSL::ASN1-STRING :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-DATA
; (CL+SSL::ASN1-STRING)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::ASN1-STRING-DATA
; (LET ((#:G1 CL+SSL::ASN1-STRING))
; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_data"
; (:POINTER #:G1 :POINTER) :CONVENTION
; :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBCRYPTO))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY)
; (CL+SSL::DEFINE-CRYPTO-FUNCTION
; ("RSA_generate_key" CL+SSL::RSA-GENERATE-KEY)
; :POINTER
; (CL+SSL::NUM :INT)
; (CL+SSL::E :UNSIGNED-LONG)
; (CL+SSL::CALLBACK :POINTER)
; (CL+SSL::OPT :POINTER))
; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::RSA-GENERATE-KEY
; (CL+SSL::NUM CL+SSL::E CL+SSL::CALLBACK CL+SSL::OPT)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::RSA-GENERATE-KEY
; (LET ((#:G1 CL+SSL::NUM))
; (LET (#)
; (LET #
; #)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0")
; (CL+SSL::DEFINE-SSL-FUNCTION-EX
; (:VANISHED "1.1.0")
; ("SSL_CTX_set_tmp_rsa_callback" CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK)
; :POINTER
; (CL+SSL::CTX :POINTER)
; (CL+SSL::CALLBACK :POINTER))
; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK
; (CL+SSL::CTX CL+SSL::CALLBACK)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (BLOCK CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK
; (LET ((#:G0 CL+SSL::CTX))
; (LET (#)
; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_tmp_rsa_callback" #
; :CONVENTION :CDECL :LIBRARY
; CL+SSL/CONFIG::LIBSSL)))))
;
; note: doing SAP to pointer coercion (cost 20) to "<return value>"
; in: DEFUN SSL-CTX-SET-SESSION-CACHE-MODE
; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL_CTRL_SET_SESS_CACHE_MODE+
; CL+SSL::MODE (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/ffi-tmpAR3FSGEY.fasl
; compilation finished in 0:00:00.290
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/bio.lisp" (written 30 JUN 2026 02:45:26 PM):
; file: /workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/bio.lisp
; in: CFFI:DEFCALLBACK LISP-WRITE
; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
;
; note: doing SAP to pointer coercion (cost 20)
; in: CFFI:DEFCALLBACK LISP-READ
; (CFFI:DEFCALLBACK CL+SSL::LISP-READ
; :INT
; ((CL+SSL::BIO :POINTER) (CL+SSL::BUF :POINTER) (CL+SSL::N :INT))
; (HANDLER-CASE
; (LET ((CL+SSL::I 0))
; (HANDLER-CASE (PROGN # # #) (END-OF-FILE NIL #))
; (IF (= 0 CL+SSL::I)
; -1
; CL+SSL::I))
; (SERIOUS-CONDITION (CL+SSL::C) (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) -1)))
; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE
; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE
; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF
; --> SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY
; ==>
; (LET ((CL+SSL::BIO CL+SSL::BIO)
; (CL+SSL::BUF CL+SSL::BUF)
; (CL+SSL::N CL+SSL::N))
; (BLOCK CL+SSL::LISP-READ
; (HANDLER-CASE
; (LET (#)
; (HANDLER-CASE # #)
; (IF #
; -1
; CL+SSL::I))
; (SERIOUS-CONDITION (CL+SSL::C) (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) -1))))
;
; note: doing SAP to pointer coercion (cost 20) to BIO
; in: CFFI:DEFCALLBACK LISP-GETS
; (CFFI:DEFCALLBACK CL+SSL::LISP-GETS
; :INT
; ((CL+SSL::BIO :POINTER) (CL+SSL::BUF :POINTER) (CL+SSL::N :INT))
; (HANDLER-CASE
; (LET ((CL+SSL::I 0) (CL+SSL::MAX-CHARS #))
; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
; (HANDLER-CASE
; (LOOP CL+SSL::WITH CHAR
; AND CL+SSL::EXIT = NIL
; CL+SSL::WHILE #
; DO # # ...)
; (END-OF-FILE NIL #))
; (SETF # 0)
; CL+SSL::I)
; (SERIOUS-CONDITION (CL+SSL::C) (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) -1)))
; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE
; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE
; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF
; --> SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY
; ==>
; (LET ((CL+SSL::BIO CL+SSL::BIO)
; (CL+SSL::BUF CL+SSL::BUF)
; (CL+SSL::N CL+SSL::N))
; (BLOCK CL+SSL::LISP-GETS
; (HANDLER-CASE
; (LET (# #)
; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
; (HANDLER-CASE # #)
; (SETF #)
; CL+SSL::I)
; (SERIOUS-CONDITION (CL+SSL::C) (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) -1))))
;
; note: doing SAP to pointer coercion (cost 20) to BIO
; in: CFFI:DEFCALLBACK LISP-PUTS
; (CFFI:DEFCALLBACK CL+SSL::LISP-PUTS
; :INT
; ((CL+SSL::BIO :POINTER) (CL+SSL::BUF :STRING))
; (HANDLER-CASE
; (PROGN
; (WRITE-LINE CL+SSL::BUF
; (FLEXI-STREAMS:MAKE-FLEXI-STREAM CL+SSL::*BIO-SOCKET*
; :EXTERNAL-FORMAT :ASCII))
; (1+ (LENGTH CL+SSL::BUF)))
; (SERIOUS-CONDITION (CL+SSL::C) (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) -1)))
; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE
; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE
; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF
; --> SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY LET
; ==>
; (CFFI:TRANSLATE-FROM-FOREIGN CL+SSL::BUF #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)
;
; note: doing SAP to pointer coercion (cost 20)
; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
;
; note: doing SAP to pointer coercion (cost 20)
; in: CFFI:DEFCALLBACK LISP-CTRL
; (ZEROP (CL+SSL::COMPAT-BIO-TEST-FLAGS CL+SSL::BIO CL+SSL::+BIO_FLAGS_IN_EOF+))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (CL+SSL::COMPAT-BIO-TEST-FLAGS CL+SSL::BIO CL+SSL::+BIO_FLAGS_IN_EOF+)
;
; note: doing SAP to pointer coercion (cost 20)
; in: CFFI:DEFCALLBACK LISP-CREATE-OPAQUE
; (CFFI:DEFCALLBACK CL+SSL::LISP-CREATE-OPAQUE
; :INT
; ((CL+SSL::BIO :POINTER))
; (HANDLER-CASE
; (PROGN
; (CL+SSL::BIO-SET-INIT CL+SSL::BIO 1)
; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
; 1)
; (SERIOUS-CONDITION (CL+SSL::C)
; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) 0)))
; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE
; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE
; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF
; --> SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY
; ==>
; (LET ((CL+SSL::BIO CL+SSL::BIO))
; (BLOCK CL+SSL::LISP-CREATE-OPAQUE
; (HANDLER-CASE
; (PROGN
; (CL+SSL::BIO-SET-INIT CL+SSL::BIO 1)
; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO)
; 1)
; (SERIOUS-CONDITION (CL+SSL::C)
; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) 0))))
;
; note: doing SAP to pointer coercion (cost 20) to BIO
; in: CFFI:DEFCALLBACK LISP-DESTROY-OPAQUE
; (CFFI:DEFCALLBACK CL+SSL::LISP-DESTROY-OPAQUE
; :INT
; ((CL+SSL::BIO :POINTER))
; (HANDLER-CASE
; (COND ((CFFI-SYS:NULL-POINTER-P CL+SSL::BIO) 0)
; (T (CL+SSL::BIO-SET-INIT CL+SSL::BIO 0)
; (CL+SSL::CLEAR-RETRY-FLAGS CL+SSL::BIO) 1))
; (SERIOUS-CONDITION (CL+SSL::C)
; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) 0)))
; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE
; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE
; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF
; --> SB-C::WITH-SOURCE-FORM DEREF LET* THE LOCALLY
; ==>
; (LET ((CL+SSL::BIO CL+SSL::BIO))
; (BLOCK CL+SSL::LISP-DESTROY-OPAQUE
; (HANDLER-CASE (COND (# 0) (T # # 1))
; (SERIOUS-CONDITION (CL+SSL::C)
; (CL+SSL::PUT-TO-OPENSSL-ERROR-QUEUE CL+SSL::C) 0))))
;
; note: doing SAP to pointer coercion (cost 20) to BIO
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/bio-tmpJAIDFZTC.fasl
; compilation finished in 0:00:00.075
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/conditions.lisp" (written 30 JUN 2026 02:45:26 PM):
; file: /workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/conditions.lisp
; in: DEFUN SSL-SIGNAL-ERROR
; 'CL+SSL::SSL-ERROR-ZERO-RETURN
;
; note: deleting unreachable code
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/conditions-tmp8V3J6PE9.fasl
; compilation finished in 0:00:00.061
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/ssl-funcall.lisp" (written 30 JUN 2026 02:45:26 PM):
; file: /workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/ssl-funcall.lisp
; in: DEFUN SECONDS-UNTIL-DEADLINE
; (/ (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
; INTERNAL-TIME-UNITS-PER-SECOND)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES INTEGER &REST T).
;
; note: unable to
; convert x/2^k to shift
; due to type uncertainty:
; The first argument is a NUMBER, not a INTEGER.
; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME))
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
; The first argument is a T, not a (UNSIGNED-BYTE 64).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 64)
; &OPTIONAL).
; etc.
; in: DEFUN ENSURE-SSL-FUNCALL
; (APPLY CL+SSL::FUNC CL+SSL::HANDLE CL+SSL::OTHER-ARGS)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; FUNC is not known to be a function
; (FUNCALL CL+SSL::SUCCESS-TEST CL+SSL::RET)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; SUCCESS-TEST is not known to be a function
; in: DEFUN NONBLOCKING-SSL-FUNCALL
; (APPLY CL+SSL::FUNC CL+SSL::HANDLE CL+SSL::OTHER-ARGS)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; FUNC is not known to be a function
; (FUNCALL CL+SSL::SUCCESS-TEST CL+SSL::RET)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; SUCCESS-TEST is not known to be a function
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/ssl-funcall-tmp9V47YWQF.fasl
; compilation finished in 0:00:00.007
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/init.lisp" (written 30 JUN 2026 02:45:26 PM):
; file: /workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/init.lisp
; in: CFFI:DEFCALLBACK TMP-RSA-CALLBACK
; (CL+SSL::RSA-GENERATE-KEY LENGTH CL+SSL::+RSA_F4+ (CFFI-SYS:NULL-POINTER)
; (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; in: CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK
; (COERCE CL+SSL::*PEM-PASSWORD* 'BASE-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; CHARACTER
; (*))).
; in: DEFUN INIT-PRNG
; (LENGTH CL+SSL::SEED-BYTE-SEQUENCE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (ELT CL+SSL::SEED-BYTE-SEQUENCE CL+SSL::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS VECTOR
; SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR CONS VECTOR
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; (CL+SSL::RAND-SEED CL+SSL::PTR LENGTH)
;
; note: doing SAP to pointer coercion (cost 20)
; in: CFFI:DEFCALLBACK LOCKING-CALLBACK
; (ELT CL+SSL::*LOCKS* CL+SSL::N)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; in: CFFI:DEFCALLBACK THREADID-CALLBACK
; (INCF CL+SSL::*THREAD-COUNTER*)
; ==>
; (+ 1 CL+SSL::*THREAD-COUNTER*)
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; in: DEFUN INITIALIZE
; (LOOP CL+SSL::REPEAT (CL+SSL::CRYPTO-NUM-LOCKS)
; CL+SSL::COLLECT (BORDEAUX-THREADS:MAKE-LOCK))
; --> LET CEILING
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 62).
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
;
; note: unable to
; fold division by 1
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
; (FUNCALL (OR METHOD (CL+SSL::DEFAULT-SSL-METHOD)))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (LOOP CL+SSL::REPEAT (CL+SSL::CRYPTO-NUM-LOCKS)
; CL+SSL::COLLECT (BORDEAUX-THREADS:MAKE-LOCK))
; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF <=
; ==>
; 1
;
; note: forced to do >-INTEGER-FIXNUM (cost 8)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a INTEGER, not a FIXNUM.
; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF DECF SETQ THE
; --> SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 1), not a FIXNUM.
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; etc.
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/init-tmp9BN22RMA.fasl
; compilation finished in 0:00:00.035
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/ffi-buffer-all.lisp" (written 30 JUN 2026 02:45:26 PM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/ffi-buffer-all-tmp1CXFJSK9.fasl
; compilation finished in 0:00:00.001
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/ffi-buffer.lisp" (written 30 JUN 2026 02:45:26 PM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/ffi-buffer-tmpX4BRKI0R.fasl
; compilation finished in 0:00:00.019
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/streams.lisp" (written 30 JUN 2026 02:45:26 PM):
; file: /workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/streams.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (SSL-STREAM)
; (CL+SSL::MAKE-BUFFER CL+SSL::OUTPUT-BUFFER-SIZE)
; --> BLOCK CFFI-SYS:MAKE-SHAREABLE-BYTE-VECTOR BLOCK MAKE-ARRAY
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER
; (CONS INTEGER
; NULL)).
; (CL+SSL::MAKE-BUFFER CL+SSL::INPUT-BUFFER-SIZE)
; --> BLOCK CFFI-SYS:MAKE-SHAREABLE-BYTE-VECTOR BLOCK MAKE-ARRAY
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST (UNSIGNED-BYTE 44)), not a (OR INTEGER
; (CONS INTEGER
; NULL)).
; in: DEFMETHOD CLOSE (SSL-STREAM)
; (FUNCALL (CL+SSL::SSL-CLOSE-CALLBACK STREAM))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; (COMPLEMENT #'MINUSP)
;
; 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 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; in: DEFMETHOD STREAM-LISTEN (SSL-STREAM)
; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0)
; --> BLOCK ELT
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; in: DEFMETHOD STREAM-READ-BYTE (SSL-STREAM)
; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0)
; --> BLOCK ELT
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Upgraded element type of array is not known at compile time.
; in: DEFMETHOD STREAM-READ-SEQUENCE (SSL-STREAM T T T)
; (PLUSP LENGTH)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL * 17592186044415)
; (SINGLE-FLOAT * 1.7592186e13)
; (DOUBLE-FLOAT *
; 1.7592186044415d13)), not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (RATIONAL * 17592186044415)
; (SINGLE-FLOAT * 1.7592186e13)
; (DOUBLE-FLOAT *
; 1.7592186044415d13)), not a DOUBLE-FLOAT.
; (< CL+SSL::START CL+SSL::END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
; (ELT CL+SSL::SEQ CL+SSL::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL+SSL::S/B-REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START :END1
; (+ CL+SSL::START CL+SSL::READ-BYTES))
; --> BLOCK
; ==>
; (REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START1 :END1 CL+SSL::END1
; :START2 CL+SSL::START2 :END2 CL+SSL::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
; The second argument is a (OR SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))).
; The second argument is a (OR SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*))
; (SIMPLE-ARRAY SINGLE-FLOAT (*))
; (SIMPLE-ARRAY DOUBLE-FLOAT (*))
; SIMPLE-BIT-VECTOR
; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*))
; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*))
; (SIMPLE-ARRAY FIXNUM (*))
; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*))
; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*))
; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT)
; (*))), not a (OR SIMPLE-BASE-STRING NULL).
; (< CL+SSL::START CL+SSL::END)
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
; (- CL+SSL::END CL+SSL::START)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The second argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; (MIN (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: forced to do GENERIC-< (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a REAL, not a FIXNUM.
; (PLUSP LENGTH)
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a (OR (RATIONAL * 17592186044415)
; (SINGLE-FLOAT * 1.7592186e13)
; (DOUBLE-FLOAT * 1.7592186044415d13)), not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (OR (RATIONAL * 17592186044415)
; (SINGLE-FLOAT * 1.7592186e13)
; (DOUBLE-FLOAT * 1.7592186044415d13)), not a FIXNUM.
; etc.
; in: DEFMETHOD STREAM-WRITE-BYTE (SSL-STREAM T)
; (CL+SSL::BUFFER-ELT CL+SSL::BUF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; --> BLOCK SETF SB-C::WITH-SOURCE-FORM ELT
; ==>
; (SB-KERNEL:%SETELT CL+SSL::BUF CL+SSL::INDEX CL+SSL::VAL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; ==>
; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM7))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; in: DEFMETHOD STREAM-WRITE-SEQUENCE (SSL-STREAM T T T)
; (>
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; 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.
; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; 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.
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START1
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) :START2
; CL+SSL::START :END2 CL+SSL::END)
; --> BLOCK
; ==>
; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1
; :START2 CL+SSL::START2 :END2 CL+SSL::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
; The second argument is a SEQUENCE, not a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))).
; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START2 CL+SSL::START)
; --> BLOCK
; ==>
; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1
; :START2 CL+SSL::START2 :END2 CL+SSL::END2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
; The second argument is a SEQUENCE, not a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))).
; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)
; --> BLOCK
; ==>
; (LENGTH CL+SSL::BUF)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; (- CL+SSL::END CL+SSL::START)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; (>
; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM))
; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; (- CL+SSL::END CL+SSL::START)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF))
;
; note: forced to do GENERIC-> (cost 10)
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)
; (- CL+SSL::END CL+SSL::START))
; ==>
; (+ (- CL+SSL::END CL+SSL::START)
; (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM45))
;
; note: forced to do GENERIC-+ (cost 10)
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because:
; The first argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE
; 64).
; The second argument is a T, not a (UNSIGNED-BYTE 64).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 64)
; &OPTIONAL).
; etc.
; in: DEFMETHOD STREAM-FORCE-OUTPUT (SSL-STREAM)
; (PLUSP CL+SSL::FILL-PTR)
;
; 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 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; in: DEFUN X509-CERTIFICATE-NAMES
; (CFFI-SYS:WITH-FOREIGN-POINTER (CL+SSL::BUF 1024)
; (LET ((CL+SSL::ISSUER-NAME
; (CL+SSL::X509-GET-ISSUER-NAME CL+SSL::X509-CERTIFICATE))
; (CL+SSL::SUBJECT-NAME
; (CL+SSL::X509-GET-SUBJECT-NAME CL+SSL::X509-CERTIFICATE)))
; (VALUES
; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::ISSUER-NAME)
; (CL+SSL::X509-NAME-ONELINE CL+SSL::ISSUER-NAME CL+SSL::BUF 1024)
; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF))
; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::SUBJECT-NAME)
; (CL+SSL::X509-NAME-ONELINE CL+SSL::SUBJECT-NAME CL+SSL::BUF 1024)
; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF)))))
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET
; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
; ==>
; 1
;
; note: doing SAP to pointer coercion (cost 20), for:
; the first result of ALLOC-ALIEN-STACK-SPACE
; in: DEFUN SSL-LOAD-GLOBAL-VERIFY-LOCATIONS
; (CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS CL+SSL::*SSL-GLOBAL-CONTEXT*
; CL+SSL::CAFILE (CFFI-SYS:NULL-POINTER))
;
; note: doing SAP to pointer coercion (cost 20)
; in: DEFUN MAKE-SSL-CLIENT-STREAM
; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; (1- CL+SSL::LEN)
;
; note: forced to do GENERIC-- (cost 10)
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; in: DEFUN MAKE-SSL-SERVER-STREAM
; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
;
; note: unable to open code because: The operands might not be the same type.
; in: DEFUN GET-SELECTED-ALPN-PROTOCOL
; (CL+SSL::SSL-GET0-ALPN-SELECTED
; (CL+SSL::SSL-STREAM-HANDLE CL+SSL::SSL-STREAM) CL+SSL::PTR CL+SSL::LEN)
;
; note: doing SAP to pointer coercion (cost 20)
;
; note: doing SAP to pointer coercion (cost 20)
; (CFFI:FOREIGN-STRING-TO-LISP (CFFI:MEM-REF CL+SSL::PTR :POINTER) :COUNT
; (CFFI:MEM-REF CL+SSL::LEN :INT))
;
; note: doing SAP to pointer coercion (cost 20)
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/streams-tmpQ371UGST.fasl
; compilation finished in 0:00:00.163
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/x509.lisp" (written 30 JUN 2026 02:45:26 PM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/x509-tmp2OWI3Q7U.fasl
; compilation finished in 0:00:00.066
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/random.lisp" (written 30 JUN 2026 02:45:26 PM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/random-tmp9KKTJMYV.fasl
; compilation finished in 0:00:00.007
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/context.lisp" (written 30 JUN 2026 02:45:26 PM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/context-tmpJU0JWO19.fasl
; compilation finished in 0:00:00.027
; compiling file "/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/verify-hostname.lisp" (written 30 JUN 2026 02:45:26 PM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/cl-plus-ssl-20251220-499b2f5/src/verify-hostname-tmpZX2WN8N4.fasl
; compilation finished in 0:00:00.016
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/url-rewrite/packages.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/url-rewrite/packages-tmpOU81XRV0.fasl
; compilation finished in 0:00:00.001
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/url-rewrite/specials.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/url-rewrite/specials-tmpY2ML9CFA.fasl
; compilation finished in 0:00:00.004
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/url-rewrite/primitives.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/url-rewrite/primitives-tmpX2JYJDQE.fasl
; compilation finished in 0:00:00.025
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/url-rewrite/util.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/url-rewrite/util-tmpOPCILR65.fasl
; compilation finished in 0:00:00.016
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/url-rewrite/url-rewrite.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/url-rewrite/url-rewrite-tmpRV9F8A9A.fasl
; compilation finished in 0:00:00.031
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/packages.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/packages-tmpK2ZAJT4I.fasl
; compilation finished in 0:00:00.008
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/compat.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/compat-tmpUX5S4ADN.fasl
; compilation finished in 0:00:00.008
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/specials.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/specials-tmp10401X32.fasl
; compilation finished in 0:00:00.135
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/conditions.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/conditions-tmpZ7CBRM0G.fasl
; compilation finished in 0:00:00.015
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/mime-types.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/mime-types-tmp9OZEQ0G2.fasl
; compilation finished in 0:00:00.020
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/util.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/util-tmpB2JTL1W9.fasl
; compilation finished in 0:00:00.100
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/log.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/log-tmpP3BI68WQ.fasl
; compilation finished in 0:00:00.006
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/cookie.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/cookie-tmpQDARA81Z.fasl
; compilation finished in 0:00:00.024
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/reply.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/reply-tmpYEMMM7SE.fasl
; compilation finished in 0:00:00.021
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/request.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/request-tmp73HU0RPK.fasl
; compilation finished in 0:00:00.113
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/session.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/session-tmpIO5N7K88.fasl
; compilation finished in 0:00:00.040
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/misc.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/misc-tmpCM21U60Z.fasl
; compilation finished in 0:00:00.057
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/headers.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/headers-tmp9DT7SEFG.fasl
; compilation finished in 0:00:00.049
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/set-timeouts.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/set-timeouts-tmp8065ESJT.fasl
; compilation finished in 0:00:00.002
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/taskmaster.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/taskmaster-tmp7S8Z6FGF.fasl
; compilation finished in 0:00:00.058
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/acceptor.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/acceptor-tmpSIT3QPKP.fasl
; compilation finished in 0:00:00.163
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/ssl.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/ssl-tmpE0PA0714.fasl
; compilation finished in 0:00:00.026
; compiling file "/workspace/ocicl/hunchentoot-1.3.1/easy-handlers.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/hunchentoot-1.3.1/easy-handlers-tmpJRWHHVG0.fasl
; compilation finished in 0:00:00.045
; compiling file "/workspace/ocicl/easy-routes-20250924-b933078/package.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/easy-routes-20250924-b933078/package-tmp4WZVROCX.fasl
; compilation finished in 0:00:00.002
; compiling file "/workspace/ocicl/easy-routes-20250924-b933078/util.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/easy-routes-20250924-b933078/util-tmpA0I3UKX8.fasl
; compilation finished in 0:00:00.014
; compiling file "/workspace/ocicl/easy-routes-20250924-b933078/easy-routes.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/easy-routes-20250924-b933078/easy-routes-tmp267Y2N80.fasl
; compilation finished in 0:00:00.091
; compiling file "/workspace/ocicl/easy-routes-20250924-b933078/routes-map-printer.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/easy-routes-20250924-b933078/routes-map-printer-tmpOUPE5FSJ.fasl
; compilation finished in 0:00:00.024
WARNING: redefining LLOG::ENCODE-FIELD in DEFGENERIC
STYLE-WARNING:
The new FTYPE proclamation for SLYNK-BACKEND:GETPID
(FUNCTION NIL (VALUES (SIGNED-BYTE 32) &OPTIONAL))
does not match the derived return type
(FUNCTION NIL *)
WARNING:
redefining EMACS-INSPECT (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining IRONCLAD:BLOCK-LENGTH in DEFGENERIC
WARNING: redefining POSTMODERN:DAO-KEYS in DEFGENERIC
SLYNK's ASDF loader finished.
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/packages.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/packages-tmpIGHCU6ZA.fasl
; compilation finished in 0:00:00.004
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/util.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/util-tmpBO0TUGLK.fasl
; compilation finished in 0:00:00.019
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/config.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/config-tmpIIXPIQNW.fasl
; compilation finished in 0:00:00.004
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/crypto.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/crypto-tmpOHM494YR.fasl
; compilation finished in 0:00:00.068
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/keyfile.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/keyfile-tmpOVFB07XF.fasl
; compilation finished in 0:00:00.010
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/tokens.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/tokens-tmpG6VFGMYP.fasl
; compilation finished in 0:00:00.049
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/pkce.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/pkce-tmp4QIPRMOF.fasl
; compilation finished in 0:00:00.001
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/store.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/store-tmpGW0QV22K.fasl
; compilation finished in 0:00:00.141
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/ratelimit.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/ratelimit-tmp2K9J0HSR.fasl
; compilation finished in 0:00:00.017
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/totp.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/totp-tmpP44I4E0Y.fasl
; compilation finished in 0:00:00.087
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/email.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/email-tmp63LQ7EX6.fasl
; compilation finished in 0:00:00.010
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/groups.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/groups-tmp86F1A8FB.fasl
; compilation finished in 0:00:00.003
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/social.lisp" (written 01 JAN 1970 12:00:01 AM):
; wrote /root/.cache/common-lisp/sbcl-2.6.3-1.fc44-linux-x64-s/workspace/ocicl/usher-20260630-843b934/src/social-tmpH7D4HL98.fasl
; compilation finished in 0:00:00.041
; compiling file "/workspace/ocicl/usher-20260630-843b934/src/oidc.lisp" (written 01 JAN 1970 12:00:01 AM):
; file: /workspace/ocicl/usher-20260630-843b934/src/oidc.lisp
; in: DEFSTRUCT PROVIDER
; (DEFSTRUCT USHER:PROVIDER
; USHER::STORE
; USHER::SIGNING-KEYS
; (USHER:LIMITER (USHER:MAKE-LIMITER)))
; --> EVAL-WHEN
; ==>
; (SB-KERNEL::%COMPILER-DEFSTRUCT
; '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION USHER:PROVIDER {120572F083}>
; '#(#<SB-KERNEL:LAYOUT for T {50000003}>
; #<SB-KERNEL:LAYOUT (ID=1) for STRUCTURE-OBJECT {50000083}>))
;
; caught STYLE-WARNING:
; Previously compiled call to USHER:PROVIDER-STORE could not be inlined because
; the structure definition for USHER:PROVIDER was not yet seen. To avoid this
; warning, DEFSTRUCT should precede references to the affected functions, or they
; must be declared locally notinline at each call site.