Name: Anonymous 2010-05-22 9:26
I'll start
(defconst *path-delimiter* ">")
(defconst *type-delimiter* ".")
(defconst *version-delimiter* ".")
(defconst *directory-entry-file-type-max-length* 14.)
(defconst *lmfs-name-of-the-root* "The Root Directory")
(defflavor lmfs-mailbox-pathname-mixin () (mailbox-pathname-mixin)
(:abstract-flavor)
(:documentation :mixin "for ZMAIL's methods"))
(defflavor lmfs-pathname-mixin
()
(lmfs-mailbox-pathname-mixin
no-device-mixin
hierarchical-directory-mixin
meaningful-root-mixin
both-cases-same-lower-preferred-mixin)
(:required-flavors pathname)
(:functions lmfs-pathname-fname-string)) ;This one is forward-referenced