fc-unleashed

(defun luhn-sum (list n)
  (if (null list)
      0
    (+ (let ((x (car list)))
	     (if (= 1 (mod n 2))
		 (let ((y (* 2 x)))
		   (if (> y 9) 
		       (+ 1 (mod y 10)) 
		     y))
	       x))

fc-unleashed

$ mvn archetype:create -DgroupId=test -DartifactId=test -Dversion=1.0 -Dpackaging=jar -Dpackage=test  
[INFO] Scanning for projects...  
[INFO] Searching repository for plugin with prefix: 'archetype'.  
[INFO] ------------------------------------------------------------------------  
[INFO] Building Maven Default Project  
[INFO]    task-segment: [archetype:create] (aggregator-style)  
[INFO] ------------------------------------------------------------------------  
[INFO] Setting property: classpath.resource.loader.class => 'org.codehaus.plexus.velocity.ContextClassLoaderResourceLoader'.  
[INFO] Setting property: velocimacro.messages.on => 'false'.  
[INFO] Setting property: resource.loader => 'classpath'.