diff --git a/README.md b/README.md index 1edf224..39a39b8 100644 --- a/README.md +++ b/README.md @@ -1,14 +1,14 @@ -# cl-openapi +# io.github.cl-sdk.openapi OpenAPI 3.0 Specification parser for Common Lisp. -`cl-openapi` parses a JSON-encoded OpenAPI 3.0 document into a tree of +`io.github.cl-sdk.openapi` parses a JSON-encoded OpenAPI 3.0 document into a tree of typed CLOS objects, giving you structured, accessor-based access to every field defined by the specification. ## Installation -`cl-openapi` is not yet in the Quicklisp distribution. Add it to your +`io.github.cl-sdk.openapi` is not yet in the Quicklisp distribution. Add it to your project with [qlot](https://github.com/fukamachi/qlot): ``` @@ -19,28 +19,28 @@ github cl-openapi cl-sdk/cl-openapi :branch main Then run `qlot install` and load the system: ```lisp -(ql:quickload :cl-openapi) +(ql:quickload :io.github.cl-sdk.openapi) ``` ## Usage ### Parsing a document -The single public entry point is `cl-openapi:parse`. It accepts a JSON +The single public entry point is `io.github.cl-sdk.openapi:parse`. It accepts a JSON string, a character stream, or a binary (octet) stream and returns an `openapi-document` instance. ```lisp ;; From a string (defvar *doc* - (cl-openapi:parse + (io.github.cl-sdk.openapi:parse "{\"openapi\":\"3.0.0\", \"info\":{\"title\":\"Pet Store\",\"version\":\"1.0.0\"}, \"paths\":{}}")) ;; From a file (with-open-file (stream "/path/to/openapi.json") - (defvar *doc* (cl-openapi:parse stream))) + (defvar *doc* (io.github.cl-sdk.openapi:parse stream))) ``` ### Accessing fields @@ -48,25 +48,25 @@ string, a character stream, or a binary (octet) stream and returns an Every field is exposed through a typed accessor named `-`: ```lisp -(cl-openapi:openapi-version *doc*) ; => "3.0.0" +(io.github.cl-sdk.openapi:openapi-version *doc*) ; => "3.0.0" -(let ((info (cl-openapi:openapi-info *doc*))) - (cl-openapi:info-title info) ; => "Pet Store" - (cl-openapi:info-version info)) ; => "1.0.0" +(let ((info (io.github.cl-sdk.openapi:openapi-info *doc*))) + (io.github.cl-sdk.openapi:info-title info) ; => "Pet Store" + (io.github.cl-sdk.openapi:info-version info)) ; => "1.0.0" ;; Paths is a hash-table keyed by path string -(let ((item (gethash "/pets" (cl-openapi:openapi-paths *doc*)))) - (cl-openapi:operation-id - (cl-openapi:path-item-get item))) ; => "listPets" +(let ((item (gethash "/pets" (io.github.cl-sdk.openapi:openapi-paths *doc*)))) + (io.github.cl-sdk.openapi:operation-id + (io.github.cl-sdk.openapi:path-item-get item))) ; => "listPets" ``` Optional fields that are absent from the source document are left **unbound** on their slot. Use `slot-boundp` to test for presence before accessing them. ```lisp -(let ((info (cl-openapi:openapi-info *doc*))) - (when (slot-boundp info 'cl-openapi::description) - (cl-openapi:info-description info))) +(let ((info (io.github.cl-sdk.openapi:openapi-info *doc*))) + (when (slot-boundp info 'io.github.cl-sdk.openapi::description) + (io.github.cl-sdk.openapi:info-description info))) ``` ### `$ref` handling @@ -76,10 +76,10 @@ either the concrete typed object or a `reference` instance whose single accessor is `reference-ref` (the raw `$ref` string). ```lisp -(let ((param (aref (cl-openapi:operation-parameters op) 0))) - (if (typep param 'cl-openapi:reference) - (cl-openapi:reference-ref param) ; => "#/components/parameters/Limit" - (cl-openapi:parameter-name param))) ; => "limit" +(let ((param (aref (io.github.cl-sdk.openapi:operation-parameters op) 0))) + (if (typep param 'io.github.cl-sdk.openapi:reference) + (io.github.cl-sdk.openapi:reference-ref param) ; => "#/components/parameters/Limit" + (io.github.cl-sdk.openapi:parameter-name param))) ; => "limit" ``` ## API Reference diff --git a/decode.lisp b/decode.lisp index a92adbf..46c6af7 100644 --- a/decode.lisp +++ b/decode.lisp @@ -1,4 +1,4 @@ -(in-package #:cl-openapi) +(in-package #:io.github.cl-sdk.openapi) ;;; JSON decoding for OpenAPI objects. ;;; @@ -573,5 +573,5 @@ INPUT may be a JSON string, a character stream, or a binary (octet) stream. Binary streams are decoded as UTF-8 via flexi-streams (delegated to cl-json). Example: - (cl-openapi:parse \"{\\\"openapi\\\":\\\"3.0.0\\\",\\\"info\\\":{...},...}\")" + (io.github.cl-sdk.openapi:parse \"{\\\"openapi\\\":\\\"3.0.0\\\",\\\"info\\\":{...},...}\")" (json:decode-json 'openapi-document (json:parse input))) diff --git a/cl-openapi.asd b/io.github.cl-sdk.openapi.asd similarity index 84% rename from cl-openapi.asd rename to io.github.cl-sdk.openapi.asd index c3f6db1..1cd4164 100644 --- a/cl-openapi.asd +++ b/io.github.cl-sdk.openapi.asd @@ -1,4 +1,4 @@ -(asdf:defsystem #:cl-openapi +(asdf:defsystem #:io.github.cl-sdk.openapi :description "Open API Specification for Common Lisp." :license "Unlicense" :version "0.0.1" diff --git a/cl-openapi.test.asd b/io.github.cl-sdk.openapi.test.asd similarity index 52% rename from cl-openapi.test.asd rename to io.github.cl-sdk.openapi.test.asd index 9f07524..03c3e29 100644 --- a/cl-openapi.test.asd +++ b/io.github.cl-sdk.openapi.test.asd @@ -1,9 +1,9 @@ -(asdf:defsystem #:cl-openapi.test - :description "FiveAM test suite for cl-openapi." +(asdf:defsystem #:io.github.cl-sdk.openapi.test + :description "FiveAM test suite for io.github.cl-sdk.openapi." :license "Unlicense" :version "0.0.1" :depends-on (#:fiveam - #:cl-openapi) + #:io.github.cl-sdk.openapi) :pathname "t" :serial t :components ((:file "package") diff --git a/package.lisp b/package.lisp index 1956e19..4c63b6b 100644 --- a/package.lisp +++ b/package.lisp @@ -1,4 +1,4 @@ -(defpackage #:cl-openapi +(defpackage #:io.github.cl-sdk.openapi (:use #:cl) (:export ;; Top-level entry point @@ -256,4 +256,4 @@ #:reference #:reference-ref)) -(in-package :cl-openapi) +(in-package :io.github.cl-sdk.openapi) diff --git a/t/cl-openapi-tests.lisp b/t/cl-openapi-tests.lisp index fc6bff1..062f1a4 100644 --- a/t/cl-openapi-tests.lisp +++ b/t/cl-openapi-tests.lisp @@ -1,9 +1,9 @@ -(in-package :cl-openapi.test) +(in-package :io.github.cl-sdk.openapi.test) -(def-suite cl-openapi-suite - :description "Test suite for cl-openapi.") +(def-suite io.github.cl-sdk.openapi-suite + :description "Test suite for io.github.cl-sdk.openapi.") -(in-suite cl-openapi-suite) +(in-suite io.github.cl-sdk.openapi-suite) (test sanity (is (= 1 1))) @@ -17,21 +17,21 @@ ;;; ── parse ─────────────────────────────────────────────────────────────────── (test parse-returns-openapi-document - (let ((doc (cl-openapi:parse (minimal-doc)))) - (is (typep doc 'cl-openapi:openapi-document)))) + (let ((doc (io.github.cl-sdk.openapi:parse (minimal-doc)))) + (is (typep doc 'io.github.cl-sdk.openapi:openapi-document)))) (test parse-openapi-version - (let ((doc (cl-openapi:parse (minimal-doc)))) - (is (string= "3.0.0" (cl-openapi:openapi-version doc))))) + (let ((doc (io.github.cl-sdk.openapi:parse (minimal-doc)))) + (is (string= "3.0.0" (io.github.cl-sdk.openapi:openapi-version doc))))) ;;; ── info ──────────────────────────────────────────────────────────────────── (test parse-info - (let* ((doc (cl-openapi:parse (minimal-doc))) - (info (cl-openapi:openapi-info doc))) - (is (typep info 'cl-openapi:info)) - (is (string= "Test API" (cl-openapi:info-title info))) - (is (string= "1.0.0" (cl-openapi:info-version info))))) + (let* ((doc (io.github.cl-sdk.openapi:parse (minimal-doc))) + (info (io.github.cl-sdk.openapi:openapi-info doc))) + (is (typep info 'io.github.cl-sdk.openapi:info)) + (is (string= "Test API" (io.github.cl-sdk.openapi:info-title info))) + (is (string= "1.0.0" (io.github.cl-sdk.openapi:info-version info))))) (test parse-info-contact-and-license (let* ((json "{\"openapi\":\"3.0.0\", @@ -39,12 +39,12 @@ \"contact\":{\"name\":\"Alice\",\"email\":\"a@example.com\"}, \"license\":{\"name\":\"MIT\",\"url\":\"https://mit-license.org\"}}, \"paths\":{}}") - (info (cl-openapi:openapi-info (cl-openapi:parse json)))) - (is (typep (cl-openapi:info-contact info) 'cl-openapi:contact)) - (is (string= "Alice" (cl-openapi:contact-name (cl-openapi:info-contact info)))) - (is (string= "a@example.com" (cl-openapi:contact-email (cl-openapi:info-contact info)))) - (is (typep (cl-openapi:info-license info) 'cl-openapi:license)) - (is (string= "MIT" (cl-openapi:license-name (cl-openapi:info-license info)))))) + (info (io.github.cl-sdk.openapi:openapi-info (io.github.cl-sdk.openapi:parse json)))) + (is (typep (io.github.cl-sdk.openapi:info-contact info) 'io.github.cl-sdk.openapi:contact)) + (is (string= "Alice" (io.github.cl-sdk.openapi:contact-name (io.github.cl-sdk.openapi:info-contact info)))) + (is (string= "a@example.com" (io.github.cl-sdk.openapi:contact-email (io.github.cl-sdk.openapi:info-contact info)))) + (is (typep (io.github.cl-sdk.openapi:info-license info) 'io.github.cl-sdk.openapi:license)) + (is (string= "MIT" (io.github.cl-sdk.openapi:license-name (io.github.cl-sdk.openapi:info-license info)))))) ;;; ── servers ───────────────────────────────────────────────────────────────── @@ -54,19 +54,19 @@ \"servers\":[{\"url\":\"https://api.example.com\", \"description\":\"Production\"}], \"paths\":{}}") - (doc (cl-openapi:parse json)) - (servers (cl-openapi:openapi-servers doc))) + (doc (io.github.cl-sdk.openapi:parse json)) + (servers (io.github.cl-sdk.openapi:openapi-servers doc))) (is (= 1 (length servers))) (let ((srv (aref servers 0))) - (is (typep srv 'cl-openapi:server)) - (is (string= "https://api.example.com" (cl-openapi:server-url srv))) - (is (string= "Production" (cl-openapi:server-description srv)))))) + (is (typep srv 'io.github.cl-sdk.openapi:server)) + (is (string= "https://api.example.com" (io.github.cl-sdk.openapi:server-url srv))) + (is (string= "Production" (io.github.cl-sdk.openapi:server-description srv)))))) ;;; ── paths ─────────────────────────────────────────────────────────────────── (test parse-paths-empty - (let* ((doc (cl-openapi:parse (minimal-doc))) - (paths (cl-openapi:openapi-paths doc))) + (let* ((doc (io.github.cl-sdk.openapi:parse (minimal-doc))) + (paths (io.github.cl-sdk.openapi:openapi-paths doc))) (is (hash-table-p paths)) (is (zerop (hash-table-count paths))))) @@ -76,13 +76,13 @@ \"paths\":{\"/pets\":{\"get\":{\"operationId\":\"listPets\", \"summary\":\"List all pets\", \"responses\":{\"200\":{\"description\":\"OK\"}}}}}}") - (doc (cl-openapi:parse json)) - (path (gethash "/pets" (cl-openapi:openapi-paths doc))) - (get-op (cl-openapi:path-item-get path))) - (is (typep path 'cl-openapi:path-item)) - (is (typep get-op 'cl-openapi:operation)) - (is (string= "listPets" (cl-openapi:operation-id get-op))) - (is (string= "List all pets" (cl-openapi:operation-summary get-op))))) + (doc (io.github.cl-sdk.openapi:parse json)) + (path (gethash "/pets" (io.github.cl-sdk.openapi:openapi-paths doc))) + (get-op (io.github.cl-sdk.openapi:path-item-get path))) + (is (typep path 'io.github.cl-sdk.openapi:path-item)) + (is (typep get-op 'io.github.cl-sdk.openapi:operation)) + (is (string= "listPets" (io.github.cl-sdk.openapi:operation-id get-op))) + (is (string= "List all pets" (io.github.cl-sdk.openapi:operation-summary get-op))))) (test parse-operation-parameters (let* ((json "{\"openapi\":\"3.0.0\", @@ -92,16 +92,16 @@ \"parameters\":[{\"name\":\"id\",\"in\":\"path\",\"required\":true, \"schema\":{\"type\":\"integer\"}}], \"responses\":{\"200\":{\"description\":\"OK\"}}}}}}") - (doc (cl-openapi:parse json)) - (op (cl-openapi:path-item-get - (gethash "/pets/{id}" (cl-openapi:openapi-paths doc)))) - (params (cl-openapi:operation-parameters op)) + (doc (io.github.cl-sdk.openapi:parse json)) + (op (io.github.cl-sdk.openapi:path-item-get + (gethash "/pets/{id}" (io.github.cl-sdk.openapi:openapi-paths doc)))) + (params (io.github.cl-sdk.openapi:operation-parameters op)) (param (aref params 0))) (is (= 1 (length params))) - (is (typep param 'cl-openapi:parameter)) - (is (string= "id" (cl-openapi:parameter-name param))) - (is (string= "path" (cl-openapi:parameter-in param))) - (is (eq t (cl-openapi:parameter-required param))))) + (is (typep param 'io.github.cl-sdk.openapi:parameter)) + (is (string= "id" (io.github.cl-sdk.openapi:parameter-name param))) + (is (string= "path" (io.github.cl-sdk.openapi:parameter-in param))) + (is (eq t (io.github.cl-sdk.openapi:parameter-required param))))) (test parse-operation-request-body (let* ((json "{\"openapi\":\"3.0.0\", @@ -111,18 +111,18 @@ \"requestBody\":{\"required\":true, \"content\":{\"application/json\":{\"schema\":{\"type\":\"object\"}}}}, \"responses\":{\"201\":{\"description\":\"Created\"}}}}}}") - (doc (cl-openapi:parse json)) - (op (cl-openapi:path-item-post - (gethash "/pets" (cl-openapi:openapi-paths doc)))) - (rb (cl-openapi:operation-request-body op))) - (is (typep rb 'cl-openapi:request-body)) - (is (eq t (cl-openapi:request-body-required rb))) - (is (hash-table-p (cl-openapi:request-body-content rb))) - (let ((mt (gethash "application/json" (cl-openapi:request-body-content rb)))) - (is (typep mt 'cl-openapi:media-type)) - (let ((schema (cl-openapi:media-type-schema mt))) - (is (typep schema 'cl-openapi:schema)) - (is (string= "object" (cl-openapi:schema-type schema))))))) + (doc (io.github.cl-sdk.openapi:parse json)) + (op (io.github.cl-sdk.openapi:path-item-post + (gethash "/pets" (io.github.cl-sdk.openapi:openapi-paths doc)))) + (rb (io.github.cl-sdk.openapi:operation-request-body op))) + (is (typep rb 'io.github.cl-sdk.openapi:request-body)) + (is (eq t (io.github.cl-sdk.openapi:request-body-required rb))) + (is (hash-table-p (io.github.cl-sdk.openapi:request-body-content rb))) + (let ((mt (gethash "application/json" (io.github.cl-sdk.openapi:request-body-content rb)))) + (is (typep mt 'io.github.cl-sdk.openapi:media-type)) + (let ((schema (io.github.cl-sdk.openapi:media-type-schema mt))) + (is (typep schema 'io.github.cl-sdk.openapi:schema)) + (is (string= "object" (io.github.cl-sdk.openapi:schema-type schema))))))) ;;; ── schemas ───────────────────────────────────────────────────────────────── @@ -136,16 +136,16 @@ \"properties\":{ \"id\":{\"type\":\"integer\"}, \"name\":{\"type\":\"string\"}}}}}}") - (doc (cl-openapi:parse json)) - (schemas (cl-openapi:components-schemas - (cl-openapi:openapi-components doc))) + (doc (io.github.cl-sdk.openapi:parse json)) + (schemas (io.github.cl-sdk.openapi:components-schemas + (io.github.cl-sdk.openapi:openapi-components doc))) (pet (gethash "Pet" schemas))) - (is (typep pet 'cl-openapi:schema)) - (is (string= "object" (cl-openapi:schema-type pet))) - (is (hash-table-p (cl-openapi:schema-properties pet))) - (let ((id-schema (gethash "id" (cl-openapi:schema-properties pet)))) - (is (typep id-schema 'cl-openapi:schema)) - (is (string= "integer" (cl-openapi:schema-type id-schema)))))) + (is (typep pet 'io.github.cl-sdk.openapi:schema)) + (is (string= "object" (io.github.cl-sdk.openapi:schema-type pet))) + (is (hash-table-p (io.github.cl-sdk.openapi:schema-properties pet))) + (let ((id-schema (gethash "id" (io.github.cl-sdk.openapi:schema-properties pet)))) + (is (typep id-schema 'io.github.cl-sdk.openapi:schema)) + (is (string= "integer" (io.github.cl-sdk.openapi:schema-type id-schema)))))) (test parse-schema-ref (let* ((json "{\"openapi\":\"3.0.0\", @@ -155,15 +155,15 @@ \"Pets\":{\"type\":\"array\", \"items\":{\"$ref\":\"#/components/schemas/Pet\"}}, \"Pet\":{\"type\":\"object\"}}}}") - (doc (cl-openapi:parse json)) - (schemas (cl-openapi:components-schemas - (cl-openapi:openapi-components doc))) + (doc (io.github.cl-sdk.openapi:parse json)) + (schemas (io.github.cl-sdk.openapi:components-schemas + (io.github.cl-sdk.openapi:openapi-components doc))) (pets (gethash "Pets" schemas)) - (items (cl-openapi:schema-items pets))) - (is (typep pets 'cl-openapi:schema)) - (is (string= "array" (cl-openapi:schema-type pets))) - (is (typep items 'cl-openapi:reference)) - (is (string= "#/components/schemas/Pet" (cl-openapi:reference-ref items))))) + (items (io.github.cl-sdk.openapi:schema-items pets))) + (is (typep pets 'io.github.cl-sdk.openapi:schema)) + (is (string= "array" (io.github.cl-sdk.openapi:schema-type pets))) + (is (typep items 'io.github.cl-sdk.openapi:reference)) + (is (string= "#/components/schemas/Pet" (io.github.cl-sdk.openapi:reference-ref items))))) (test parse-schema-composition (let* ((json "{\"openapi\":\"3.0.0\", @@ -175,14 +175,14 @@ {\"$ref\":\"#/components/schemas/Other\"} ]}, \"Other\":{\"type\":\"object\"}}}}") - (doc (cl-openapi:parse json)) - (schemas (cl-openapi:components-schemas - (cl-openapi:openapi-components doc))) + (doc (io.github.cl-sdk.openapi:parse json)) + (schemas (io.github.cl-sdk.openapi:components-schemas + (io.github.cl-sdk.openapi:openapi-components doc))) (combined (gethash "Combined" schemas)) - (all-of (cl-openapi:schema-all-of combined))) + (all-of (io.github.cl-sdk.openapi:schema-all-of combined))) (is (= 2 (length all-of))) - (is (typep (aref all-of 0) 'cl-openapi:schema)) - (is (typep (aref all-of 1) 'cl-openapi:reference)))) + (is (typep (aref all-of 0) 'io.github.cl-sdk.openapi:schema)) + (is (typep (aref all-of 1) 'io.github.cl-sdk.openapi:reference)))) ;;; ── components ────────────────────────────────────────────────────────────── @@ -193,27 +193,27 @@ \"components\":{\"securitySchemes\":{ \"bearerAuth\":{\"type\":\"http\",\"scheme\":\"bearer\", \"bearerFormat\":\"JWT\"}}}}") - (doc (cl-openapi:parse json)) - (schemes (cl-openapi:components-security-schemes - (cl-openapi:openapi-components doc))) + (doc (io.github.cl-sdk.openapi:parse json)) + (schemes (io.github.cl-sdk.openapi:components-security-schemes + (io.github.cl-sdk.openapi:openapi-components doc))) (bearer (gethash "bearerAuth" schemes))) - (is (typep bearer 'cl-openapi:security-scheme)) - (is (string= "http" (cl-openapi:security-scheme-type bearer))) - (is (string= "bearer" (cl-openapi:security-scheme-scheme bearer))) - (is (string= "JWT" (cl-openapi:security-scheme-bearer-format bearer))))) + (is (typep bearer 'io.github.cl-sdk.openapi:security-scheme)) + (is (string= "http" (io.github.cl-sdk.openapi:security-scheme-type bearer))) + (is (string= "bearer" (io.github.cl-sdk.openapi:security-scheme-scheme bearer))) + (is (string= "JWT" (io.github.cl-sdk.openapi:security-scheme-bearer-format bearer))))) (test parse-tags (let* ((json "{\"openapi\":\"3.0.0\", \"info\":{\"title\":\"A\",\"version\":\"0\"}, \"paths\":{}, \"tags\":[{\"name\":\"pets\",\"description\":\"Everything about pets\"}]}") - (doc (cl-openapi:parse json)) - (tags (cl-openapi:openapi-tags doc))) + (doc (io.github.cl-sdk.openapi:parse json)) + (tags (io.github.cl-sdk.openapi:openapi-tags doc))) (is (= 1 (length tags))) (let ((tag (aref tags 0))) - (is (typep tag 'cl-openapi:tag)) - (is (string= "pets" (cl-openapi:tag-name tag))) - (is (string= "Everything about pets" (cl-openapi:tag-description tag)))))) + (is (typep tag 'io.github.cl-sdk.openapi:tag)) + (is (string= "pets" (io.github.cl-sdk.openapi:tag-name tag))) + (is (string= "Everything about pets" (io.github.cl-sdk.openapi:tag-description tag)))))) ;;; ── response ──────────────────────────────────────────────────────────────── @@ -226,13 +226,13 @@ \"200\":{\"description\":\"OK\", \"content\":{\"application/json\":{\"schema\":{\"type\":\"array\",\"items\":{\"type\":\"string\"}}}}}, \"404\":{\"description\":\"Not Found\"}}}}}}") - (doc (cl-openapi:parse json)) - (op (cl-openapi:path-item-get - (gethash "/items" (cl-openapi:openapi-paths doc)))) - (resp-200 (gethash "200" (cl-openapi:operation-responses op))) - (resp-404 (gethash "404" (cl-openapi:operation-responses op)))) - (is (typep resp-200 'cl-openapi:response)) - (is (string= "OK" (cl-openapi:response-description resp-200))) - (is (typep resp-404 'cl-openapi:response)) - (is (string= "Not Found" (cl-openapi:response-description resp-404))))) + (doc (io.github.cl-sdk.openapi:parse json)) + (op (io.github.cl-sdk.openapi:path-item-get + (gethash "/items" (io.github.cl-sdk.openapi:openapi-paths doc)))) + (resp-200 (gethash "200" (io.github.cl-sdk.openapi:operation-responses op))) + (resp-404 (gethash "404" (io.github.cl-sdk.openapi:operation-responses op)))) + (is (typep resp-200 'io.github.cl-sdk.openapi:response)) + (is (string= "OK" (io.github.cl-sdk.openapi:response-description resp-200))) + (is (typep resp-404 'io.github.cl-sdk.openapi:response)) + (is (string= "Not Found" (io.github.cl-sdk.openapi:response-description resp-404))))) diff --git a/t/package.lisp b/t/package.lisp index c77ac15..819390c 100644 --- a/t/package.lisp +++ b/t/package.lisp @@ -1,4 +1,4 @@ -(defpackage #:cl-openapi.test - (:use #:cl #:5am #:cl-openapi)) +(defpackage #:io.github.cl-sdk.openapi.test + (:use #:cl #:5am #:io.github.cl-sdk.openapi)) -(in-package :cl-openapi.test) +(in-package :io.github.cl-sdk.openapi.test) diff --git a/tests-runner.lisp b/tests-runner.lisp index 47ae22b..f4b5f18 100644 --- a/tests-runner.lisp +++ b/tests-runner.lisp @@ -4,7 +4,7 @@ (asdf:initialize-source-registry) -(ql:quickload :cl-openapi.test) +(ql:quickload :io.github.cl-sdk.openapi.test) (unless (5am:run-all-tests) (uiop:quit -1)) diff --git a/types.lisp b/types.lisp index 3a1b9bd..9d1cdbb 100644 --- a/types.lisp +++ b/types.lisp @@ -1,4 +1,4 @@ -(in-package #:cl-openapi) +(in-package #:io.github.cl-sdk.openapi) ;;; CLOS class definitions for the OpenAPI 3.0 Specification objects. ;;;