Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Use WITH-SIMPLE-RESTART.

  • Loading branch information...
commit 416224609eefef146e8f76289d35af5a13e7ac12 1 parent 084cd39
Orivej Desh authored

Showing 1 changed file with 15 additions and 18 deletions. Show diff stats Hide diff stats

  1. +15 18 quickdist.lisp
33 quickdist.lisp
@@ -123,24 +123,21 @@ system-index-url: {base-url}/{name}/{version}/systems.txt
123 123 (let ((system-files (find-system-files project-path)))
124 124 (if (not system-files)
125 125 (warn "No .asd files found in ~a, skipping." project-path)
126   - (restart-case
127   - (let* ((tgz-path (archive archive-path project-path))
128   - (project-name (last-directory project-path))
129   - (project-prefix (pathname-name tgz-path))
130   - (project-url (format nil "~a/~a" archive-url (unix-filename tgz-path))))
131   - (format *error-output* "Processing ~a...~%" project-name)
132   - (format release-index "~a ~a ~a ~a ~a ~a~{ ~a~}~%"
133   - project-name project-url (file-size tgz-path) (md5sum tgz-path) (tar-content-sha1 tgz-path) project-prefix
134   - (mapcar #'unix-filename system-files))
135   - (dolist (system-file system-files)
136   - (asdf::load-sysdef (pathname-name system-file) system-file)
137   - (dolist (system-name (get-systems system-file))
138   - (format system-index "~a ~a ~a~{ ~a~}~%"
139   - project-name (pathname-name system-file) system-name
140   - (system-dependencies system-name)))))
141   - (skip-project ()
142   - :report "Skip this project, continue with the next."
143   - nil)))))))))
  126 + (with-simple-restart (skip-project "Skip this project, continue with the next.")
  127 + (let* ((tgz-path (archive archive-path project-path))
  128 + (project-name (last-directory project-path))
  129 + (project-prefix (pathname-name tgz-path))
  130 + (project-url (format nil "~a/~a" archive-url (unix-filename tgz-path))))
  131 + (format *error-output* "Processing ~a...~%" project-name)
  132 + (format release-index "~a ~a ~a ~a ~a ~a~{ ~a~}~%"
  133 + project-name project-url (file-size tgz-path) (md5sum tgz-path) (tar-content-sha1 tgz-path) project-prefix
  134 + (mapcar #'unix-filename system-files))
  135 + (dolist (system-file system-files)
  136 + (asdf::load-sysdef (pathname-name system-file) system-file)
  137 + (dolist (system-name (get-systems system-file))
  138 + (format system-index "~a ~a ~a~{ ~a~}~%"
  139 + project-name (pathname-name system-file) system-name
  140 + (system-dependencies system-name)))))))))))))
144 141
145 142 (defun quickdist (&key name (version :today) base-url projects-dir dists-dir)
146 143 (let* ((version (if (not (eq version :today)) version (format-date (get-universal-time))))

0 comments on commit 4162246

Please sign in to comment.
Something went wrong with that request. Please try again.