| 
					
				 | 
			
			
				@@ -531,8 +531,8 @@ parameters when merging lists." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    (case (car pair) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		      (:var 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		       ;; we want only one specification per variable 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-		       (when (string-match "^\\([^= \f\t\n\r\v]+\\)=\\([^\f\n\r\v]+\\)$" (cdr pair)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			 ;; TODO: When is this not true? Can there be whitespace around the '='? 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+		       (when (string-match "^\\([^= \f\t\n\r\v]+\\)[ \t]*=[ \t]*\\([^\f\n\r\v]+\\)$" (cdr pair)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			 ;; TODO: When is this not true? 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			 (setq var (intern (match-string 1 (cdr pair))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			       ref (match-string 2 (cdr pair)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 			       vars (cons (cons var ref) (assq-delete-all var vars))))) 
			 |