home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / lisp / mcl / 1065 < prev    next >
Encoding:
Internet Message Format  |  1992-07-23  |  1.5 KB
  1. Path: sparky!uunet!pmafire!news.dell.com!swrinde!sdd.hp.com!mips!apple!cambridge.apple.com!davew@atqm.advtech.uswest.com
  2. From: davew@atqm.advtech.uswest.com ("Dave Wroblewski")
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Typo in mac-file-io.lisp?
  5. Message-ID: <199207232207.AA01441@uswat.advtech.uswest.com>
  6. Date: 23 Jul 92 08:13:22 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 31
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Original-To: info-mcl@cambridge.apple.com
  11.  
  12.  
  13.                       Typo in mac-file-io.lisp?
  14. I was trying to work through Bill St. Clair's "my-copy-file" example today in
  15. order
  16. to understand the mac-file-io.lisp code in the Examples folder. Unhappily, it
  17. kept
  18. bombing with error -50 ("parameter error"). 
  19.  
  20. I found the following lines in the middle of the function FSOpen in
  21. mac-file-io.lisp:
  22.  
  23.               (%put-long paramBlock 0  $ioPosOffset)
  24.               (%put-word paramBlock $fsAtMark $ioPosOffset)
  25.   
  26. which seemed incorrect, since they simply set the same field to different
  27. values.
  28. I changed them to the following which seems to remove the problem, at least for
  29. Bill's example function:
  30.  
  31.               (%put-long paramBlock 0 $ioPosOffset)
  32.               (%put-word paramBlock $fsAtMark $ioPosMode)
  33.  
  34. Was this truly a typo, or is there some incredible subtlety that I am missing?
  35. Also, if this was a known bug, where should I have looked to find it out? I
  36. have 
  37. been reading this mailing list for a month or two and haven't seen any bug
  38. reports
  39. about this...
  40.  
  41. -David Wroblewski
  42. U S WEST Advanced Technologies
  43.