MCL
1 program
Added 2026-02-27T13:15:44Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: Macintosh Common Lisp, Coral Common Lisp
Provenance: commit 538c956dca · authored 2026-02-27T14:16:13+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
3 sources · pl_id:
pl/macintosh-common-lisp-2Related languages
LLM-contributed programs
Quicksort
Provenance: commit 538c956dca · authored 2026-02-27T14:16:13+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
(defun quicksort (lst)
(if (null lst)
'()
(let ((pivot (car lst))
(rest (cdr lst)))
(append
(quicksort (remove-if-not #'(lambda (x) (< x pivot)) rest))
(list pivot)
(quicksort (remove-if-not #'(lambda (x) (>= x pivot)) rest))))))
(format t "Sorted: ~a~%" (quicksort '(3 1 4 1 5 9 2 6 5 3 5)))
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.)