ulthar.xyz > Repos

leibowitz

Experimental Common Lisp object storage abstraction for Unix file systems

About Files Commits


          git clone https://ulthar.xyz/repos/leibowitz/leibowitz.git

leibowitz/cli/conditions.lisp

Download raw file: cli/conditions.lisp

;;; Some conditions I don't think belong in the core

(in-package :leibowitz.cli)

(define-condition path-is-directory (friendly-error)
  ((path :initarg :path))
  (:report (lambda (c s)
             (with-slots (path) c
               (format s "~A is a directory " path)))))

(define-condition no-such-subcommand (friendly-error)
  ((subcmd :initarg :subcmd))
  (:report (lambda (c s)
             (with-slots (subcmd) c
               (format s "No such subcommand: ~A" subcmd)))))