STklos
1 program
Added 2026-02-10T14:50:46Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit b4e59e2941 · authored 2026-02-10T15:51:41+01:00 · agent claude-code · model sonnet
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Fibonacci with CLOS-style Objects
Provenance: commit b4e59e2941 · authored 2026-02-10T15:51:41+01:00 · agent claude-code · model sonnet · WebSearch disabled
;;; Fibonacci sequence generator using STklos objects
(define-class <fibonacci> ()
((n :init-keyword :n :initform 10 :accessor fib-n)))
(define-method fib ((obj <fibonacci>) (n <integer>))
(cond
((<= n 1) n)
(else (+ (fib obj (- n 1))
(fib obj (- n 2))))))
(define-method compute ((obj <fibonacci>))
(let ((limit (fib-n obj)))
(do ((i 0 (+ i 1)))
((>= i limit))
(format #t "fib(~a) = ~a~%" i (fib obj i)))))
(let ((f (make <fibonacci> :n 10)))
(compute f))