[gsharp-cvs] CVS gsharp

[rstrandh]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv30762

Modified Files:
	buffer.lisp gsharp.asd 
Log Message:
Patch allowing Gsharp to compile and start on OpenMCL again. 

Thanks to David Lichteblau.


--- /project/gsharp/cvsroot/gsharp/buffer.lisp	2007/10/22 11:45:36	1.57
+++ /project/gsharp/cvsroot/gsharp/buffer.lisp	2007/12/02 05:52:53	1.58
@@ -19,12 +19,12 @@
   (pprint-logical-block (stream nil :prefix "[" :suffix "]")
     (format stream "~s ~2i" (class-name (class-of object)))
     (loop for slot-name in (slots-to-be-saved object)
-	  do (let ((slot (find slot-name (sb-mop:class-slots (class-of object))
-			       :key #'sb-mop:slot-definition-name
+	  do (let ((slot (find slot-name (clim-mop:class-slots (class-of object))
+			       :key #'clim-mop:slot-definition-name
 			       :test #'eq)))
 	       (format stream "~_~W ~W "
-		       (car (sb-mop:slot-definition-initargs slot))
-		       (slot-value object (sb-mop:slot-definition-name slot)))))))
+		       (car (clim-mop:slot-definition-initargs slot))
+		       (slot-value object (clim-mop:slot-definition-name slot)))))))
 
 (defclass gsharp-object () ())
 
--- /project/gsharp/cvsroot/gsharp/gsharp.asd	2007/10/22 11:45:37	1.19
+++ /project/gsharp/cvsroot/gsharp/gsharp.asd	2007/12/02 05:52:53	1.20
@@ -41,5 +41,5 @@
    "play"
    "gui"
    "fontview"
-   "Mxml/mxml"
-   "Mxml/commands")
+   #+sbcl "Mxml/mxml"
+   #+sbcl "Mxml/commands")