[Eclipse-cvs] CVS eclipse/lib

[ihatchondo]

Update of /project/eclipse/cvsroot/eclipse/lib
In directory cl-net:/tmp/cvs-serv17920/lib

Modified Files:
	image-reader.lisp 
Log Message:
Fix: improper and useless slot unset.

--- /project/eclipse/cvsroot/eclipse/lib/image-reader.lisp	2005/09/18 17:46:28	1.14
+++ /project/eclipse/cvsroot/eclipse/lib/image-reader.lisp	2009/11/17 09:30:28	1.15
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: PPM -*-
-;;; $Id: image-reader.lisp,v 1.14 2005/09/18 17:46:28 ihatchondo Exp $
+;;; $Id: image-reader.lisp,v 1.15 2009/11/17 09:30:28 ihatchondo Exp $
 ;;;
 ;;; This a ppm image reader for CLX
 ;;; This file is part of Eclipse
@@ -273,9 +273,7 @@
 
 (defun load-ppm-into-clx-image (filename drawable)
   "Returns a clx image representation of a pnm image readed in a pnm file."
-  (let ((image (load-ppm filename)))
-    (prog1 (image->clx-image image drawable)
-      (setf (slot-value image 'pixels) nil))))
+  (image->clx-image (load-ppm filename) drawable))
 
 ;;;; private routines.