home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / sys / hp48 / 5852 < prev    next >
Encoding:
Text File  |  1992-11-20  |  981 b   |  41 lines
  1. Newsgroups: comp.sys.hp48
  2. Path: sparky!uunet!tcsi.com!iat.holonet.net!brianw
  3. From: brianw@iat.holonet.net (Brian Walsh)
  4. Subject: Re: LISP in system RPL
  5. Message-ID: <By0xrz.J8M@iat.holonet.net>
  6. Organization: HoloNet
  7. References: <MHEISKAN.92Nov18214543@lk-hp-1.hut.fi>
  8. Date: Fri, 20 Nov 1992 16:57:34 GMT
  9. Lines: 30
  10.  
  11. mheiskan@hut.fi (Mika Heiskanen) writes:
  12. : Slightly shorter and faster:
  13. : 
  14. : ::
  15. :   ' :: SWAP#1+ TRUE ;
  16. :   2Ob>Seco 1LAMBIND
  17. :   ZEROSWAP
  18. :   :: GOTO PTR 58CF8 ;    @ The first instruction is symcomp :(
  19. :   ABND {}N
  20. : ;
  21. Very good improvement.  The following also includes argument checking
  22. and allows the process to be a list (especially handy for programs built
  23. on the fly and then evaluated with LISP):
  24. :: CK2NOLASTWD
  25.    CK2&Dispatch EIGHTY
  26.    :: INNERCOMP ::N
  27.    '  :: SWAP#1+ TRUE
  28.       ; 2Ob>Seco 1LAMBIND ZEROSWAP
  29.       :: GOTO
  30.          ASSEMBLE
  31.             CON(5)    #58CF8
  32.          RPL
  33.       ; ABND {}N
  34.    ;
  35. ;
  36. 57.5 bytes
  37.  
  38. -- Brian Walsh
  39.    brianw@holonet.net
  40.  
  41.