[cells-cvs] CVS update: cell-cultures/cl-magick/wand-texture.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cl-magick
In directory common-lisp.net:/tmp/cvs-serv5472/cl-magick

Modified Files:
	wand-texture.lisp 
Log Message:

Date: Sun Jul  4 11:59:44 2004
Author: ktilton

Index: cell-cultures/cl-magick/wand-texture.lisp
diff -u cell-cultures/cl-magick/wand-texture.lisp:1.1 cell-cultures/cl-magick/wand-texture.lisp:1.2
--- cell-cultures/cl-magick/wand-texture.lisp:1.1	Sat Jun 26 11:38:39 2004
+++ cell-cultures/cl-magick/wand-texture.lisp	Sun Jul  4 11:59:44 2004
@@ -66,7 +66,7 @@
           (pixels (wand-get-image-pixels (mgk-wand self) 0 0
                     (car (image-size self))
                     (cdr (image-size self)))))
-      (assert (not clo::*listingp*))
+      ;; (assert (not *ogl-listing-p*))
       (gl-bind-texture gl_texture_2d tx)
       
       (progn ;; useless??
@@ -92,7 +92,7 @@
                           &aux (sz (image-size self)))
     #+not (format t "~&wand-render tex ~a ~a ~a" (texture-name self) self
             :size sz :bbox (list left top right bottom))
-    (assert clo::*listingp*)
+    ;;(assert *ogl-listing-p*)
     (with-attrib  (gl_texture_bit);;  gl_enable_bit gl_hint_bit gl_line_bit gl_color_buffer_bit) 
       (wand-texture-activate self)
       #+tilingworksbutslower