It lives!

[sod] / posn-stream.lisp

diff --git a/posn-stream.lisp b/posn-stream.lisp
index 6aa1a1f..ffc06d6 100644 (file)
--- a/posn-stream.lisp
+++ b/posn-stream.lisp
@@ -57,14 +57,10 @@
 ;;; Locations.
 
 (defclass file-location ()
-  ((pathname :initarg :pathname
-            :type (or pathname null)
+  ((pathname :initarg :pathname :type (or pathname null)
             :accessor file-location-pathname)
-   (line :initarg :line
-        :type (or fixnum null)
-        :accessor file-location-line)
-   (column :initarg :column
-          :type (or fixnum null)
+   (line :initarg :line :type (or fixnum null) :accessor file-location-line)
+   (column :initarg :column :type (or fixnum null)
           :accessor file-location-column))
   (:documentation
    "A simple structure containing file location information.
@@ -103,8 +99,7 @@
 ;; Base classes for proxy streams.
 
 (defclass proxy-stream (fundamental-stream)
-  ((ustream :initarg :stream
-           :type stream
+  ((ustream :initarg :stream :type stream
            :reader position-aware-stream-underlying-stream))
   (:documentation
    "Base class for proxy streams.
@@ -233,18 +228,12 @@
 ;; Base class.
 
 (defclass position-aware-stream (proxy-stream)
-  ((file :initarg :file
-        :initform nil
-        :type pathname
-        :accessor position-aware-stream-file)
-   (line :initarg :line
-        :initform 1
-        :type fixnum
-        :accessor position-aware-stream-line)
-   (column :initarg :column
-          :initform 0
-          :type fixnum
-          :accessor position-aware-stream-column))
+  ((file :initarg :file :initform nil
+        :type pathname :accessor position-aware-stream-file)
+   (line :initarg :line :initform 1
+        :type fixnum :accessor position-aware-stream-line)
+   (column :initarg :column :initform 0
+          :type fixnum :accessor position-aware-stream-column))
   (:documentation
    "Character stream which keeps track of the line and column position.