home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / f / ilisp-2.lbr / MACRO.LZP / MACRO.LSP
Encoding:
Text File  |  1993-10-26  |  2.1 KB  |  21 lines
  1. (QUOTE iLISP-Library-File)
  2. 2059
  3.       (QUOTE %(C%)% Copyright% by% Computing% Insights,% 1983)
  4.                             
  5. ;(QUOTE (((LET VarList Op1 Op2 ...) - an applicative assignment) (DESCRIPTION: Each variable in the Varlist is bound to its associated) (value and the Ops are evaluated in the resulting environment.) (The value is the value of the last Op.)))
  6. (MACRO LET FORM (CONS (LIST (QUOTE LAMBDA) (MAPTCONC CAR (CADR FORM)) (CONS (QUOTE PROGN) (CDDR FORM))) (MAPTCONC CADR (CADR FORM))))
  7. (QUOTE ())
  8. ;(QUOTE (((DEFINE Fn VarList Body) - the basic define form)))
  9. (MACRO DEFINE FORM (LIST (QUOTE PROGN) (LIST (QUOTE SETQ) (CADR FORM) (IF (CDDDR FORM) (CONS (QUOTE LAMBDA) (CDDR FORM)) (CADDR FORM))) (LIST (QUOTE QUOTE) (CADR FORM))))
  10. (QUOTE ())
  11. ;(QUOTE (((SELECTQ Exp Clauses) - the special form of COND) (DESCRIPTION: SELECTQs are translated into CONDs. See the manual) (for a description.)))
  12. (MACRO SELECTQ FORM (CONS (QUOTE COND) (NCONC (MAPTCONC (LAMBDA (X) (CONS (LIST (QUOTE EQ) (CADR FORM) (LIST (QUOTE QUOTE) (CAR X))) (CDR X))) (CARS (CDDR FORM) (LENGTH (CDDDR FORM)))) (LIST (CONS T (LAST FORM))))))
  13. (QUOTE ())
  14. ;(QUOTE (((MACRO Name Form Body) - the standard MACRO definition form) (DESCRIPTION: See the manual for a full description.)))
  15. (MACRO MACRO FORM (LIST (QUOTE PROGN) (LIST (QUOTE MACROP) (LIST (QUOTE QUOTE) (CADR FORM)) T) (CONS (QUOTE DEFINE) (CDR FORM))))
  16. (QUOTE ())
  17. ;(QUOTE (((LETSYS SystemOps Op1 Op2 ...) - temporarily set system parameters) (DESCRIPTION: SystemOps is a list of system function invocations which) (are performed, followed by the evaluation of the list of Ops, followed) (by an undoing of the system functions. The value is the value of the) (last Op. See the manual for more details.)))
  18. (MACRO LETSYS FORM (LIST (QUOTE PROGN) (LIST (QUOTE RPUSH) (LIST (QUOTE MAPCONS) (LAMBDA (X) (LIST (CAR X) (LIST (QUOTE QUOTE) (EVAL (CARS X 1))))) (LIST (QUOTE QUOTE) (CADR FORM)))) (LIST (QUOTE PROG1) (CONS (QUOTE PROGN) (APPEND (CADR FORM) (CDDR FORM))) (QUOTE (MAPNIL EVAL (RPOP))))))
  19. (QUOTE ())
  20. (QUOTE (LETSYS (1757 1417) MACRO (1273 1146) SELECTQ (916 767) DEFINE (582 520) LET (372 129)))
  21.