/prog/ - Guess the snippet

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

Name: Anonymous 2010-05-22 11:14

Ok, heres one



(define (check:proc-ec w)

  (let ((correct? (car w))

        (expression (cadr w))

        (actual-result (caddr w))

        (expected-result (cadddr w))

        (cases (car (cddddr w)))

        (equal-expr (cadr (cddddr w))))

    (if correct?

        (begin (if (>= check:mode 100)

                   (begin (check:report-expression expression equal-expr)

                          (check:report-actual-result actual-result)

                          (check:report-correct cases)))

               (check:add-correct!))

        (begin (if (>= check:mode 10)

                   (begin (check:report-expression expression equal-expr)

                          (check:report-actual-result actual-result)

                          (check:report-failed expected-result)))

               (check:add-failed!

                expression actual-result expected-result equal-expr)))))

Guess the snippet

1 Name: Anonymous 2010-05-22 9:26

7 Name: Anonymous 2010-05-22 11:14

Name: Anonymous 2010-05-22 9:26

Name: Anonymous 2010-05-22 11:14