@@ -1,5 +1,7 @@

 all: sbcl

+debug:

+	sbcl --load deploy.lisp

 sbcl:

 	sbcl --no-userinit --disable-debugger --load deploy.lisp

 ccl:

@@ -30,6 +30,8 @@

 (ql:quickload :alimenta-feed-archive)

+(load #p"PROJECTS:alimenta-feed-archive;main.lisp")

+

 #+(or)

 (setf sb-alien::*shared-objects* nil)

@@ -49,8 +49,8 @@

                                ,@body)

          (format ,stream " ~a~%" ,after)))))

-(defun skip-feed ()

-  (when-let ((restart (find-restart 'skip-feed)))

+(defun skip-feed (c)

+  (when-let ((restart (find-restart 'skip-feed c)))

     (invoke-restart restart)))

 (defun save-feed (feed output-file &key (if-exists :supersede))

@@ -69,7 +69,7 @@

 (defun log-serialization (feed-url stream feed path)

   (declare (ignorable feed-url stream feed path))

-  (with-progress-message (stream "Serializing XML" (format nil "done with ~a" feed-url))

+  (with-progress-message (stream "Serializing XML" (format nil "done with ~a at ~a" feed-url path))

     (save-feed feed (merge-pathnames "feed.xml" path))))

 (defun feed-relative-pathname (path &optional (feed-base *feed-base*))

@@ -27,6 +27,7 @@

 (defmethod yason:encode-slots progn ((object feed-reference))

   (let ((title (title object))

         (path (path object)))

+    (format *error-output* "~&title: ~s path: ~s~%" title (directory-of path))

     (yason:encode-object-element "url" (url object))

     (when title

       (yason:encode-object-element "title" title))