~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
;;; 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
:reader enclosed-condition))
(:documentation
"A condition which encloses another condition
@@
-45,9
+44,7
@@
;;; Conditions with location information.
(define-condition condition-with-location (condition)
;;; 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."))
(:documentation
"A condition which has some location information attached."))