[noctool-cvs] CVS source

[jprewett]

Update of /project/noctool/cvsroot/source
In directory cl-net:/tmp/cvs-serv28622

Modified Files:
	classes.lisp 
Log Message:

added macos-host class (so the paper won't be a lie! :P )



--- /project/noctool/cvsroot/source/classes.lisp	2008/08/26 16:09:21	1.14
+++ /project/noctool/cvsroot/source/classes.lisp	2008/10/28 20:52:54	1.15
@@ -1,6 +1,5 @@
 (in-package #:noctool)
 
-
 ;; a hash so we can look up objects by their ID
 (defvar *id-objects* (make-hash-table :test #'equal))
 (defclass id-object ()
@@ -193,6 +192,9 @@
 (defclass linux-host (unix-host)
   ())
 
+(defclass macos-host (unix-host)
+  ())
+
 (defmethod store ((graph disk-monitor) &optional filename)
   (labels ((fname (subtype) (merge-pathnames
 			     (make-pathname :name (format nil "~a%~a" filename subtype))