@@ -1,2 +1,4 @@

-*.fasl

-[#]*[#]

+*fasl

+.[#]*

+[#]*

+*~

@@ -10,8 +10,10 @@

                #:serapeum

                #:cl-containers

                #:iterate

+               #-lispworks

                #:plump

                #:positional-lambda

+               #-lispworks

                #:should-test)

   :components ((:file "package")

                (:file "fwoar.lisputils")

@@ -22,7 +24,9 @@

                (:file "vector-utils")

                (:file "string-utils/package")

                (:file "string-utils/string-utils")

+               #-lispworks

                (:file "string-utils/test")

+               #-lispworks

                (:file "patmatch")

                (:file "glambda")))

@@ -76,7 +76,8 @@

     (let ((possible-declarations (car body))

 	  (ignored-vars nil)

 	  (ignorable-vars nil))

-      (if (and (eq (car possible-declarations) 'declare)

+      (if (and (consp possible-declarations)

+	       (eq (car possible-declarations) 'declare)

 	       (consp (cadr possible-declarations)))

 	  (let* ((declarations (cdr possible-declarations)))

 	    (setf ignored-vars (cdr (assoc 'ignore declarations))