Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Authz fixes.

  • Loading branch information...
commit 5d96232577d75d384feab36f9d1cd1beca7397d3 1 parent a7b475e
Antoni Grzymała authored October 22, 2012

Showing 1 changed file with 3 additions and 4 deletions. Show diff stats Hide diff stats

  1. 7  plain.lisp
7  plain.lisp
@@ -16,10 +16,9 @@ as specified in RFC 2595, section 6."))
16 16
     (:start
17 17
      (setf (state c) :sent)
18 18
      (concatenate '(vector (unsigned-byte 8))
19  
-		  (string-to-utf8 (authz-id c)) '(0)
20  
-		  (string-to-utf8 (authc-id c)) '(0)
21  
-		  (string-to-utf8 (get-password (password c)))))
22  
-
  19
+		  (string-to-utf8 (or (authz-id c) "")) '(0)
  20
+		  (string-to-utf8     (authc-id c))     '(0)
  21
+		  (string-to-utf8     (get-password (password c)))))
23 22
     (:sent
24 23
      :success)))
25 24
 

0 notes on commit 5d96232

Please sign in to comment.
Something went wrong with that request. Please try again.