[Phemlock-cvs] CVS update: phemlock/src/clim/foo.lisp

[Christophe Rhodes]

Update of /project/phemlock/cvsroot/phemlock/src/clim
In directory common-lisp.net:/tmp/cvs-serv9186/src/clim

Modified Files:
	foo.lisp 
Log Message:
Make clim-hemlock basically work on sbcl -- mostly build fixes from Hannu
Koivisto.

* don't declaim or declare stuff in CL special;
* classes come before methods specializing on them;
* clim-sys: not mp:

Date: Wed Dec 15 13:16:44 2004
Author: crhodes

Index: phemlock/src/clim/foo.lisp
diff -u phemlock/src/clim/foo.lisp:1.4 phemlock/src/clim/foo.lisp:1.5
--- phemlock/src/clim/foo.lisp:1.4	Sun Nov 21 02:03:51 2004
+++ phemlock/src/clim/foo.lisp	Wed Dec 15 13:16:43 2004
@@ -44,6 +44,10 @@
             )
    ))
 
+(defclass clim-hunk-pane (CLIM:APPLICATION-PANE)
+  ((hunk)
+   ))
+
 (defmethod device-init ((device clim-device))
   )
 
@@ -236,10 +240,6 @@
 
 ;;;; There is awful lot to do to boot a device.
 
-(defclass clim-hunk-pane (CLIM:APPLICATION-PANE)
-  ((hunk)
-   ))
-
 (defmethod clim:note-sheet-region-changed :after ((sheet clim-hunk-pane))
   (when (slot-boundp sheet 'hunk)
     (clim-window-changed (slot-value sheet 'hunk))
@@ -287,7 +287,7 @@
 
 (defun clim-hemlock ()
   (when *clim-hemlock-process*
-    (mp:destroy-process *clim-hemlock-process*))
+    (clim-sys:destroy-process *clim-hemlock-process*))
   (setf *clim-hemlock-process*
         (clim-sys:make-process
          (lambda ()
@@ -694,6 +694,14 @@
     (otherwise clim:+white+)))
 
 ;; $Log: foo.lisp,v $
+;; Revision 1.5  2004/12/15 12:16:43  crhodes
+;; Make clim-hemlock basically work on sbcl -- mostly build fixes from Hannu
+;; Koivisto.
+;;
+;; * don't declaim or declare stuff in CL special;
+;; * classes come before methods specializing on them;
+;; * clim-sys: not mp:
+;;
 ;; Revision 1.4  2004/11/21 01:03:51  gbaumann
 ;; Basic support for c-x 1 and c-x 2.
 ;;