🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.lisp.mcl
Article #654

Re: calling _Date2Secs

#654
From: Jeffrey.J.Guertin
Date: Sun, 24 Jan 1993 21:44
27 lines
1269 bytes
To:info-mcl@cambridge.apple.com
cc:info-mcl@cambridge.apple.com
Subject:RE: calling #_date2secs
--------

jeffrey,
	i'm very new to this game so i don't know protocal. i've been playing
with your code and calling date2secs since i saw it. your hint was correct;
as written deftrap _date2secs was attempting to put a datetimerec into an
address register and a macptr into the longword set up for seconds.
	
	the following deftrap seems to work. however i'm still getting funny
results with your rlet ie. a return date in 1904. i get correct results when
i step through the same code.

(deftrap _date2secs ((d (:pointer :datetimerec)) (secs (:pointer 
:signed-long)))
   nil
  (:no-trap
   (%put-long secs (ccl:register-trap #xa9C7 :a0 d :d0))))

	have learned much in the proccess.
				
					thanx
					
					igore
Technical Details
Message-ID: <01GTWHO1HT5U8WW5K8@kinni.acc.uwrf.edu>
Path: arc1-ca.pugleaf.net!sparky!uunet!europa.asd.contel.com!howland.reston.ans.net!spool.mu.edu!olivea!apple!cambridge.apple.com!Jeffrey.J.Guertin@uwrf.edu

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!europa.asd.contel.com!howland.reston.ans.net!spool.mu.edu!olivea!apple!cambridge.apple.com!Jeffrey.J.Guertin@uwrf.edu
From: Jeffrey.J.Guertin@uwrf.edu
Newsgroups: comp.lang.lisp.mcl
Subject: Re: calling _Date2Secs
Message-ID: <01GTWHO1HT5U8WW5K8@kinni.acc.uwrf.edu>
Date: 24 Jan 93 21:44:10 GMT
Sender: owner-info-mcl@cambridge.apple.com
Lines: 27
Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M