diff options
Diffstat (limited to 'cutil.lisp')
-rw-r--r-- | cutil.lisp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/cutil.lisp b/cutil.lisp new file mode 100644 index 0000000..0b569e2 --- /dev/null +++ b/cutil.lisp @@ -0,0 +1,11 @@ +(defpackage #:cutil + (:use #:common-lisp) + (:export + #:<abstract-class>)) +(in-package #:cutil) + +(defclass <abstract-class> () ()) +(defmethod make-instance ((self <abstract-class>) &key) + (error "Cannot instantiate abstract class ~A" (class-name c))) + +(provide "cutil") |