[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv796/Drei

Modified Files:
	drei-clim.lisp packages.lisp 
Log Message:
Moved with-output-as-presentation to presentations.lisp, so it can be available when input-editing.lisp is compiled.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2008/01/30 15:56:42	1.37
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2008/01/31 12:14:05	1.38
@@ -387,14 +387,14 @@
 (defmethod output-record-position ((record drei-area))
   (values-list (area-position record)))
 
-(defmethod (setf output-record-position) ((new-x number) (new-y number)
-                                          (record drei-area))
+(defmethod* (setf output-record-position) ((new-x number) (new-y number)
+                                           (record drei-area))
   (setf (area-position record) (list new-x new-y)))
 
 (defmethod output-record-start-cursor-position ((record drei-area))
   (output-record-position record))
 
-(defmethod (setf output-record-start-cursor-position) ((new-x number) (new-y number)
+(defmethod* (setf output-record-start-cursor-position) ((new-x number) (new-y number)
                                                        (record drei-area))
   (setf (output-record-position record) (list new-x new-y)))
 
--- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp	2008/01/30 11:48:40	1.49
+++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp	2008/01/31 12:14:05	1.50
@@ -184,7 +184,7 @@
   contents."))
 
 (defpackage :drei
-  (:use :clim-lisp :clim :drei-buffer :drei-base :drei-abbrev
+  (:use :clim-lisp :clim-sys :clim :drei-buffer :drei-base :drei-abbrev
         :drei-syntax :flexichain :drei-undo :esa-buffer :esa-io :esa
         :esa-utils :drei-kill-ring)
   (:export #:drei-buffer #:needs-saving