src/c-types-parse.lisp: Hoist up the `ds-FOO' methods for raw types.

Having them just after the definition of `declspecs' doesn't seem to
make a great deal of sense.

diff --git a/src/c-types-parse.lisp b/src/c-types-parse.lisp
index 58e3ced06115bbdc726df1cb14646d2bc8686085..4475c720d179862cf77c46f61cf7003faeabae78 100644 (file)
--- a/src/c-types-parse.lisp
+++ b/src/c-types-parse.lisp
@@ -119,6 +119,10 @@ (defparameter *declspec-map*
     map)
   "Maps symbolic labels and textual names to `declspec' instances.")
 
     map)
   "Maps symbolic labels and textual names to `declspec' instances.")
 

+(defmethod ds-label ((ty c-type)) :c-type)
+(defmethod ds-name ((ty c-type)) (princ-to-string ty))
+(defmethod ds-kind ((ty c-type)) 'type)
+

 ;; A collection of declaration specifiers, and how to merge them together.
 
 (defclass declspecs ()
 ;; A collection of declaration specifiers, and how to merge them together.
 
 (defclass declspecs ()


@@ -143,10 +147,6 @@ (defclass declspecs ()
    collection isn't good, I must roll back to the previous version.  So I
    don't get to take advantage of a mutable structure.)"))
 
    collection isn't good, I must roll back to the previous version.  So I
    don't get to take advantage of a mutable structure.)"))
 

-(defmethod ds-label ((ty c-type)) :c-type)
-(defmethod ds-name ((ty c-type)) (princ-to-string ty))
-(defmethod ds-kind ((ty c-type)) 'type)
-

 (defparameter *good-declspecs*
   '(((:int) (:signed :unsigned) (:short :long :long-long) ())
     ((:char) (:signed :unsigned) () ())
 (defparameter *good-declspecs*
   '(((:int) (:signed :unsigned) (:short :long :long-long) ())
     ((:char) (:signed :unsigned) () ())