Function: idlwave-sintern-routine

idlwave-sintern-routine is a byte-compiled function defined in idlwave.el.gz.

Signature

(idlwave-sintern-routine NAME &optional SET)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/idlwave.el.gz
;;(defmacro idlwave-sintern (type var)
;;  `(cond ((not (stringp name)) name)
;;	 ((gethash (downcase name) (cdr ,var)))
;;	 ((gethash (downcase name) (car ,var)))
;;	 (set (idlwave-sintern-set name ,type ,var set))
;;	 (name)))

(defun idlwave-sintern-routine (name &optional set)
  (cond ((not (stringp name)) name)
	((gethash (downcase name) (cdr idlwave-sint-routines)))
	((gethash (downcase name) (car idlwave-sint-routines)))
	(set (idlwave-sintern-set name 'routine idlwave-sint-routines set))
	(name)))