home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / lisp / mcl / 2085 < prev    next >
Encoding:
Internet Message Format  |  1993-01-24  |  1.2 KB
  1. Path: sparky!uunet!europa.asd.contel.com!howland.reston.ans.net!spool.mu.edu!olivea!apple!cambridge.apple.com!Jeffrey.J.Guertin@uwrf.edu
  2. From: Jeffrey.J.Guertin@uwrf.edu
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: calling _Date2Secs
  5. Message-ID: <01GTWHO1HT5U8WW5K8@kinni.acc.uwrf.edu>
  6. Date: 24 Jan 93 21:44:10 GMT
  7. Sender: owner-info-mcl@cambridge.apple.com
  8. Lines: 27
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10.  
  11.  
  12. To:info-mcl@cambridge.apple.com
  13. cc:info-mcl@cambridge.apple.com
  14. Subject:RE: calling #_date2secs
  15. --------
  16.  
  17. jeffrey,
  18.     i'm very new to this game so i don't know protocal. i've been playing
  19. with your code and calling date2secs since i saw it. your hint was correct;
  20. as written deftrap _date2secs was attempting to put a datetimerec into an
  21. address register and a macptr into the longword set up for seconds.
  22.     
  23.     the following deftrap seems to work. however i'm still getting funny
  24. results with your rlet ie. a return date in 1904. i get correct results when
  25. i step through the same code.
  26.  
  27. (deftrap _date2secs ((d (:pointer :datetimerec)) (secs (:pointer 
  28. :signed-long)))
  29.    nil
  30.   (:no-trap
  31.    (%put-long secs (ccl:register-trap #xa9C7 :a0 d :d0))))
  32.  
  33.     have learned much in the proccess.
  34.                 
  35.                     thanx
  36.                     
  37.                     igore
  38.