another task covered already in ditz.
[CommonLispStat.git] / TODO.lisp
blob97d54ac95ec16bc170b2e089abc4c3180e509de7
1 ;;; -*- mode: lisp -*-
3 ;;; Time-stamp: <2009-07-18 12:20:33 tony>
4 ;;; Creation: <2008-09-08 08:06:30 tony>
5 ;;; File: TODO.lisp
6 ;;; Author: AJ Rossini <blindglobe@gmail.com>
7 ;;; Copyright: (c) 2007-2008, AJ Rossini <blindglobe@gmail.com>. BSD.
8 ;;; Purpose: Stuff that needs to be made working sits inside the
9 ;;; progns... This file contains the current challenges to
10 ;;; solve, including a description of the setup and the work
11 ;;; to solve....
13 ;;; What is this talk of 'release'? Klingons do not make software
14 ;;; 'releases'. Our software 'escapes', leaving a bloody trail of
15 ;;; designers and quality assurance people in its wake.
17 ;;; SET UP
19 (in-package :cl-user)
21 (defun init-CLS ()
22 (asdf:oos 'asdf:load-op 'cls)
23 (asdf:oos 'asdf:load-op 'cl-pdf)
24 (asdf:oos 'asdf:load-op 'cl-typesetting))
26 (defun init-CLS-graphics ()
27 (init-CLS)
28 (asdf:oos 'asdf:load-op 'cl-cairo2-x11)
29 (asdf:oos 'asdf:load-op 'cl-2d))
31 (init-CLS-graphics)
33 ;;(asdf:oos 'asdf:load-op 'lisp-matrix)
34 ;;(asdf:oos 'asdf:compile-op 'cls :force t)
35 ;;(asdf:oos 'asdf:load-op 'cls)
38 ;;(asdf:oos 'asdf:load-op 'cl-pdf)
39 ;;(asdf:oos 'asdf:load-op 'cl-typesetting)
41 (in-package :lisp-stat-unittests)
43 ;; tests = 80, failures = 8, errors = 15
44 (run-tests :suite 'lisp-stat-ut)
45 (describe (run-tests :suite 'lisp-stat-ut))
47 (describe 'lisp-stat-ut)
48 (documentation 'lisp-stat-ut 'type)
50 ;; FIXME: Example: currently not relevant, yet
51 ;; (describe (lift::run-test :test-case 'lisp-stat-unittests::create-proto
52 ;; :suite 'lisp-stat-unittests::lisp-stat-ut-proto))
54 (describe (lift::run-tests :suite 'lisp-stat-ut-dataframe))
55 (lift::run-tests :suite 'lisp-stat-ut-dataframe)
57 (describe (lift::run-test
58 :test-case 'lisp-stat-unittests::create-proto
59 :suite 'lisp-stat-unittests::lisp-stat-ut-proto))
61 (in-package :ls-user)
63 ;;; Tasks to do and consider:
64 ;;;
65 ;;; *
67 #+nil(progn
68 ;; REVIEW: general Lisp use guidance
70 (fdefinition 'make-matrix)
71 (documentation 'make-matrix 'function)
73 #| Examples from CLHS, a bit of guidance.
75 ;; This function assumes its callers have checked the types of the
76 ;; arguments, and authorizes the compiler to build in that assumption.
77 (defun discriminant (a b c)
78 (declare (number a b c))
79 "Compute the discriminant for a quadratic equation."
80 (- (* b b) (* 4 a c))) => DISCRIMINANT
81 (discriminant 1 2/3 -2) => 76/9
83 ;; This function assumes its callers have not checked the types of the
84 ;; arguments, and performs explicit type checks before making any assumptions.
85 (defun careful-discriminant (a b c)
86 "Compute the discriminant for a quadratic equation."
87 (check-type a number)
88 (check-type b number)
89 (check-type c number)
90 (locally (declare (number a b c))
91 (- (* b b) (* 4 a c)))) => CAREFUL-DISCRIMINANT
92 (careful-discriminant 1 2/3 -2) => 76/9
97 #+nil
98 (progn
99 (asdf:oos 'asdf:load-op 'versioned-objects)
100 (asdf:oos 'asdf:load-op 'validations))
106 (with-data dataset ((dsvarname1 [usevarname1])
107 (dsvarname2 [usevarname2]))
108 @body)
114 (defun testme (&key (a 3) (b (+ a 3)))
117 (testme)
118 (testme :a 2)
119 (testme :b 4)
120 (testme :a 2 :b (* a 5))