3 ;;; Time-stamp: <2009-07-18 11:50:00 tony>
4 ;;; Creation: <2008-09-08 08:06:30 tony>
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
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.
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 ()
28 (asdf:oos
'asdf
:load-op
'cl-cairo2-x11
)
29 (asdf:oos
'asdf
:load-op
'cl-2d
))
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
))
63 ;;; Tasks to do and consider:
65 ;;; * must contemplate data as being separate from object system,
66 ;;; working out a new package dependency system.
71 ;; REVIEW: general Lisp use guidance
73 (fdefinition 'make-matrix
)
74 (documentation 'make-matrix
'function
)
76 #| Examples from CLHS
, a bit of guidance.
78 ;; This function assumes its callers have checked the types of the
79 ;; arguments, and authorizes the compiler to build in that assumption.
80 (defun discriminant (a b c
)
81 (declare (number a b c
))
82 "Compute the discriminant for a quadratic equation."
83 (- (* b b
) (* 4 a c
))) => DISCRIMINANT
84 (discriminant 1 2/3 -
2) => 76/9
86 ;; This function assumes its callers have not checked the types of the
87 ;; arguments, and performs explicit type checks before making any assumptions.
88 (defun careful-discriminant (a b c
)
89 "Compute the discriminant for a quadratic equation."
93 (locally (declare (number a b c
))
94 (- (* b b
) (* 4 a c
)))) => CAREFUL-DISCRIMINANT
95 (careful-discriminant 1 2/3 -
2) => 76/9
102 (asdf:oos
'asdf
:load-op
'versioned-objects
)
103 (asdf:oos
'asdf
:load-op
'validations
))
109 (with-data dataset
((dsvarname1 [usevarname1])
110 (dsvarname2 [usevarname2]))
117 (defun testme (&key (a 3) (b (+ a 3)))
123 (testme :a 2 :b (* a 5))