16 lines
266 B
Text
16 lines
266 B
Text
;;; load object support
|
|
lib objectclass;
|
|
|
|
define :class Camera;
|
|
;;; slots go here
|
|
enddefine;
|
|
|
|
define :class MobilePhone;
|
|
;;; slots go here
|
|
enddefine;
|
|
|
|
define :class CameraPhone is Camera, MobilePhone;
|
|
;;; extra slots go here
|
|
enddefine;
|
|
|
|
;;; methods go here
|