From cf25ea4517ad6d9d214362d9a0fe49777d06e45a Mon Sep 17 00:00:00 2001 From: AJ Rossini Date: Mon, 23 Mar 2009 17:49:52 +0100 Subject: [PATCH] error numbers and whitespace fixed. Signed-off-by: AJ Rossini --- TODO.lisp | 4 ++-- src/numerics/ladata.lsp | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/TODO.lisp b/TODO.lisp index 7b1af86..1fe9def 100644 --- a/TODO.lisp +++ b/TODO.lisp @@ -1,6 +1,6 @@ ;;; -*- mode: lisp -*- -;;; Time-stamp: <2009-03-23 08:15:54 tony> +;;; Time-stamp: <2009-03-23 17:46:44 tony> ;;; Creation: <2008-09-08 08:06:30 tony> ;;; File: TODO.lisp ;;; Author: AJ Rossini @@ -22,7 +22,7 @@ (in-package :lisp-stat-unittests) -;; tests = 89, failures = 7, errors = 37 +;; tests = 87, failures = 7, errors = 35 (describe (run-tests :suite 'lisp-stat-ut)) (run-tests :suite 'lisp-stat-ut) diff --git a/src/numerics/ladata.lsp b/src/numerics/ladata.lsp index 3cd53b6..b38c208 100644 --- a/src/numerics/ladata.lsp +++ b/src/numerics/ladata.lsp @@ -40,10 +40,10 @@ (defun mode-of (x) (etypecase x - (fixnum +mode-in+) - (rational +mode-re+) - (float +mode-re+) - (complex +mode-cx+))) + (fixnum +mode-in+) + (rational +mode-re+) + (float +mode-re+) + (complex +mode-cx+))) (defun la-data-mode (data) (let ((data (compound-data-seq data)) -- 2.11.4.GIT