More Lisps are supported:
diff --git a/src/lisp/fricas-lisp.lisp b/src/lisp/fricas-lisp.lisp
index a904f5be..dae6fe70 100644
--- a/src/lisp/fricas-lisp.lisp
+++ b/src/lisp/fricas-lisp.lisp
@@ -1152,10 +1152,18 @@ with this hack and will try to convince the GCL
crowd to fix this.
(defmacro |elapsedUserTime| () '(get-internal-run-time))
-#+:GCL
-(defmacro |elapsedGcTime| () '(system:gbc-time))
-#-:GCL
-(defmacro |elapsedGcTime| () '0)
+#+:gcl
+(defun |elapsedGcTime| () (system:gbc-time))
+#+:sbcl
+(defun |elapsedGcTime| () sb-ext:*gc-run-time*)
+#+:openmcl
+(defun |elapsedGcTime| () (ccl:gctime))
+#+:clisp
+(defun |elapsedGcTime| ()
+ (multiple-value-bind (used room static gc-count gc-space gc-time)
(sys::%room)
+ gc-time))
+#-(or :gcl :sbcl :openmcl :clisp)
+(defun |elapsedGcTime| () 0)
(defmacro |char| (arg)
(cond ((stringp arg) (character arg))
- Qian
On 10/15/23 09:21, Qian Yun wrote:
It is possible to track GC time in SBCL via variable
sb-ext:*gc-run-time* .
As for backwards compatibility, this variable is confirmed to
exist in sbcl-1.1.1.
- Qian
=====
diff --git a/src/lisp/fricas-lisp.lisp b/src/lisp/fricas-lisp.lisp
index a904f5be..426c53be 100644
--- a/src/lisp/fricas-lisp.lisp
+++ b/src/lisp/fricas-lisp.lisp
@@ -1154,7 +1154,9 @@ with this hack and will try to convince the GCL
crowd to fix this.
#+:GCL
(defmacro |elapsedGcTime| () '(system:gbc-time))
-#-:GCL
+#+:SBCL
+(defmacro |elapsedGcTime| () 'sb-ext:*gc-run-time*)
+#-(or :GCL :SBCL)
(defmacro |elapsedGcTime| () '0)
(defmacro |char| (arg)
--
You received this message because you are subscribed to the Google Groups "FriCAS -
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to fricas-devel+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/4ebaafc7-c9c9-4a0a-82be-4fb465d288fc%40gmail.com.
