Luís Oliveira luismbo

## moptilities.lisp
;;;; ENSURE-SUPERCLASS-MIXIN
;;;
;;; Example usage:
;;;
;;;   (defclass foo () ())
;;;
;;;   (defclass my-metaclass (ensure-superclass-mixin standard-class)
;;;     ()
;;;     (:default-initargs
;;;      :ensured-superclasses '(foo)))

## cron.root.update-git-mirrors
#!/bin/bash

GIT=/usr/bin/git
GIT_FETCH_TIMEOUT="5m"

warn() {
    echo "${1}" >&2
}

die() {
	;;;; ENSURE-SUPERCLASS-MIXIN
	;;;
	;;; Example usage:
	;;;
	;;; (defclass foo () ())
	;;;
	;;; (defclass my-metaclass (ensure-superclass-mixin standard-class)
	;;; ()
	;;; (:default-initargs
	;;; :ensured-superclasses '(foo)))
	#!/bin/bash

	GIT=/usr/bin/git
	GIT_FETCH_TIMEOUT="5m"

	warn() {
	echo "${1}" >&2
	}

	die() {