map-id.lsp
 Version 1.00 	29 April 2005
 Author Steven Jones

 Contact jones57@swbell.net include the word "nyquist" in subject line

 The contents of this file are released under the terms of the GNU General
 Public License. See the file LICENSE.txt

 An identity map object.  See map.lsp

var

 Contains an identity map. See map.lsp
 (send map:*id* :get q) --> q for every numeric q

;; map-id.lsp
;; Version 1.00 	29 April 2005
;; Author Steven Jones
;;
;; Contact jones57@swbell.net include the word "nyquist" in subject line
;;
;; The contents of this file are released under the terms of the GNU General
;; Public License. See the file LICENSE.txt
;;
;; An identity map object.  See map.lsp
;;

(require 'map)
(provide 'map-id)


;; @doc var map:*id*
;; Contains an identity map. See map.lsp
;; (send map:*id* :get q) --> q for every numeric q
;;

(setf map:*id*  (send map:functional :new))