This is a simple utility script for cleaning up Firebase Hosting versions, leaving a specified number of versions remaining. This is primarily done to conserve storage usage, but may have other uses.
USE AT YOUR OWN RISK. NO WARRANTY IS PROVIDED. THIS SCRIPT DOES DELETE STUFF PERMANENTLY
node cleanupVersions.js [commit]
| ;;; AspectL | |
| ;; http://sourceforge.net/p/closer/aspectl/ci/master/tree/ | |
| ;; http://common-lisp.net/project/aspectl/overview.html | |
| ;; http://clozure.com/pipermail/openmcl-devel/2013-April/014253.html | |
| (defclass person () | |
| ((name :accessor name :initarg :name))) | |
| ;=> #<STANDARD-CLASS PERSON> |
| ;; 参考: http://d.hatena.ne.jp/khiker/20080531/emacs_jimaku | |
| ;; フックをリセット | |
| (setq slime-connected-hook '() ) | |
| (defun shobon-shakin () | |
| (flet ((wait-wait (sec) | |
| (sleep-for sec) | |
| (discard-input) | |
| (redisplay) )) |
| ;;;; qdiff.lisp | |
| (defpackage #:qdiff | |
| (:use #:cl) | |
| (:shadowing-import-from #:ql-dist | |
| #:name | |
| #:release | |
| #:ensure-local-archive-file | |
| #:base-directory | |
| #:prefix) |
| (defmacro with-open-file-atomically-1 ((var filename . args) &body body) | |
| (alexandria:once-only (filename) | |
| (alexandria:with-gensyms (tempfile stream done) | |
| `(let ((,tempfile (merge-pathnames ".tem" ,filename)) ,stream ,done) | |
| (unwind-protect | |
| (multiple-value-prog1 | |
| (let ((,var (setq ,stream (open ,tempfile :if-exists :error ,@args)))) | |
| ,@body) | |
| (setq ,done t)) | |
| (when ,stream |
