20 lines
453 B
Common Lisp
20 lines
453 B
Common Lisp
(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)
|