;;
;;      Name: Redefinition of function in the MAP subrout file 
;;
;;      Author:  Alan W Black  November 1986
;;
;;      Copyright Graeme Ritchie, Alan Black,
;;                Steve Pulman and Graham Russell  1987
;;
;;         ---------------------------------------------
;;         |    Not to be used for military purposes   |
;;         ---------------------------------------------
;;               
;;   Description:
;;     This redefines some of the functions in the file subrout and is
;;     intended to be included at the end of the subrout file
;;     when this is compiled for Common Lisp.
;;
;;     This allows the redefinition of the some of the functions so
;;     some of the advantages of Common Lisp can be taken
;;     and those nasty difficult functions can be dealt with.
;;
;;     Anything in the Franz Lisp code that will be difficult to 
;;     port should have been defined in the subrout file.
;;

(eval-when (compile lisp:load eval)

(defun D-IsPattVariable (thing)
;;
;;  retruns t if the string thing starts with an _
;;
   (and (atom thing)
	(not (numberp thing))
	(eq (char (string thing) 0) #\_))
)

(defun D-NumeralToNumber (numeral)
;;
;;  retrusn the number associated with the given character
;;
   (cadr (assoc numeral
      '((#\0 0) (#\1 1) (#\2 2) (#\3 3) (#\4 4) 
	(#\5 5) (#\6 6) (#\7 7) (#\8 8) (#\9 9)))))

)
