archive/src/numerm.lisp

   1 ;;; -*-  Mode: Lisp; Package: Maxima; Syntax: Common-Lisp; Base: 10 -*- ;;;;
   2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   3 ;;;     The data in this file contains enhancments.                    ;;;;;
   4 ;;;                                                                    ;;;;;
   5 ;;;  Copyright (c) 1984,1987 by William Schelter,University of Texas   ;;;;;
   6 ;;;     All rights reserved                                            ;;;;;
   7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   8 ;;;  (c) Copyright 1976, 1983 Massachusetts Institute of Technology      ;;;
   9 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10
  11 (in-package :maxima)
  12
  13 (macsyma-module numerm macro)
  14
  15 ;;; Macros for interface of lisp numerical routines to maxima
  16 ;;; for use with the functions in Maxsrc;Numer.
  17
  18 (defmacro defbindtramp$ (nargs)
  19   (let ((bind-tramp$ (symbolconc 'bind-tramp nargs '$))
  20         (tramp$ (symbolconc 'tramp nargs '$)))
  21     `(progn
  22        (proclaim (quote (special ,tramp$)))
  23        (defmacro ,bind-tramp$ (f g &rest body)
  24          `(let ((,',tramp$))
  25             (let ((,f (make-tramp$ ,g ,',nargs)))
  26               ,@body))))))
  27
  28 (defbindtramp$ 1)
  29 (defbindtramp$ 2)
  30 (defbindtramp$ 3)