Guess the snippet

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

>>29
Looks like ClozureCL's disassemble.
It's a 4 argument function, altough I'm really not used to its strange disassembly format. I'd probably understand raw x86 better. I don't know what exactly the function is supposed to do, as I'm not used to CCL's x86 assembly macro language.