[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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

Modified Files:
	pathnames.lisp 
Log Message:
Class pathname and logical-pathname.


--- /project/movitz/cvsroot/movitz/losp/muerte/pathnames.lisp	2008/03/20 22:21:05	1.1
+++ /project/movitz/cvsroot/movitz/losp/muerte/pathnames.lisp	2008/04/21 19:42:06	1.2
@@ -6,16 +6,19 @@
 ;;;; Author:        Frode Vatvedt Fjeld
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: pathnames.lisp,v 1.1 2008/03/20 22:21:05 ffjeld Exp $
+;;;; $Id: pathnames.lisp,v 1.2 2008/04/21 19:42:06 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
 (require :muerte/basic-macros)
-(require :muerte/defstruct)
+(require :muerte/los-closette)
 
 (in-package muerte)
 
 (provide :muerte/pathnames)
 
-(defstruct (pathname (:constructor make-pathname-object))
-  name)
+(defclass pathname ()
+  ((name)))
+
+(defclass logical-pathname (pathname)
+  ())