src/objects/class.lisp
Sat Jan 23 20:45:41 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* class & type size (and some more exports)
--- old-smoke/src/objects/class.lisp 2014-10-30 08:08:24.000000000 +0100
+++ new-smoke/src/objects/class.lisp 2014-10-30 08:08:24.000000000 +0100
@@ -30,6 +30,9 @@
(defmethod name ((class smoke-class))
(class-slot-value class 'name))
+(defun class-size (smoke-class)
+ (class-slot-value smoke-class 'size))
+
(defun map-classes (function smoke)
"Applies FUNCTION to the classes of SMOKE."
(declare (function function)
@@ -56,6 +59,9 @@
"Returns T when CLASS has a constructor; NIL otherwise."
(/= 0 (get-class-flag class :constructor)))
+(defun copy-constructor-p (class)
+ (/= 0 (get-class-flag class :copy-constructor)))
+
(defun virtual-destructor-p (class)
"Returns T when CLASS has a virtual destructor and NIL otherwise."
(/= 0 (get-class-flag class :virtual-destructor)))