commit 9920bf86604b536c735b6478488a3cb89413e000
Author: Guillaume Le Vaillant <glv@posteo.net>
Date:   Tue Dec 1 09:38:41 2020 +0100

    Fix some type declarations
    
    This allows compiling with SBCL 2.0.11 which is less tolerant with wrong type
    declarations.

diff --git a/som/src/lvq_pak.lisp b/som/src/lvq_pak.lisp
index 1a062cc..4006ed6 100644
--- a/som/src/lvq_pak.lisp
+++ b/som/src/lvq_pak.lisp
@@ -53,7 +53,7 @@
      (current :accessor entries-current :initarg :current :initform 0
               :documentation "index of current data-entry inside data-entries")
      (entries :accessor entries-entries :initarg :entries :initform nil
-              :type #-ccl cons #+ccl list
+              :type #-ccl (or null cons) #+ccl list
               :documentation "list of data-entries")
      (num-loaded :accessor entries-num-loaded :initarg :num-loaded :initform nil
                  :documentation "number of lines loaded in entries list")
diff --</td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=4ab3b0c544765363d7435712261b0022598c163e'>refs</a><a href='/guix/log/build-aux'>log</a><a class='active' href='/guix/tree/build-aux?id=4ab3b0c544765363d7435712261b0022598c163e'>tree</a><a href='/guix/commit/build-aux?id=4ab3b0c544765363d7435712261b0022598c163e'>commit</a><a href='/guix/diff/build-aux?id=4ab3b0c544765363d7435712261b0022598c163e'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/build-aux'>
<input type='hidden' name='id' value='4ab3b0c544765363d7435712261b0022598c163e'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/tree/?id=4ab3b0c544765363d7435712261b0022598c163e'>root</a>/<a href='/guix/tree/build-aux?id=4ab3b0c544765363d7435712261b0022598c163e'>build-aux</a></div><div class='content'><table summary='tree listing' class='list'>
<tr class='nohover'><th class='left'>Mode</th><th class='left'>Name</th><th class='right'>Size</th><th/></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob scm' href='/guix/tree/build-aux/build-self.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>build-self.scm</a></td><td class='ls-size'>12721</td><td><a class='button' href='/guix/log/build-aux/build-self.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/build-self.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/build-self.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob scm' href='/guix/tree/build-aux/check-available-binaries.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>check-available-binaries.scm</a></td><td class='ls-size'>2465</td><td><a class='button' href='/guix/log/build-aux/check-available-binaries.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/check-available-binaries.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/check-available-binaries.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob scm' href='/guix/tree/build-aux/check-final-inputs-self-contained.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>check-final-inputs-self-contained.scm</a></td><td class='ls-size'>3711</td><td><a class='button' href='/guix/log/build-aux/check-final-inputs-self-contained.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/check-final-inputs-self-contained.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/check-final-inputs-self-contained.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob scm' href='/guix/tree/build-aux/compile-all.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>compile-all.scm</a></td><td class='ls-size'>3965</td><td><a class='button' href='/guix/log/build-aux/compile-all.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/compile-all.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/compile-all.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob scm' href='/guix/tree/build-aux/compile-as-derivation.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>compile-as-derivation.scm</a></td><td class='ls-size'>2116</td><td><a class='button' href='/guix/log/build-aux/compile-as-derivation.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/compile-as-derivation.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/compile-as-derivation.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>d---------</td><td><a class='ls-dir' href='/guix/tree/build-aux/cuirass?id=4ab3b0c544765363d7435712261b0022598c163e'>cuirass</a></td><td class='ls-size'>134</td><td><a class='button' href='/guix/log/build-aux/cuirass?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/cuirass?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob scm' href='/guix/tree/build-aux/generate-authors.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>generate-authors.scm</a></td><td class='ls-size'>3870</td><td><a class='button' href='/guix/log/build-aux/generate-authors.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/generate-authors.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/generate-authors.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rwxr-xr-x</td><td><a class='ls-blob' href='/guix/tree/build-aux/git-version-gen?id=4ab3b0c544765363d7435712261b0022598c163e'>git-version-gen</a></td><td class='ls-size'>8027</td><td><a class='button' href='/guix/log/build-aux/git-version-gen?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/git-version-gen?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/git-version-gen?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rwxr-xr-x</td><td><a class='ls-blob' href='/guix/tree/build-aux/gitlog-to-changelog?id=4ab3b0c544765363d7435712261b0022598c163e'>gitlog-to-changelog</a></td><td class='ls-size'>13396</td><td><a class='button' href='/guix/log/build-aux/gitlog-to-changelog?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/gitlog-to-changelog?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/gitlog-to-changelog?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>d---------</td><td><a class='ls-dir' href='/guix/tree/build-aux/hydra?id=4ab3b0c544765363d7435712261b0022598c163e'>hydra</a></td><td class='ls-size'>162</td><td><a class='button' href='/guix/log/build-aux/hydra?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/hydra?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob in' href='/guix/tree/build-aux/pre-inst-env.in?id=4ab3b0c544765363d7435712261b0022598c163e'>pre-inst-env.in</a></td><td class='ls-size'>2845</td><td><a class='button' href='/guix/log/build-aux/pre-inst-env.in?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/pre-inst-env.in?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/pre-inst-env.in?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob scm' href='/guix/tree/build-aux/run-system-tests.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>run-system-tests.scm</a></td><td class='ls-size'>3364</td><td><a class='button' href='/guix/log/build-aux/run-system-tests.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/run-system-tests.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/run-system-tests.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob scm' href='/guix/tree/build-aux/test-driver.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>test-driver.scm</a></td><td class='ls-size'>7869</td><td><a class='button' href='/guix/log/build-aux/test-driver.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/test-driver.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/test-driver.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob in' href='/guix/tree/build-aux/test-env.in?id=4ab3b0c544765363d7435712261b0022598c163e'>test-env.in</a></td><td class='ls-size'>5735</td><td><a class='button' href='/guix/log/build-aux/test-env.in?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/test-env.in?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/test-env.in?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob scm' href='/guix/tree/build-aux/update-NEWS.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>update-NEWS.scm</a></td><td class='ls-size'>6507</td><td><a class='button' href='/guix/log/build-aux/update-NEWS.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/update-NEWS.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/update-NEWS.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
<tr><td class='ls-mode'>-rw-r--r--</td><td><a class='ls-blob scm' href='/guix/tree/build-aux/update-guix-package.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>update-guix-package.scm</a></td><td class='ls-size'>5600</td><td><a class='button' href='/guix/log/build-aux/update-guix-package.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>log</a><a class='button' href='/guix/plain/build-aux/update-guix-package.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>plain</a><a class='button' href='/guix/about/build-aux/update-guix-package.scm?id=4ab3b0c544765363d7435712261b0022598c163e'>about</a></td></tr>
</table>
</div> <!-- class=content -->
                         <div class=footer>generated by
                             <a href="https://git.zx2c4.com/cgit/about/">
                                 cgit
                             </a>
                         </div>
                        </div> <!-- id=cgit -->
</body>
</html>
or null number) :accessor tau^2))
   (:documentation "- parent: gaussian-stsp-model
 - accessors
   - s-deg  : Degree for seasonal model
@@ -593,8 +593,8 @@
 ; seasonal-adjustment-model ;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defclass seasonal-adjustment-model (gaussian-stsp-model)
-  ((trend :initarg :trend :initform nil :type trend-model :accessor trend-model)
-   (seasonal :initarg :seasonal :initform nil :type seasonal-model :accessor seasonal-model))
+  ((trend :initarg :trend :initform nil :type (or null trend-model) :accessor trend-model)
+   (seasonal :initarg :seasonal :initform nil :type (or null seasonal-model) :accessor seasonal-model))
   (:documentation "Standard seasonal adjustment model ( Trend + Seasonal )
 - parent: gaussian-stsp-model
 - accessors