Massive reorganization in progress.

[sod] / 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 (file)
--- 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."))