home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / lisp / mcl / 1663 < prev    next >
Encoding:
Text File  |  1992-11-23  |  2.3 KB  |  58 lines
  1. Path: sparky!uunet!cs.utexas.edu!sun-barr!ames!data.nas.nasa.gov!taligent!apple!cambridge.apple.com!cartier@math.uqam.ca
  2. From: cartier@math.uqam.ca (Guillaume Cartier)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: rlet keyword documentation
  5. Message-ID: <9211231606.AA17171@mipsmath.math.uqam.ca>
  6. Date: 23 Nov 92 16:06:30 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 47
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10.  
  11. <---
  12. |     From: jbk@world.std.com (Jeffrey B Kane)
  13. |     
  14. |     > I was wondering where the documentation was for all the possible keywords
  15. |     > that can be used with rlet...    
  16. |     Well at the risk of talking to myself, I found the answer and wanted to post it
  17. |     in case it wasn't obvious to anyone else.  It turns our that there are two global
  18. |     variables:
  19. |     
  20. |                          *record-types* ...
  21. | 
  22. | Michael Travers replies:
  23. |
  24. |   Try evaluating (ccl::load-all-records) before looking at this
  25. |   variable, and you will find that there are many more possible record
  26. |   types (436, in my world).  rlet and other forms that refer to record
  27. |   types load these definitions automatically upon reference.
  28. --->
  29.  
  30. Here's another solution that will take much less time (4 seconds on my quadra)
  31. because it won't actualy load all the record definitions:
  32.  
  33. (defun collect-all-record-types ()
  34.   (with-standard-io-syntax
  35.     (let ((stream ccl::*records-index-stream*)
  36.           (keyword (find-package :keyword)))
  37.       (file-position stream (* 26 11))
  38.       (loop for line = (read-line stream nil 'eof)
  39.             until (eq line 'eof)
  40.             collect (intern line keyword)
  41.             do (read-line stream)
  42.                (read-line stream)
  43.                (read-line stream)))))
  44.  
  45. This will be integrated in the next version of my Extended-Apropos
  46. where you will be able to ask questions like: What are all the records types
  47. containing "WINDOW" in their name?
  48.  
  49. Regards,
  50. Guillaume.
  51.  
  52. *********************************************************************
  53. * Guillaume Cartier                 (514) 844-5294 (maison)         *
  54. * L.A.C.I.M.                        (514) 987-4290 (bureau)         *
  55. * Universite du Quebec a Montreal   (514) 987-8477 (telecopieur)    *
  56. * Montreal, Quebec, Canada          cartier@math.uqam.ca (internet) *
  57. *********************************************************************
  58.