From rstrandh at common-lisp.net  Sun Dec  2 05:52:53 2007
From: rstrandh at common-lisp.net (rstrandh)
Date: Sun,  2 Dec 2007 00:52:53 -0500 (EST)
Subject: [gsharp-cvs] CVS gsharp
Message-ID: <20071202055253.07C404D042@common-lisp.net>

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



From thenriksen at common-lisp.net  Wed Dec 19 11:06:03 2007
From: thenriksen at common-lisp.net (thenriksen)
Date: Wed, 19 Dec 2007 06:06:03 -0500 (EST)
Subject: [gsharp-cvs] CVS gsharp
Message-ID: <20071219110603.A90177A00A@common-lisp.net>

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

Modified Files:
	gui.lisp 
Log Message:
Provide default values for commands expected to accept numeric
arguments.


--- /project/gsharp/cvsroot/gsharp/gui.lisp	2007/11/25 14:19:29	1.91
+++ /project/gsharp/cvsroot/gsharp/gui.lisp	2007/12/19 11:06:03	1.92
@@ -1051,13 +1051,13 @@
 ;;; motion by element
 
 (define-gsharp-command com-forward-element 
-    ((count 'integer :prompt "Number of Elements"))
+    ((count 'integer :prompt "Number of Elements" :default 1))
   "Move forward by element."
   (loop repeat count
         do (forward-element (current-cursor))))
 
 (define-gsharp-command com-backward-element 
-    ((count 'integer :prompt "Number of Elements"))
+    ((count 'integer :prompt "Number of Elements" :default 1))
   "Move backward by element."
   (loop repeat count
         do (backward-element (current-cursor))))
@@ -1067,12 +1067,12 @@
 ;;; motion by measure
 
 (define-gsharp-command com-forward-measure 
-    ((count 'integer :prompt "Number of Measures"))
+    ((count 'integer :prompt "Number of Measures" :default 1))
   "Move forward by measure."
   (loop repeat count do (forward-bar (current-cursor))))
 
 (define-gsharp-command com-backward-measure 
-    ((count 'integer :prompt "Number of Measures"))
+    ((count 'integer :prompt "Number of Measures" :default 1))
   "Move backward by measure."
   (loop repeat count do (backward-bar (current-cursor))))
 
@@ -1245,7 +1245,7 @@
           (forward-element cursor))))
 
 (define-gsharp-command com-delete-element 
-    ((count 'integer :prompt "Number of Elements"))
+    ((count 'integer :prompt "Number of Elements" :default 1))
   "Delete element forwards."
   (let ((cursor (current-cursor)))
     (loop repeat count
@@ -1259,7 +1259,7 @@
                    (delete-element cursor))))))
 
 (define-gsharp-command com-erase-element 
-    ((count 'integer :prompt "Number of Elements"))
+    ((count 'integer :prompt "Number of Elements" :default 1))
   "Delete element backwards."
   (let ((cursor (current-cursor)))
     (loop repeat count