newLISP FOOP 类的方法以及实现

定义类的方法

创建类的方法和创建类的构造函数几乎一样，只是方法名称不再是类的名称而已。比如：
;; class methods for rectangles

(define (Rectangle:area)
(mul (self 3) (self 4)))

(define (Rectangle:move dx dy)
(inc (self 1) dx)
(inc (self 2) dy))

用save可以将一个类保存到文本文件中，比如下面有一个类Graph
;; @syntax Class Graph
;; @description FOOP class Graph
(new Class 'Graph)

;; @syntax (Graph:create nodes edges)
;; @description Create a Graph object from Nodes and Edges.
(define (Graph:create nodes edges)
(let ((simple-nodes (map (fn (n) (n 1)) nodes))
(simple-edges (map (fn (e) (list (e 1) (e 2))) edges)))
(Graph nodes
edges
;; parents-alist: assocs look like (node (parent-node ...))
(map (fn (sn)
(list sn
(map first
(filter (fn (se) (= sn (last se)))
simple-edges))))
simple-nodes)
;; children-alist: assocs look like (node (child-node ...))
(map (fn (sn)
(list sn
(map last
(filter (fn (se) (= sn (first se)))
simple-edges))))
simple-nodes))))

(save "graph.txt" 'Graph) 方法生成了graph.txt，内容如下：
(context 'Graph)

(define (Graph:Graph )
(cons (context) (args)))

(define (create MAIN:nodes MAIN:edges)
(let ((MAIN:simple-nodes (map (lambda (MAIN:n) (MAIN:n 1)) MAIN:nodes)) (MAIN:simple-edges
(map (lambda (MAIN:e) (list (MAIN:e 1) (MAIN:e 2))) MAIN:edges)))
(Graph MAIN:nodes MAIN:edges (map (lambda (MAIN:sn) (list MAIN:sn (map first (
filter
(lambda (MAIN:se) (= MAIN:sn (last MAIN:se))) MAIN:simple-edges)))) MAIN:simple-nodes)
(map (lambda (MAIN:sn) (list MAIN:sn (map last (filter (lambda (MAIN:se) (= MAIN:sn
(first MAIN:se))) MAIN:simple-edges)))) MAIN:simple-nodes))))
(context MAIN)

在两个(context)语句之间的是默认构造函数和create方法。
这里可以看出，类不会保存任何对象属性，因为那其实只是一个普通的list，开头第一个子元素是类的名字而已。

多态的运用

前一篇已经说过，这里的多态与继承无关，而是使用一个方法的名称，可以调用不同类的同名方法。比如：
(:area myrect) → 200
(:area mycircle) → 314.1592654
方法area用：号前缀， 后面紧跟对象，第一个表达式是myrect，因此调用的是Rectangle:area，第二个调用的是Circle:area方法。