PL Catalog
Home · Browse · CL

CL

1 program Added 2026-03-11T10:00:00Z Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled Evidence Report issue View issues
Aliases: Control Language, IBM CL, AS/400 CL
Provenance: commit fb89002e07 · authored 2026-03-11T18:07:52+01:00 · agent claude-code · model claude-sonnet-4-6

Sources mentioning this language

8 sources · pl_id: pl/common-lisp
LLM (this repo) · 1PldbLinguistPygmentsWikipediaHyperpolyglotRosettacodeWikidata · Q132874

Wikipedia infobox ↗

Pulled from the wikimedia/structured-wikipedia snapshot — see data/raw/wikipedia_pl_facts.*.jsonl and pl_fact.csv for the long-table provenance.

Paradigmsmulti-paradigm: functional · procedural · reflective · meta
Typingdynamic, strong
Designed bySteve Russell · Timothy P. Hart · Mike Levin · John McCarthy
First appeared1960
Influenced byInformation Processing Language (IPL)

Extensions claimed by this language

15 claims. Each row is one upstream assertion with its strength. SWH column shows file occurrences with that extension across the entire archive.
ExtensionSourceStrengthSWH
.clpygmentsprimary498.5K files
.lisplinguistprimary2.5M files
.asdlinguistsecondary266.8K files
.cllinguistsecondary498.5K files
.llinguistsecondary770.6K files
.lisppygmentssecondary2.5M files
.lsplinguistsecondary199.1K files
.nylinguistsecondary3.1K files
.podsllinguistsecondary—
.sexplinguistsecondary35.4K files
.clwikipediaproposed498.5K files
.faslwikipediaproposed20.5K files
.lwikipediaproposed770.6K files
.lispwikipediaproposed2.5M files
.lspwikipediaproposed199.1K files

Related languages

Control Language (0.53)CLLE (0.47)CODIL (0.35)ECL (0.34)NMTRAN (0.33)

LLM-contributed programs

Fibonacci Sequence

Origin · Download · manifest.json · Report
Provenance: commit fb89002e07 · authored 2026-03-11T18:07:52+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
code.clp · added: 2026-03-11T10:00:00Z
/* Fibonacci sequence using CL (IBM i Control Language) */
PGM

DCL        VAR(&N) TYPE(*DEC) LEN(5 0) VALUE(10)
DCL        VAR(&A) TYPE(*DEC) LEN(15 0) VALUE(0)
DCL        VAR(&B) TYPE(*DEC) LEN(15 0) VALUE(1)
DCL        VAR(&C) TYPE(*DEC) LEN(15 0) VALUE(0)
DCL        VAR(&I) TYPE(*DEC) LEN(5 0) VALUE(1)
DCL        VAR(&MSG) TYPE(*CHAR) LEN(50)

SNDPGMMSG  MSG('Fibonacci sequence:')
SNDPGMMSG  MSG(%CHAR(&A))

LOOP:
IF         COND(&I *GT &N) THEN(GOTO CMDLBL(DONE))
CHGVAR     VAR(&C) VALUE(&A + &B)
CHGVAR     VAR(&MSG) VALUE(%CHAR(&C))
SNDPGMMSG  MSG(&MSG)
CHGVAR     VAR(&A) VALUE(&B)
CHGVAR     VAR(&B) VALUE(&C)
CHGVAR     VAR(&I) VALUE(&I + 1)
GOTO       CMDLBL(LOOP)

DONE:
ENDPGM

Real programs from Software Heritage

No SWH evidence indexed yet for this language. (Either the SWH mining hasn't reached this language's extensions, or no matching files exist in the archive.)

Disambiguation rules

Linguist heuristic rules that predict this language when one of its claimed extensions is shared with another.
RuleExtKindPredicates (truncated)
h/linguist/.l/0.lpredicates[{"kind": "any", "regexes": ["\\(def(un|macro)\\s"]}]
h/linguist/.cl/0.clpredicates[{"kind": "any", "regexes": ["^\\s*\\((?i:defun|in-package|defpackage) "]}]
h/linguist/.lsp/0.lsppredicates[{"kind": "any", "regexes": ["^\\s*\\((?i:defun|in-package|defpackage) "]}]
h/linguist/.lisp/0.lisppredicates[{"kind": "any", "regexes": ["^\\s*\\((?i:defun|in-package|defpackage) "]}]

Contribute — propose a file extension

Tell us where to find evidence about CL (mapped to pl/common-lisp). A reference URL is required; at least one of extension or program code must be provided too. A maintainer reviews each submission via a draft PR before anything lands.
Optional: attach a program from that URL
If the reference URL points at a single source file you'd like to add as an example program, paste it below. The workflow will write it under languages/CL/programs/<sha>/. Keep under ~200 lines.
(or open the pre-filled issue directly)
← CKR-Lang cl-i →