home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / lisp / mcl / 1068 < prev    next >
Encoding:
Internet Message Format  |  1992-07-24  |  2.1 KB
  1. Path: sparky!uunet!zephyr.ens.tek.com!uw-beaver!micro-heart-of-gold.mit.edu!news.bbn.com!olivea!apple!apple!cambridge.apple.com!bill@cambridge.apple.com
  2. From: bill@cambridge.apple.com (Bill St. Clair)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: Typo in mac-file-io.lisp?
  5. Message-ID: <9207241456.AA03285@cambridge.apple.com>
  6. Date: 24 Jul 92 16:37:53 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 37
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Full-Name: Bill St. Clair
  11. Original-To: "Dave Wroblewski" <davew@atqm.advtech.uswest.com>
  12. Original-Cc: info-mcl
  13.  
  14. >                      Typo in mac-file-io.lisp?
  15. >I was trying to work through Bill St. Clair's "my-copy-file" example today in
  16. >order
  17. >to understand the mac-file-io.lisp code in the Examples folder. Unhappily , it
  18. >kept
  19. >bombing with error -50 ("parameter error"). 
  20. >
  21. >I found the following lines in the middle of the function FSOpen in
  22. >mac-file-io.lisp:
  23. >
  24. >              (%put-long paramBlock 0  $ioPosOffset)
  25. >              (%put-word paramBlock $fsAtMark $ioPosOffset)
  26. >  
  27. >which seemed incorrect, since they simply set the same field to different
  28. >values.
  29. >I changed them to the following which seems to remove the problem, at least for
  30. >Bill's example function:
  31. >
  32. >              (%put-long paramBlock 0 $ioPosOffset)
  33. >              (%put-word paramBlock $fsAtMark $ioPosMode)
  34. >
  35. >Was this truly a typo, or is there some incredible subtlety that I am missing?
  36. >Also, if this was a known bug, where should I have looked to find it out? I
  37. >have 
  38. >been reading this mailing list for a month or two and haven't seen any bug
  39. >reports
  40. >about this...
  41.  
  42. It's been a known bug for a long time. I don't remember putting it
  43. in any of the 2.0b1 patches, however. It definitely appeared on
  44. info-mcl or bug-mcl around the time that Dale Skrien told us about
  45. it, but I don't know which (if it was bug-mcl you would have no way
  46. to have seen it) Here's the mod history line for the fix:
  47.  
  48. ;; 08/19/91 bill in FSOpen: (%put-word paramBlock $fsAtMark $ioPosOffset) ->
  49. ;;                          (%put-word paramBlock $fsAtMark $ioPosMode)
  50. ;;               (thanx to Dale J. Skrien)
  51.