closure-cvs

Download

closure-cvs@common-lisp.net

December 2007

1 participants
2 discussions

[closure-cvs] CVS closure/src/glisp
by dlichteblau 16 Dec '07

16 Dec '07

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

1 0

[closure-cvs] CVS closure/src/gui
by dlichteblau 16 Dec '07

16 Dec '07

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)

1 0