~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
src/sod-{frontend,test}.asd.in: Export `*version*'.
[sod]
/
src
/
class-finalize-proto.lisp
diff --git
a/src/class-finalize-proto.lisp
b/src/class-finalize-proto.lisp
index
c7de255
..
eb2b9e3
100644
(file)
--- a/
src/class-finalize-proto.lisp
+++ b/
src/class-finalize-proto.lisp
@@
-28,10
+28,12
@@
;;;--------------------------------------------------------------------------
;;; Protocol definition.
;;;--------------------------------------------------------------------------
;;; Protocol definition.
+(export 'compute-cpl)
(defgeneric compute-cpl (class)
(:documentation
"Returns the class precedence list for CLASS."))
(defgeneric compute-cpl (class)
(:documentation
"Returns the class precedence list for CLASS."))
+(export 'compute-chains)
(defgeneric compute-chains (class)
(:documentation
"Compute the layout chains for CLASS.
(defgeneric compute-chains (class)
(:documentation
"Compute the layout chains for CLASS.
@@
-50,6
+52,7
@@
If the chains are ill-formed (i.e., not distinct) then an error is
signalled."))
If the chains are ill-formed (i.e., not distinct) then an error is
signalled."))
+(export 'check-sod-class)
(defgeneric check-sod-class (class)
(:documentation
"Check the CLASS for validity.
(defgeneric check-sod-class (class)
(:documentation
"Check the CLASS for validity.
@@
-73,6
+76,7
@@
Returns true if all is well; false (and signals errors) if anything was
wrong."))
Returns true if all is well; false (and signals errors) if anything was
wrong."))
+(export 'finalize-sod-class)
(defgeneric finalize-sod-class (class)
(:documentation
"Computes all of the gory details about a class.
(defgeneric finalize-sod-class (class)
(:documentation
"Computes all of the gory details about a class.