Obiekty

We wszystkich do tej pory przeglądanych przeze mnie książkach o programowaniu gdy tłumaczono czym jest obiektowość przywoływano jakiś przykład, a to samochód, a to owoc, czasem też człowieka. Samochód miał cechy takie jak np. kolor, ilość drzwi, itp. oraz metody które wykorzystywano np. do wprawiania auta w ruch.

(define (twórz stos)
(let ((stos '()))
(lambda (komun . listaarg)
(cond ((eq? komun 'dołóż)
(set! stos (cons (car listaarg) stos)))
((eq? komun 'zdejmij)
if (null? stos)
(error "Stos jest pusty")
(let ((góra (car stos)))
góra)))
((eq? komun 'pusty?)
(null? stos))
(else (error "Nieznany komunikat"
komun))))))