src/: Improve formatting of big lambda-lists.

diff --git a/src/c-types-parse.lisp b/src/c-types-parse.lisp
index 3a5a53642e68e10064f037599d0e9625ee8ae2cb..9c33672b8f631c34e1831a053e991e0676a3b4e3 100644 (file)
--- a/src/c-types-parse.lisp
+++ b/src/c-types-parse.lisp
@@ -102,10 +102,8 @@ (defparameter *declspec-map*
            (if (consp spec) spec (list spec)))
        (dolist (spec (cdr item))
          (destructuring-bind (label
-                              &key
-                              (name (string-downcase label))
-                              compat
-                              (taggedp taggedp))
+                              &key (name (string-downcase label))
+                                   compat (taggedp taggedp))
              (if (consp spec) spec (list spec))
            (let ((ds (make-instance 'declspec
                                     :label label

diff --git a/src/optparse.lisp b/src/optparse.lisp
index 367fc5092eba9e94e6e5315135e7266d0fbb273e..7e444e05e96b6e44ec103908a648f538c8e4b474 100644 (file)
--- a/src/optparse.lisp
+++ b/src/optparse.lisp
@@ -896,11 +896,8 @@ (defmacro options (&rest optlist)
 ;;; Support stuff for help and usage messages.
 
 (defun print-text (string
-                  &optional
-                  (stream *standard-output*)
-                  &key
-                  (start 0)
-                  (end nil))
+                  &optional (stream *standard-output*)
+                  &key (start 0) (end nil))
   "Prints STRING to a pretty-printed STREAM, breaking it at whitespace and
    newlines in the obvious way.  Stuff between square brackets is not broken:
    this makes usage messages work better."

diff --git a/src/parser/floc-proto.lisp b/src/parser/floc-proto.lisp
index c4d080468a043fbd36cb5940e56a5f1d06822793..9acbfae7666436833aaa9b35ec6ecf40ca74f587 100644 (file)
--- a/src/parser/floc-proto.lisp
+++ b/src/parser/floc-proto.lisp
@@ -32,11 +32,11 @@ (export '(file-location make-file-location file-location-p
          file-location-filename file-location-line file-location-column))
 (defstruct (file-location
             (:constructor make-file-location
-                          (%filename &optional line column
-                           &aux (filename
-                                 (etypecase %filename
-                                   ((or string null) %filename)
-                                   (pathname (namestring %filename)))))))
+                (%filename
+                 &optional line column
+                 &aux (filename (etypecase %filename
+                                  ((or string null) %filename)
+                                  (pathname (namestring %filename)))))))
   "A simple structure containing file location information.
 
    Construct using `make-file-location'; the main useful function is

diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp
index 773a9a105e2fa600620df04008b0ed6c5c13bac6..92ba83c96bb19bbc37b0012665fb8f49e09668c2 100644 (file)
--- a/src/parser/scanner-charbuf-impl.lisp
+++ b/src/parser/scanner-charbuf-impl.lisp
@@ -354,8 +354,9 @@ (defmethod scanner-release-place ((scanner charbuf-scanner) place)
 
 (defstruct (charbuf-slice
             (:constructor make-charbuf-slice
-                          (buf &optional (start 0) %end
-                           &aux (end (or %end (length buf))))))
+                (buf
+                 &optional (start 0) %end
+                 &aux (end (or %end (length buf))))))
   (buf nil :type (or charbuf (eql :eof)) :read-only t)
   (start 0 :type (and fixnum unsigned-byte) :read-only t)
   (end 0 :type (and fixnum unsigned-byte) :read-only t))

diff --git a/src/parser/scanner-impl.lisp b/src/parser/scanner-impl.lisp
index d856ba9c89cdbe708951187b686f5f3fecf08fd5..411cbc16a03e6293c9ee225530a4644e20235d79 100644 (file)
--- a/src/parser/scanner-impl.lisp
+++ b/src/parser/scanner-impl.lisp
@@ -61,7 +61,8 @@ (defmethod stream-peek-char ((stream character-scanner-stream))
 (export '(string-scanner make-string-scanner string-scanner-p))
 (defstruct (string-scanner
             (:constructor make-string-scanner
-                (string &key (start 0) end filename
+                (string
+                 &key (start 0) end filename
                  &aux (%string string)
                       (index start)
                       (limit (or end (length string))))))

diff --git a/src/pset-proto.lisp b/src/pset-proto.lisp
index 2620585e645feb3347abe61dfd5fb07f11ff10e3..764350a2fbfab93d664c26114555b4b41f496b29 100644 (file)
--- a/src/pset-proto.lisp
+++ b/src/pset-proto.lisp
@@ -43,9 +43,9 @@ (defstruct (property
             (:predicate propertyp)
             (:conc-name p-)
             (:constructor %make-property
-                          (name value
-                           &key type location seenp
-                           &aux (key (property-key name)) (%type type))))
+                (name value
+                 &key type location seenp
+                 &aux (key (property-key name)) (%type type))))
   "A simple structure for holding a property in a property set.
 
    The main useful feature is the ability to tick off properties which have