;; -*- Mode: LISP; Syntax: Common-Lisp; Package: (USER); -*-
;**************************************************************
;*
;*  NON-GEOMETRIC FUNCTIONS FOR SENSORS & DESCRIPTORS
;*
;*  HISTORY: Jan 1995 start
;*
;**************************************************************


(defun speaking? (value)
;  (print "hello")
  (if (equal value 'T)
      T
    nil))