diff options
| -rw-r--r-- | org-ckons-condition.asd | 36 | ||||
| -rw-r--r-- | src/condition.lisp | 7 | ||||
| -rw-r--r-- | src/package.lisp | 7 |
3 files changed, 50 insertions, 0 deletions
diff --git a/org-ckons-condition.asd b/org-ckons-condition.asd new file mode 100644 index 0000000..da2c0c9 --- /dev/null +++ b/org-ckons-condition.asd @@ -0,0 +1,36 @@ +;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +(declaim (optimize (speed 0) (safety 3) (debug 3))) + +(in-package :cl) + +(defpackage :org-ckons-condition-system (:use :cl :asdf)) +(in-package :org-ckons-condition-system) + +(defmacro do-defsystem (&key name version maintainer author description long-description depends-on components) + `(defsystem ,name + :name ,name + :version ,version + :maintainer ,maintainer + :author ,author + :description ,description + :long-description ,long-description + :depends-on ,(eval depends-on) + :components ,components)) + +(defparameter *quicklisp-packages* ()) +(defparameter *asdf-packages* ()) +(defparameter *all-packages* (append *quicklisp-packages* *asdf-packages*)) + +(loop for pkg in *quicklisp-packages* do + (ql:quickload (symbol-name pkg))) + +(do-defsystem :name "org-ckons-condition" + :version "1" + :maintainer "Carlos Konstanski <me@ckons.org>" + :author "Carlos Konstanski <me@ckons.org>" + :description "org-ckons-condition" + :long-description "org-ckons-condition provides a condition class with an added :text slot." + :depends-on *all-packages* + :components ((:module src + :components ((:file "package") + (:file "condition" :depends-on ("package")))))) diff --git a/src/condition.lisp b/src/condition.lisp new file mode 100644 index 0000000..99933c2 --- /dev/null +++ b/src/condition.lisp @@ -0,0 +1,7 @@ +;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +(declaim (optimize (speed 0) (safety 3) (debug 3))) + +(in-package :org-ckons-condition) + +(define-condition handled-error (error) + ((text :initarg :text :reader text))) diff --git a/src/package.lisp b/src/package.lisp new file mode 100644 index 0000000..64228c3 --- /dev/null +++ b/src/package.lisp @@ -0,0 +1,7 @@ +;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- +(declaim (optimize (speed 0) (safety 3) (debug 3))) + +(defpackage :org-ckons-condition + (:use :cl)) + +(in-package :org-ckons-condition) |