X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/a07d8d005f69c0f9f5da2e09c6ee39cb1e1801aa:/errors.lisp..dea4d05507e59ab779ed4bb209e05971d87e260c:/pre-reorg/errors.lisp

diff --git a/errors.lisp b/pre-reorg/errors.lisp
similarity index 98%
rename from errors.lisp
rename to pre-reorg/errors.lisp
index 4b92fee..6ff6747 100644
--- a/errors.lisp
+++ b/pre-reorg/errors.lisp
@@ -29,8 +29,7 @@
 ;;; Enclosing conditions.
 
 (define-condition enclosing-condition (condition)
-  ((enclosed-condition :initarg :condition
-		       :type condition
+  ((enclosed-condition :initarg :condition :type condition
 		       :reader enclosed-condition))
   (:documentation
    "A condition which encloses another condition
@@ -45,9 +44,7 @@
 ;;; Conditions with location information.
 
 (define-condition condition-with-location (condition)
-  ((location :initarg :location
-	     :reader file-location
-	     :type file-location))
+  ((location :initarg :location :reader file-location :type file-location))
   (:documentation
    "A condition which has some location information attached."))