[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv27598

Added Files:
	complexes.lisp 
Log Message:
Add trivial implementations of complexes and pathnames.



--- /project/movitz/cvsroot/movitz/losp/muerte/complexes.lisp	2008/03/20 22:21:02	NONE
+++ /project/movitz/cvsroot/movitz/losp/muerte/complexes.lisp	2008/03/20 22:21:02	1.1
;;;;------------------------------------------------------------------
;;;; 
;;;;    Copyright (C) 2008, Frode V. Fjeld
;;;; 
;;;; Description:   Complex numbers
;;;; Author:        Frode Vatvedt Fjeld
;;;; Distribution:  See the accompanying file COPYING.
;;;;                
;;;; $Id: complexes.lisp,v 1.1 2008/03/20 22:21:01 ffjeld Exp $
;;;;                
;;;;------------------------------------------------------------------

(require :muerte/basic-macros)
(require :muerte/defstruct)

(in-package muerte)

(provide :muerte/complexes)

(defstruct (complex (:constructor make-complex-number)
		    (:conc-name ""))
  realpart
  imagpart)