Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Move definition of MECHANISMS to avoid warnings

git-archimport-id: mange@freemail.hu--2005/cl-sasl--devo--0.1--patch-21
  • Loading branch information...
commit 9af1e2e7bcc1d4db1944d35832541784664e35df 1 parent 8b6b654
Magnus Henoch authored
Showing with 13 additions and 13 deletions.
  1. +13 −13 client.lisp
26 client.lisp
View
@@ -1,4 +1,17 @@
(in-package :sasl)
+
+(defparameter mechanisms
+ '(("DIGEST-MD5" digest-md5)
+ ("PLAIN" plain :cleartext)
+ ("ANONYMOUS" anonymous :anonymous))
+ "List of SASL mechanisms in order of preference.
+Each element is a list describing a mechanism. The first item is
+the name of the mechanism. The second item is the class
+implementing it. The remaining items are properties of the
+mechanism:
+
+:CLEARTEXT Password is sent in clear text or with weak encryption
+:ANONYMOUS Mechanism negotiates anonymous access")
(defun get-mechanism (name)
"Return the class name for the mechanism called NAME, or nil if not implemented."
@@ -30,19 +43,6 @@ If ANONYMOUS is true, use mechanisms that acquire anonymous access."
implemented)))
(second (first implemented))))
-
-(defparameter mechanisms
- '(("DIGEST-MD5" digest-md5)
- ("PLAIN" plain :cleartext)
- ("ANONYMOUS" anonymous :anonymous))
- "List of SASL mechanisms in order of preference.
-Each element is a list describing a mechanism. The first item is
-the name of the mechanism. The second item is the class
-implementing it. The remaining items are properties of the
-mechanism:
-
-:CLEARTEXT Password is sent in clear text or with weak encryption
-:ANONYMOUS Mechanism negotiates anonymous access")
(defclass client ()
((authc-id :initarg :authentication-id
Please sign in to comment.
Something went wrong with that request. Please try again.