$CONSTANT $BUFFER $CWD
$CONSTANT
* $CONSTANT ( "name" $: a$ -- )

Create a definition for "name" with the execution semantics
"name" execution: ($: -- a$ ) 
It is assumed that the input string resides as a packed, unchanging string

outside of string space.  "string-constant"

For example:

   $" This is a sample string." $constant sample$


 
 dstrings   defining primitive