🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.lisp.mcl
Article #612

MCL's source code (was timer functions)

#612
From: Guillaume Cartier
Date: Tue, 15 Dec 1992 15:08
44 lines
2339 bytes
<---
| Greetings!
|   The time function is nifty:  (time (stuff to be timed)), but it sends its
| info to *standard-output*.  Is there a way to get the output in machine
| useable form?  Or, are there functions out there that give the same sort of
| nifty info (time in secs, GC and multitasking times that can be subtracted
| off, memory allocated)?  I know about decoding get-internal-real-time, but
| the the time function is very useful as is and it has all the info in one
| place.
--->

Use MCL's source code! It can be *very* useful.

By looking at the source of TIME you will immediatly see
that the functions you are looking for are:

CCL::GCTIME and
CCL::TOTAL-BYTES-ALLOCATED

Personaly, I installed MCL's source on my hard disk. It takes
only 1.8 MEG. If you want the MCL source folder to be located
somewhere else than in "ccl:" you can use logical pathnames.
(yes those dreaded logical pathnames that can be so wonderful
yet seem to be so hard to understand :-)

As an example, I use the following to put the MCL source folder
inside the "ccl:library;" folder.

(setf (logical-pathname-translations "ccl")
      (nconc '(("ccl:source;**;*.*"   "ccl:library;MCL source code;**;*.*")
               ("ccl:l1;**;*.*"       "ccl:source;level-1;**;*.*")
               ("ccl:lib;**;*.*"      "ccl:source;lib;**;*.*")
               ("ccl:compiler;**;*.*" "ccl:source;compiler;**;*.*"))
             (logical-pathname-translations "ccl")))

Regards,
Guillaume.

*********************************************************************
* Guillaume Cartier                 (514) 844-5294 (maison)         *
* L.A.C.I.M.                        (514) 987-4290 (bureau)         *
* Universite du Quebec a Montreal   (514) 987-8477 (telecopieur)    *
* Montreal, Quebec, Canada          cartier@math.uqam.ca (internet) *
*********************************************************************
Technical Details
Message-ID: <9212151508.AA26738@mipsmath.math.uqam.ca>
Path: arc1-ca.pugleaf.net!sparky!uunet!stanford.edu!apple!cambridge.apple.com!cartier@math.uqam.ca

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!stanford.edu!apple!cambridge.apple.com!cartier@math.uqam.ca
From: cartier@math.uqam.ca (Guillaume Cartier)
Newsgroups: comp.lang.lisp.mcl
Subject: MCL's source code (was timer functions)
Message-ID: <9212151508.AA26738@mipsmath.math.uqam.ca>
Date: 15 Dec 92 15:08:53 GMT
Sender: info-mcl-request@cambridge.apple.com
Lines: 44
Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M