FOOPでメンバ変数に名前を付ける #newlisp

Animals.lsp

;; FOOP in newLISP
;; * How find parent context?

(new Class 'Animal)
(new Animal 'Snake) (define Snake:super Animal)
(new Animal 'Horse) (define Horse:super Animal)

(context Animal)

;; constructor
; (define (Animal:Animal name)
;   (list (context) name))

;; * use macro module. enabled (setf (@var) val)
; (module "macro.lsp")
; (macro (@name) (self 1))

(define (@name) (self 1))

(define (move meters)
  (println (@name) " moved " meters "m.")
  true)

(context Snake)

(define (move)
  (print "Slithering...")
  (super:move 5))

(context Horse)

(define (move)
  (print "Galloping...")
  (super:move 45))

(context MAIN)

(setq sam (Snake "Sammy the Python")
      tom (Horse "Tommy the Palomino"))

(:move sam)
(:move tom)

(exit)