[mcclim-cvs] CVS update: mcclim/incremental-redisplay.lisp

[Robert Strandh]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv26736

Modified Files:
	incremental-redisplay.lisp 
Log Message:
Fixed a bug in function-matches-p.  It should use symbol-function and
not symbol-value. 


Date: Tue Aug 16 06:30:37 2005
Author: rstrandh

Index: mcclim/incremental-redisplay.lisp
diff -u mcclim/incremental-redisplay.lisp:1.50 mcclim/incremental-redisplay.lisp:1.51
--- mcclim/incremental-redisplay.lisp:1.50	Mon Aug 15 02:41:38 2005
+++ mcclim/incremental-redisplay.lisp	Tue Aug 16 06:30:37 2005
@@ -124,9 +124,9 @@
 	  ((and (symbolp map-test-func) (symbolp func)) ; not eq
 	   nil)
 	  ((and (symbolp map-test-func) (fboundp map-test-func))
-	   (eq (symbol-value map-test-func) func))
+	   (eq (symbol-function map-test-func) func))
 	  ((and (symbolp func) (fboundp func))
-	   (eq map-test-func (symbol-value func)))
+	   (eq map-test-func (symbol-function func)))
 	  (t nil))))
 
 (defun ensure-test (map test)