+(defmethod writer-function ((type (eql 'integer)) &rest args)
+ (declare (ignore type args))
+ (writer-function 'signed-byte))
+
+(defmethod reader-function ((type (eql 'integer)) &rest args)
+ (declare (ignore type args))
+ (reader-function 'signed-byte))
+