[climacs-cvs] CVS update: climacs/gui.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv15020

Modified Files:
	gui.lisp 
Log Message:
added reader conditionals around calls to sb-profile:xxx

Date: Mon May 30 09:51:32 2005
Author: rstrandh

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.141 climacs/gui.lisp:1.142
--- climacs/gui.lisp:1.141	Mon May 30 09:25:13 2005
+++ climacs/gui.lisp	Mon May 30 09:51:32 2005
@@ -1382,10 +1382,12 @@
 ;;; For testing purposes
 
 (define-named-command com-reset-profile ()
-  (sb-profile:reset))
+  #+sbcl (sb-profile:reset)
+  #-sbcl nil)
 
 (define-named-command com-report-profile ()
-  (sb-profile:report))
+  #+sbcl (sb-profile:report)
+  #-sbcl nil)
 
 (define-named-command com-recompile ()
   (asdf:operate 'asdf:load-op :climacs))