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")