/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-30 12:59

: check-password

  password .addr @ if

    0 autoboot

    false >r

    begin

      bell emit bell emit

      ." Password: "

      password .len @ read-password

      dup password .len @ = if

        2dup password .addr @ password .len @

        compare 0= if r> drop true >r then

      then

      drop free drop

      r@

    until

    r> drop

  then

;

Guess the snippet

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

36 Name: Anonymous 2010-05-30 12:59

Name: Anonymous 2010-05-22 9:26

Name: Anonymous 2010-05-30 12:59