Arguments

Returns

The closest parent (base) class of the instance or class.

Description

This function returns the closest (immediate) parent (base) class of the class or instance provided.

Example

Gamma> class RegPolygon{sides; length;}
(defclass RegPolygon nil [][length sides])
Gamma> class Square RegPolygon {sides = 4;}
(defclass Square RegPolygon [][length (sides . 4)])
Gamma> class BigSquare Square {length = 30;};
(defclass BigSquare Square [][(length . 30) (sides . 4)])
Gamma> polyA = new(RegPolygon);
{RegPolygon (length) (sides)}
Gamma> sqC = new(Square);
{Square (length) (sides . 4)}
Gamma> bigD = new(BigSquare);
{BigSquare (length . 30) (sides . 4)}
Gamma> parent_class(polyA);
nil
Gamma> parent_class(sqC);
(defclass RegPolygon nil [][length sides])
Gamma> parent_class(bigD);
(defclass Square RegPolygon [][length (sides . 4)])
Gamma> parent_class(Square);
(defclass RegPolygon nil [][length sides])
Gamma> parent_class(BigSquare);
(defclass Square RegPolygon [][length (sides . 4)])
Gamma> 
		

See Also

class