From dlichteblau at common-lisp.net  Sun Dec 16 17:13:02 2007
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Sun, 16 Dec 2007 12:13:02 -0500 (EST)
Subject: [closure-cvs] CVS closure/src/gui
Message-ID: <20071216171302.B708A6A031@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/gui
In directory clnet:/tmp/cvs-serv16686

Modified Files:
	dce-and-pce.lisp 
Log Message:
Don't attempt to re-use an image design on a different medium.

 - new slot medium on PC
 - in make-design-from-aimage, match on the medium


--- /project/closure/cvsroot/closure/src/gui/dce-and-pce.lisp	2007/01/07 19:33:02	1.5
+++ /project/closure/cvsroot/closure/src/gui/dce-and-pce.lisp	2007/12/16 17:13:02	1.6
@@ -117,7 +117,8 @@
   width
   height
   design
-  refcount)
+  refcount
+  medium)
 
 (defun make-design-from-aimage (medium aimage width height)
   (dolist (k *pixmap-cache*
@@ -137,7 +138,8 @@
               res))
     (when (and (eq (pce-aimage k) aimage)
                (eql (pce-width k) width)
-               (eql (pce-height k) height))
+               (eql (pce-height k) height)
+               (eql (pce-medium k) medium))
       (when *debug-pixmap-cache-p*
         (format T "~&;; ++ ~A ~Dx~D "
                 (getf (imagelib:aimage-plist aimage) :url)



From dlichteblau at common-lisp.net  Sun Dec 16 20:03:25 2007
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Sun, 16 Dec 2007 15:03:25 -0500 (EST)
Subject: [closure-cvs] CVS closure/src/glisp
Message-ID: <20071216200325.B12BC2F06B@common-lisp.net>

Update of /project/closure/cvsroot/closure/src/glisp
In directory clnet:/tmp/cvs-serv15931

Modified Files:
	dep-sbcl.lisp 
Log Message:
Added an explicit in-package, so that the fasl does not refer to packages
that might not exist at load time.


--- /project/closure/cvsroot/closure/src/glisp/dep-sbcl.lisp	2007/01/03 11:34:45	1.9
+++ /project/closure/cvsroot/closure/src/glisp/dep-sbcl.lisp	2007/12/16 20:03:25	1.10
@@ -26,6 +26,8 @@
 ;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
+(in-package :cl-user)
+
 (defun glisp::read-byte-sequence (&rest ap)
   (apply #'read-sequence ap))