Description: <short summary of the patch>
 TODO: Put a short summary on the line above and replace this paragraph
 with a longer explanation of this change. Complete the meta-information
 with other relevant fields (see below for details). To make it easier, the
 information below has been extracted from the changelog. Adjust it or drop
 it.
 .
 gcl (2.6.7-100) unstable; urgency=high
 .
   * nil case keylist support
   * Bug fix: "[INTL:da] Danish translation of the debconf templates gcl",
     thanks to Joe Dalton (Closes: #666528).
Author: Camm Maguire <camm@debian.org>
Bug-Debian: http://bugs.debian.org/666528

---
The information above should follow the Patch Tagging Guidelines, please
checkout http://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:

Origin: <vendor|upstream|other>, <url of original patch>
Bug: <url in upstream bugtracker>
Bug-Debian: http://bugs.debian.org/<bugnumber>
Bug-Ubuntu: https://launchpad.net/bugs/<bugnumber>
Forwarded: <no|not-needed|url proving that it has been forwarded>
Reviewed-By: <name and email of someone who approved the patch>
Last-Update: <YYYY-MM-DD>

--- gcl-2.6.7.orig/cmpnew/gcl_cmpif.lsp
+++ gcl-2.6.7/cmpnew/gcl_cmpif.lsp
@@ -407,24 +407,25 @@
         (wt ")")
         (wt-go local-label))
 
-      (wt-nl "if(")
-      (do ()
-          ((endp keylist))
-        (cond ((symbolp (car keylist))
-               (wt "(V" cvar "!= ")
-               (case (car keylist)
-                 ((t) (wt "Ct"))
-                 ((nil) (wt "Cnil"))
-                 (otherwise (wt (vv-str (add-symbol (car keylist))))))
-               (wt ")"))
-              (t (wt "!eql(V" cvar "," (vv-str (car keylist)) ")")))
-        (unless (endp (cdr keylist)) (wt-nl "&& "))
-        (pop keylist))
-      (wt ")")
-      (wt-go label)
-      (when local-label (wt-label local-label))
-      (let ((*unwind-exit* (cons 'JUMP *unwind-exit*))) (c2expr (cdr clause)))
-      (wt-label label)))
+      (when keylist 
+	(wt-nl "if(")
+	(do ()
+	    ((endp keylist))
+	    (cond ((symbolp (car keylist))
+		   (wt "(V" cvar "!= ")
+		   (case (car keylist)
+			 ((t) (wt "Ct"))
+			 ((nil) (wt "Cnil"))
+			 (otherwise (wt (vv-str (add-symbol (car keylist))))))
+		   (wt ")"))
+		  (t (wt "!eql(V" cvar "," (vv-str (car keylist)) ")")))
+	    (unless (endp (cdr keylist)) (wt-nl "&& "))
+	    (pop keylist))
+	(wt ")")
+	(wt-go label)
+	(when local-label (wt-label local-label))
+	(let ((*unwind-exit* (cons 'JUMP *unwind-exit*))) (c2expr (cdr clause)))
+	(wt-label label))))
 
   (if (eq default 't)
       (progn (wt-nl "FEerror(\"The ECASE key value ~s is illegal.\",1,V" cvar ");")
