[armedbear-ticket] [armedbear] #104: SET works with symbols defined with DEFCONSTANT

[armedbear]

#104: SET works with symbols defined with DEFCONSTANT
-------------------------+--------------------------------------------------
 Reporter:  mevenson     |       Owner:  ehuelsmann 
     Type:  defect       |      Status:  new        
 Priority:  major        |   Milestone:  unscheduled
Component:  interpreter  |     Version:  0.22       
 Keywords:               |  
-------------------------+--------------------------------------------------
 Something is wonky about symbols defined with DEFCONSTANT:

 {{{
 CL-USER> (defconstant +xx+ nil)
 +XX+
 CL-USER> +xx+
 NIL
 CL-USER> (setf +xx+ 53)
 ; Evaluation aborted.
 CL-USER> (set (intern "+XX+") 42)
 42
 CL-USER> +xx+
 42
 }}}

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/104>
armedbear <http://common-lisp.net/project/armedbear>
armedbear