home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / lisp / mcl / 1839 < prev    next >
Encoding:
Internet Message Format  |  1992-12-15  |  2.2 KB
  1. Path: sparky!uunet!stanford.edu!apple!cambridge.apple.com!cartier@math.uqam.ca
  2. From: cartier@math.uqam.ca (Guillaume Cartier)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: MCL's source code (was timer functions)
  5. Message-ID: <9212151508.AA26738@mipsmath.math.uqam.ca>
  6. Date: 15 Dec 92 15:08:53 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 44
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10.  
  11. <---
  12. | Greetings!
  13. |   The time function is nifty:  (time (stuff to be timed)), but it sends its
  14. | info to *standard-output*.  Is there a way to get the output in machine
  15. | useable form?  Or, are there functions out there that give the same sort of
  16. | nifty info (time in secs, GC and multitasking times that can be subtracted
  17. | off, memory allocated)?  I know about decoding get-internal-real-time, but
  18. | the the time function is very useful as is and it has all the info in one
  19. | place.
  20. --->
  21.  
  22. Use MCL's source code! It can be *very* useful.
  23.  
  24. By looking at the source of TIME you will immediatly see
  25. that the functions you are looking for are:
  26.  
  27. CCL::GCTIME and
  28. CCL::TOTAL-BYTES-ALLOCATED
  29.  
  30. Personaly, I installed MCL's source on my hard disk. It takes
  31. only 1.8 MEG. If you want the MCL source folder to be located
  32. somewhere else than in "ccl:" you can use logical pathnames.
  33. (yes those dreaded logical pathnames that can be so wonderful
  34. yet seem to be so hard to understand :-)
  35.  
  36. As an example, I use the following to put the MCL source folder
  37. inside the "ccl:library;" folder.
  38.  
  39. (setf (logical-pathname-translations "ccl")
  40.       (nconc '(("ccl:source;**;*.*"   "ccl:library;MCL source code;**;*.*")
  41.                ("ccl:l1;**;*.*"       "ccl:source;level-1;**;*.*")
  42.                ("ccl:lib;**;*.*"      "ccl:source;lib;**;*.*")
  43.                ("ccl:compiler;**;*.*" "ccl:source;compiler;**;*.*"))
  44.              (logical-pathname-translations "ccl")))
  45.  
  46. Regards,
  47. Guillaume.
  48.  
  49. *********************************************************************
  50. * Guillaume Cartier                 (514) 844-5294 (maison)         *
  51. * L.A.C.I.M.                        (514) 987-4290 (bureau)         *
  52. * Universite du Quebec a Montreal   (514) 987-8477 (telecopieur)    *
  53. * Montreal, Quebec, Canada          cartier@math.uqam.ca (internet) *
  54. *********************************************************************
  55.