(DEFINE-CLASS PROGRAMMING-LANGUAGE
    (INSTANCE-VARIABLES NAME YEAR))

(DEFINE-METHOD (PROGRAMMING-LANGUAGE 'INITIALIZE X)
    (SETQ NAME X)
    SELF)

(DEFINE-METHOD (PROGRAMMING-LANGUAGE 'WAS-CREATED-IN X)
    (SETQ YEAR X))

(DEFINE-METHOD (PROGRAMMING-LANGUAGE 'DESCRIBE)
    `(THE PROGRAMMING LANGUAGE ,NAME WAS CREATED IN ,YEAR))

(DEFINE LISP (PROGRAMMING-LANGUAGE 'NEW 'LISP))

(LISP 'WAS-CREATED-IN 1958)

(DISPLAY (LISP 'DESCRIBE))
(NEWLINE)