[lisplab-cvs] r71 - in src: core matrix

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Sat Aug  8 08:19:39 2009
New Revision: 71

Log:
minor

Modified:
   src/core/level0-const.lisp
   src/core/level0-functions.lisp
   src/matrix/level1-classes.lisp

Modified: src/core/level0-const.lisp
==============================================================================
--- src/core/level0-const.lisp	(original)
+++ src/core/level0-const.lisp	Sat Aug  8 08:19:39 2009
@@ -22,9 +22,9 @@
 (export '(%i %e -%i))
 
 ;;; Float and complex constants
-(define-constant %e (exp 1.0))
-(define-constant %i #C(0.0 1.0))
-(define-constant -%i #C(0.0 -1.0))
+(define-constant %e (exp 1.0) "The number e = exp(1).")
+(define-constant %i #C(0.0 1.0) "The imaginary unit i=sqrt(-1).")
+(define-constant -%i #C(0.0 -1.0) "The negative imaginary unit -i=-sqrt(-1).")
 
 ;;; Type constants
 ;;; TODO: throw them out or use deftype in stead

Modified: src/core/level0-functions.lisp
==============================================================================
--- src/core/level0-functions.lisp	(original)
+++ src/core/level0-functions.lisp	Sat Aug  8 08:19:39 2009
@@ -30,7 +30,7 @@
 (defun ^ (x n) "Synonym for expt" (expt x n))
 
 (defun .+ (&rest args)
-  "Generlized +. Reduces the arguments with .add."
+  "Generalized +. Reduces the arguments with .add."
   (if (and args (cdr args))
       (reduce #'.add args)
       (car args)))

Modified: src/matrix/level1-classes.lisp
==============================================================================
--- src/matrix/level1-classes.lisp	(original)
+++ src/matrix/level1-classes.lisp	Sat Aug  8 08:19:39 2009
@@ -23,7 +23,8 @@
 
 (in-package :lisplab) 
 
-(export '(matrix-base
+(export '(matrix-ge
+	  matrix-base
 	  matrix-dge
 	  matrix-zge 
 	  function-matrix