;;; -*- Mode:LISP; Package:SIMULATOR; Base:10; Readtable:CL -*-

;;;;;;;;;;;;;;;
;;; DEFSYNONYM
;;;;;;;;;;;;;;;

(defmacro defsynonym (new-name old-name)
  "New-name is a subst for old-name.  Uses rest arg so be careful."
  `(DEFSUBST ,new-name (&REST ARGUMENTS)
     (APPLY (FUNCTION ,old-name) ARGUMENTS))
  )