Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
19
Task/Classes/XLISP/classes.xlisp
Normal file
19
Task/Classes/XLISP/classes.xlisp
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
(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)
|
||||
Loading…
Add table
Add a link
Reference in a new issue