Bug#546205: cl-asdf: infinite loop in defsystem

[Desmond O. Chang]

Package: cl-asdf
Version: 1:20090819-2
Severity: important

Function parse-component-form invoked by defsystem falls in an infinite loop
when it evaluate function %define-component-inline-methods.

My patch is included in attachment.


-- System Information:
Debian Release: squeeze/sid
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: i386 (i686)

Kernel: Linux 2.6.30-1-686 (SMP w/1 CPU core)
Locale: LANG=en_US.utf8, LC_CTYPE=en_US.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash

cl-asdf depends on no packages.

Versions of packages cl-asdf recommends:
ii  clisp [lisp-compiler]       1:2.48-1     GNU CLISP, a Common Lisp implement
ii  common-lisp-controller      6.19         Common Lisp source and compiler ma
ii  sbcl [lisp-compiler]        1:1.0.31.0-1 A Common Lisp compiler and develop

cl-asdf suggests no packages.

-- no debconf information
-------------- next part --------------
--- asdf.lisp.1	2009-09-12 00:38:32.000000000 +0800
+++ asdf.lisp	2009-09-12 00:30:50.000000000 +0800
@@ -1374,6 +1374,7 @@ Returns the new tree (which probably sha
   (loop for name in +asdf-methods+ do
        (let ((keyword (intern (symbol-name name) :keyword)))
 	 (loop for data = rest then (cddr data)
+	      while data
 	      for key = (and data (first data))
 	      for value = (and data (second data)) 
 	      when (eq key keyword) do