{"id":18016963,"url":"https://github.com/fitzgen/protolith","last_synced_at":"2026-01-19T02:32:05.722Z","repository":{"id":794562,"uuid":"493155","full_name":"fitzgen/protolith","owner":"fitzgen","description":"Just for exploratory fun, I decided to see what it takes to write a prototypical object system in Lisp.","archived":false,"fork":false,"pushed_at":"2010-01-29T03:59:00.000Z","size":76,"stargazers_count":2,"open_issues_count":0,"forks_count":0,"subscribers_count":1,"default_branch":"master","last_synced_at":"2025-10-29T00:46:10.511Z","etag":null,"topics":[],"latest_commit_sha":null,"homepage":"http://fitzgeraldnick.com/weblog/","language":"Common Lisp","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":null,"status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/fitzgen.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":null,"license":null,"code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null}},"created_at":"2010-01-29T03:51:42.000Z","updated_at":"2013-10-01T16:50:04.000Z","dependencies_parsed_at":"2022-08-16T10:55:13.922Z","dependency_job_id":null,"html_url":"https://github.com/fitzgen/protolith","commit_stats":null,"previous_names":[],"tags_count":0,"template":false,"template_full_name":null,"purl":"pkg:github/fitzgen/protolith","repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/fitzgen%2Fprotolith","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/fitzgen%2Fprotolith/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/fitzgen%2Fprotolith/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/fitzgen%2Fprotolith/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/fitzgen","download_url":"https://codeload.github.com/fitzgen/protolith/tar.gz/refs/heads/master","sbom_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/fitzgen%2Fprotolith/sbom","scorecard":null,"host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":286080680,"owners_count":28558229,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2026-01-19T00:46:33.223Z","status":"online","status_checked_at":"2026-01-19T02:00:08.049Z","response_time":67,"last_error":null,"robots_txt_status":"success","robots_txt_updated_at":"2025-07-24T06:49:26.215Z","robots_txt_url":"https://github.com/robots.txt","online":true,"can_crawl_api":true,"host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":[],"created_at":"2024-10-30T04:19:47.656Z","updated_at":"2026-01-19T02:32:05.706Z","avatar_url":"https://github.com/fitzgen.png","language":"Common Lisp","funding_links":[],"categories":[],"sub_categories":[],"readme":"Just for exploratory fun, I decided to see what it takes to write a prototypical\nobject system in Lisp. Apparently its not much, I'm far from an experienced\nLisper (barely fluent, if that) and I got it done in ~50 lines. A testament to\nLisp's flexibility and expressiveness.\n\n    CL-USER\u003e (load \"/home/fitzgen/dev/protolith/protolith.lisp\")\n    T\n    CL-USER\u003e (in-package :protolith)\n    #\u003cPACKAGE \"PROTOLITH\"\u003e\n    PROTOLITH\u003e (defobj account ()\n                 (bal 0)\n                 (deposit (lambda (self x)\n                            (funcall self 'set 'bal (+ (funcall self 'bal)\n                                                       x)))))\n    ACCOUNT\n    PROTOLITH\u003e (account 'bal)\n    0\n    PROTOLITH\u003e (account 'deposit 50)\n    50\n    PROTOLITH\u003e (account 'bal)\n    50\n    PROTOLITH\u003e (defobj checking-account (account)\n                 (withdraw (lambda (self x)\n                             (progn\n                               (funcall self 'set 'bal (- (funcall self 'bal)\n                                                          x))\n                               x))))\n    CHECKING-ACCOUNT\n    PROTOLITH\u003e (checking-account 'bal)\n    50\n    PROTOLITH\u003e (checking-account 'withdraw 10)\n    10\n    PROTOLITH\u003e (checking-account 'withdraw 10)\n    10\n    PROTOLITH\u003e (checking-account 'bal)\n    30\n    PROTOLITH\u003e (checking-account 'proto)\n    #\u003cCLOSURE ACCOUNT\u003e\n\n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Ffitzgen%2Fprotolith","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Ffitzgen%2Fprotolith","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Ffitzgen%2Fprotolith/lists"}